Jag har en txt-fil som jag vill läsa ur rad för rad. Hur gör jag det då varje rad innehåller olika antal tecken.

Här finns kanske lite nyttigt du kan använda:

<code>
Set fs=Server.CreateObject("Scripting.FileSystemObject")
sokvag= "Filnamn.txt"
Set f=fs.OpenTextFile(Server.MapPath(sokvag), 1)

do while f.AtEndOfStream <> true

Rad1 = f.ReadLine


Pos1 = InStr(1, Rad1, "-BAD", 1)


If Pos1 > 0 Then
Pos5 = InStrRev(Rad1, "(", Pos1, 1)
Pos6 = InStrRev(Rad1, ")", Pos5, 1)
Koll1 = Mid(Rad1, Pos6 + 2, Pos5 - ( Pos6 + 2))
Loop
</code>

// Macke