line voor line lezen

[infur]

ik wil dat mijn applicatie het .txt bestand in verschillende regels deelt en leest, maar het lukt niet. bv line1 = "de tekst op regel1" line2 = "de tekst op regel2"
bij voorbaad dank.

 

[evertVB]

Wat heb je al geprobeerd en wat lukt er niet?

 

[That Guy]

vb6:

dim ff as integer
dim sGet as string
dim sTmp() as string

ff = freefile
sGet = space(filelen("C:\bla.txt"))

open "C:\bla.txt" as binary for #ff
   get #ff,,sGet
close #ff

sTmp = split(sGet,vbcrlf)

nu kan je dus zoiets doen:

msgbox sTmp(0)[COLOR="SeaGreen"] ' = regel 1[/COLOR]
msgbox sTmp(1) [COLOR="SeaGreen"]' = regel 2[/COLOR]
[COLOR="SeaGreen"]'etc.[/COLOR]