VB-Homepage Tipp 011

Beispiele Daten einlesen / ablegen

Als simples Beispiel nehmen wir an, Sie möchten die Eingaben die der Programmnutzer in die Textfelder 1-3 eingegeben hat, (der einfachheithalber zusammenfassen und in eine Datei speichern.

Basteln Sie also für dieses Beispiel (Datei schreiben) einen Commandbutton und drei Textfelder, dann (Datei auslesen) einen Commandbutton und ein Textfeld sowie (Datei auslesen) einen Commandbutton und eine Listbox auf Ihre Form.

Sub Command1_Click ()
Dim Gesamt As String

Gesamt = Text1.Text + "|" + Text2.Text + "|" + Text3.Text

'Öffnen der Datei / Datei1 = Dateiname / ohne Pfad = aktuelles Verzeichnis
Open "Datei1" For Append As #1  ' Append = Schreiben,Anhängen (auch neu)
   Print #1, Gesamt                     'Schreibt nun den Text in die Datei
Close #1                                   'Schließen der Datei

End Sub

Sub Command2_Click ()
Dim Gesamt As String

'Öffnen der Datei / Datei1 = Dateiname / ohne Pfad = aktuelles Verzeichnis
Open "Datei1" For Input As #1     'Input = Lesen
   Line Input #1, Gesamt
   Text4.Text = Gesamt
Close #1                                   'Schließen der Datei

End Sub

Sub Command3_Click ()
Dim Gesamt As String

List1.Clear                                 'Säubert die Listbox vor dem neuen füllen

'Öffnen der Datei / Datei1 = Dateiname / ohne Pfad = aktuelles Verzeichnis
Open "Datei1" For Input As #1     'Input = Lesen

    Do While Not EOF(1)               'Schleife, bis alle Datensätze gelesen sind
       Line Input #1, Gesamt
       List1.AddItem Gesamt          'fügt die gelesenen Daten in eine Listbox ein
    Loop
Close #1

End Sub


Tipp-Download

Quelle :

Zurück zur Übersichtsseite