Toon posts:

[vb] listitems uit bestand halen

Pagina: 1
Acties:

Verwijderd

Topicstarter
Hoe kan ik de items in een listbox uit een txt-bestand lezen(als elke regel bijv. een item is), ik heb al het een en ander geprobeerd maar het lukt niet.
En natuurlijk het terugschrijven van een list naar dat txt-bestand.

Ik wil nl. een progje maken met var. items in een list die die onthoud tot de volgende keer dat het progje wordt gestart. Ik kan het wel in het registry opslaan maar dat past niet bij mijn bedoelingen omdat ik de lijst ook wil aan kunnen aanpassen in een tekstverwerker zoals kladblok.

Verwijderd

Wat is het probleem. Weet je niet hoe je bestanden uit een txt bestandje moet halen. Of weet je niet hoe je deze in een listbox moet zetten??
Dit tweede lijkt me namelijk niet zo ingewikkeld.

  • Korben
  • Registratie: Januari 2001
  • Laatst online: 14-11-2025

Korben

() => {};

Stel je hebt een ListBox lstList...
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub ReadItemsFromFile(FileName As String)
   Dim hFile As Integer, strLine As String

   hFile = FreeFile
   Open FileName For Input As #hFile

   lstList.Clear

   Do Until EOF(hFile)
    Line Input #hFile, strLine

    lstList.AddItem strLine
   Loop

   Close hFile
End Sub

Sub WriteListToFile(FileName As String)
   Dim hFile As Integer, I As Integer

   hFile = FreeFile
   Open FileName For Output As #hFile

   For I = 0 To lstList.ListCount - 1
    Print #hFile, lstList.List(I)
   Next I

   Close hFile
End Sub

Satisified? :z

.oisyn: Échte programmeurs haten PHP met een passie. Ben jij soms geen echte programmeur?