[VB] file regel voor regel in var's zetten *

[Verwijderd]

Voor een programma heb ik nodig dat als ik een txt bestand inleest, hij regel voor regel in een aparte variabel zet.
Hoe werkt dat precies? In mn VB boek staat er nix in.

En hoe kan je als een text bestand al enige regels heeft, zorgen dat het programma niet over de regels heen schrijft, maar onderaan verder gaat.

grtzjim

[Glimi]

Waarom kan het niet in een array ingelezen worden?

[Verwijderd]

kan je met variabelen ook arrays maken???

Ik dag alleen met controls...

maar hoe moet dat dan precies?

[Sponge]

uit m'n hoofd...

code:

dim lngFreeFile as Long, strTemp as string
dim linearray() as string

lngFreeFile = FreeFile
open filename for binary as #lngfreeFile
strtemp = Space$(lof(lngfreefile))
get #lngfreefile,,strtemp
close #lngfreefile

linearray = split(strtemp,vbcrlf)

'//done.

het kan ook met line input... maar dat is meer typ werk

code:

dim strArray()
redim strarray(0)

do while not eof(lngfreefile)
 redim strarray(ubound(strarray)+1)
 line input #lngfreefile, strArray(ubound(strarray))
 lngCurrentLine = lngCurrentLine +1
loop
close #lngfreefile

'//done..array 1-ubound bevat de regels

* fouten onder voorbehoud

[muba]

Op maandag 06 mei 2002 13:20 schreef unknownjim het volgende:
[...] In mn VB boek staat er nix in.

En hoe kan je als een text bestand al enige regels heeft, zorgen dat het programma niet over de regels heen schrijft, maar onderaan verder gaat.

Dat laatste staat zeker wel in je VB boek, of je hebt echt een enorm #!$*&?!-boek.

open "file" for append as #1