Wert vergleichen aus INI-Datei + WritePrivate...

Von Braun

Grünschnabel
Hallo Ihr...

Ich "versuche" (ich bin nicht wirklich gut darin ^^) gerade, eine Art "Adressbuch" in VB6 zu schreiben, jedoch komm ich nicht so wirklich weiter, weil ich folgendes nicht hinbekomme:

Wenn ich auf Button-A klicke soll der Wert aus TextBox-A in einer INI-Datei gespeichert werden (das funktioniert ja auch). Jedoch soll beim Klick auf Button-A gleichzeitig geprüft werden ob der Wert von TextBox-A schon vorhanden ist in dieser INI-Datei und wenn ja diesen Wert nicht erneut speichern.

Code:
'Profil hinzufügen
Private Sub profil_erstellen_Click()

gleichernick = GetIniString(nick, "", "", INIFile)

If Trim$(nickname.Text) = gleichernick Then
MsgBox "Dieses Profil existiert bereits!", 64
Else
'Profil speichern
WritePrivateProfileString nickname.Text, _
Trim$("Nickname"), nickname.Text, INIFile

Nicht wundern, ich bin nicht sonderlich begabt in programmieren. Eher eine Ansammlung von Tuturial-Codeschnippsel :rolleyes:

nick und gleichernick hab ich als Global gespeichert sind also nicht im Code als Lokal gespeichert.

Und eine zweite kleine Frage zur WritePrivateProfileString. Gibt es die Möglichkeit mittels einen WritePrivateProfileString befehls gleich mehrere TextBox Werte gleichzeitig zu speichern, oder muss ich für jede TextBox jeweils ein eigenen WritePrivateProfileString Befehl einfügen?
 
Hallo Ihr...

Ich "versuche" (ich bin nicht wirklich gut darin ^^) gerade, eine Art "Adressbuch" in VB6 zu schreiben, jedoch komm ich nicht so wirklich weiter, weil ich folgendes nicht hinbekomme:

Wenn ich auf Button-A klicke soll der Wert aus TextBox-A in einer INI-Datei gespeichert werden (das funktioniert ja auch). Jedoch soll beim Klick auf Button-A gleichzeitig geprüft werden ob der Wert von TextBox-A schon vorhanden ist in dieser INI-Datei und wenn ja diesen Wert nicht erneut speichern.

Code:
'Profil hinzufügen
Private Sub profil_erstellen_Click()

gleichernick = GetIniString(nick, "", "", INIFile)

If Trim$(nickname.Text) = gleichernick Then
MsgBox "Dieses Profil existiert bereits!", 64
Else
'Profil speichern
WritePrivateProfileString nickname.Text, _
Trim$("Nickname"), nickname.Text, INIFile

Nicht wundern, ich bin nicht sonderlich begabt in programmieren. Eher eine Ansammlung von Tuturial-Codeschnippsel :rolleyes:

nick und gleichernick hab ich als Global gespeichert sind also nicht im Code als Lokal gespeichert.

Und eine zweite kleine Frage zur WritePrivateProfileString. Gibt es die Möglichkeit mittels einen WritePrivateProfileString befehls gleich mehrere TextBox Werte gleichzeitig zu speichern, oder muss ich für jede TextBox jeweils ein eigenen WritePrivateProfileString Befehl einfügen?

Der Ansatz ist doch schon richtig. Wert aus der ini-Datei lesen und mit dem Inhalt der TextBox vergleichen.
Um mehrere Werte zu speichern musst Du die TextBoxen als Steuerelementenfeld erstellen. Dann kannst Du über deren Index in einer For-Schleife in die ini-Datei schreiben.
 
Gut, das mit der For-Schleife ist mir ja völlig entfallen, danke.
Jedoch komme ich mit den Werte vergleichen nicht weiter, ich weiß nicht was daran genau falsch ist. Irgendwas da haut ja noch nicht hin, ein kleiner Codeschnipsel würde mir evtl. weiterhelfen.
 
Zurück