Speichern und Einlesen von Listenfeldinhalten Dieser Tipp zeigt, wie man die Einträge eines Listbox-Elements in eine Datei speichert und wieder ausliest.
Autor:   Heinz Prelle	Bewertung:     [ Jetzt bewerten ]	Views:  23.306
www.visual-basic5.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 47 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Dieser Tipp demonstriert, wie man den Inhalt eines Listbox-Steuerelements, d.h. die einzelnen Listen-Einträge, in eine Datei speichern und später wieder einlesen kann.

' Alle Einträge einer ListBox speichern
Public Function ListeSave(Liste As ListBox, _
  ByVal sDatei As String) As Boolean
 
  Dim F As Integer
  Dim I As Integer
 
  ' Fehlerbehandlung einschalten
  On Local Error Goto ListeSave_Error
 
  ' Datei öffnen und Einträge speichern
  F = FreeFile
  Open sDatei For Output As #F
  For I = 0 To Liste.ListCount - 1
    Print #F, Liste.List(I)
  Next I 
  Close #F
  ListeSave = True
  Exit Function
 
ListeSave_Error:
  ListeSave = False
End Function

Die Funktion ListeSave erwartet zwei Parameter:

Liste	ListBox-Steuerelement, dessen Listen-Einträge gespeichert werden sollen
sDatei	Dateiname inkl. Pfadangabe

Die einzelnen Einträge der Liste werden zeilenweise in die Datei geschrieben. Sollte während des Schreibvorgangs irgendein Fehler auftreten, so wird der Wert False zurückgegeben, anderfalls True.

' Listen-Elemente aus Datei lesen
Public Function ListeRead(Liste As ListBox, _
  ByVal sDatei As String) As Boolean
 
  Dim F As Integer
  Dim Zeile As String
 
  ' Fehlerbehandlung einschalten
  On Local Error Goto ListeRead_Error
 
  ' Datei öffnen und Einträge einlesen
  F = FreeFile
  Open sDatei For Input As #F
  While Not EOF(F)
    Line Input #F, Zeile
    Liste.AddItem Zeile
  Wend
  Close #F
  ListeRead = True
  Exit Function
 
ListeRead_Error:
  ListeRead = False
End Function

Die Funktion ListeRead erwartet zwei Parameter:

Liste	ListBox-Steuerelement, dessen Listen-Einträge gelesen werden sollen
sDatei	Dateiname inkl. Pfadangabe

Die einzelnen Einträge der Liste werden zeilenweise aus der Datei gelesen und der Liste hinzugefügt. Sollte während des Einlesens irgendein Fehler auftreten, so wird der Wert False zurückgegeben, anderfalls True.