vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück
Rubrik: Controls · ListBox   |   VB-Versionen: VB4, VB5, VB616.01.01
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 PrelleBewertung:     [ Jetzt bewerten ]Views:  23.394 
www.visual-basic5.deSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

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:

ListeListBox-Steuerelement, dessen Listen-Einträge gespeichert werden sollen
sDateiDateiname 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:

ListeListBox-Steuerelement, dessen Listen-Einträge gelesen werden sollen
sDateiDateiname 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.
 

Dieser Tipp wurde bereits 23.394 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Aktuelle Diskussion anzeigen (3 Beiträge)

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel