Hej
Har konstaterat att en textfil kan ha olika typer av radbrytningar.
Vissa fungerar inte i Notepad men gör det i Textpad och Wordpad.
Dom som inte fungerar i Notepad (allt kommer på en lång rad..) fungerar heller inte med VB6 koden:

Dim Fil, FilNr, R, TextRad
Fil = C:\Test.txt
FilNr = FreeFile
Open Fil For Input As #FilNr
R = 1
Do While Not EOF(FilNr)
    Line Input #FilNr, TextRad
    R = R + 1
Loop
Close #FilNr

Börja med att göra korrekt deklaration .
Har inte testat men det kanske löser sig med denna enkla åtgärd.

<code>
Dim Fil As String, FilNr As Long, R As Long, TextRad As String

Fil = "C:\Test.txt"
FilNr = FreeFile
Open Fil For Input As #FilNr
R = 1
Do Until EOF(FilNr)
Line Input #FilNr, TextRad
R = R + 1
Loop
Close #FilNr
</code>

Vilket djä... trams att skriva så här med negationer .
Till vilket syfte.Komplicerade hjärnor.

<code>
Do While Not EOF(FilNr)
</code>

<b>"Look at the bright side"</b>

<b>Do until .....</b>

Kör tills det ryker ;-)

Sen funderar jag på hur använder du <b>TextRad</b> varje gång i loopen ?