Randomdatein sind wichitge Dateitypen, die für Konfugurationsdateien genutz werden können.
1. Müssen wir eine Type definieren, die so wie sie ist in eine Zeile der Randomdatei geschreiben wird:
<<<<CODE>>>>
Private Type Angestellter
PersNr As Integer
Name As String * 20
Adresse As String * 30
Telefon As Long
Einstellungsdatum As Date
End Type
<<<</CODE>>>>
Danach müssen wir die daten eingeben und in die Datei schreiben
<<<<CODE>>>>
Private Sub cmdWrite_Click()
Dim Ag As Angestellter
Ag.PersNr = 1
Ag.Name = "Müller"
Ag.Adresse = "Irgendeinestraße"
Ag.Telefon = "01234567890"
Ag.Einstellungsdatum = Date
Open "C:\test.rnd" For Random As #1
Put #1, 1, Ag
Close #1
End Sub
<<<</CODE>>>>
Das Schreibe der Datei wird mittels der Put funktion gemacht...
Put (#Dateinummer, Zeile der Datei, Variable die dort hineingeschreiben werden soll)
Danach können wir dei Datei wieder auslesen.
<<<<CODE>>>>
Private Sub cmdRead_Click()
Dim Ag As Angestellter
Open "C:\test.rnd" For Random As #1
Get #1, 1, Ag
Close #1
'... = Ag.Name
'usw...
End Sub
<<<</CODE>>>>