Dim sTextRad As String, sAllText As String, file_name As String
'.........
'.........
fnum = FreeFile
Open file_name For Input As #fnum
Do Until EOF(fnum)
Line Input #fnum, sTextRad
sAllText = sAllText & sTextRad
Loop
Frågan#1
Hej!
jag öppnar en fil på följande sätt.
fnum = FreeFile
Open file_name For Output As fnum
GetFileLine = Input(LOF(fnum), fnum)
Hur gör jag om jag vill loopa igenom filen och läsa rad för rad?