| Von |
Thorsten |
| Am |
12. April 2008 um 19:21:16 |
| Frage |
Guten Tag,
Wie soll ich anfangen?
Also ich schreibe in zwei Textfeldern etwas (Username und Passwort). Das soll in einer .TXT-Datei gespeichert werden.Private Sub cmd_registrieren_ok_Click()
i = Val(Text1.Text)
datei = "login.txt"
file = FreeFile
Open datei For Random As file Len = Len(anmelden(i))
anmelden(i).benutzername = txt_registrieren_login.Text
anmelden(i).passwort = txt_registrieren_passwort1.Text
Put file, i, anmelden(i)
Close file das Deklarieren hab ich in einem Modul gespeichert.Public anmelden(1 To 9999) As type_anmelden
Public Type type_anmelden
benutzername As String * 25
passwort As String * 25
End Type
Public i As Long Also, ich muss in das Textfeld1 eine zahl eintippen (Datensatznummer) und er speichert das in der Datensatznummer ab. Das klappt alles so weit.
In der Datei (login.txt) speichert er alles in einer Reihe ab mit der zeichenlänge, die ich im gegeben habe. Also, erst den benutzername mit leerstellen damit die 25 Zeichen voll werden und dann das passwort mit leerzeichen damit die 25 zeichen voll werden.
[code=]a s y x q w [/code]
nur ist jetzt das problem, das ich gerne das automatisch machen will. Das heißt, das er die nächste Datensatznummer nehmen soll. In meinem Fall wäre es die 4 weil ich schon 3 Datensätze habe.Private Sub cmd_registrieren_ok_Click()
i = Val(Text1.Text)
datei = "login.txt"
file = FreeFile
Open datei For Random As file Len = Len(anmelden(i))
Do While Not EOF(file)
If x < 1 Then
x = 1
End If
If x >= 1 Then
Get file, x, anmelden(x)
x = x + 1
End If
Loop
MsgBox x & " Benutzer"
Close file Nur da ist das problem, das er mir sagt, das ich 5 Benutzer habe, anstatt 3.
Ich hoffe ihr habt mich verstanden und könnt mir helfen.
MfG
Thorsten |
|
Zum Seitenanfang