fso søg og hop

Du vil hive en enkelt linie ud af et txt-dokument og skrive det ud på en side? Jeg er ikke helt med på at "hoppe x antal linier ned bagefter" :o)

Er det mon sådan noget du mener?

<%
    Const openForReading = 1
    Const openForWriting = 2
    Const openForAppending = 8
    Dim fso, f, txtStream
    Dim fileName, strText
    dim count
    fileName = Server.Mappath("filsomskalaabnes.txt")

    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(fileName)
    Set txtStream = f.OpenAsTextStream(openForReading)

    Do While Not txtStream.AtEndOfStream
        strText = txtStream.ReadLine
        if strText = "det som man søger efter" then
        'antal linier som du vil springe eks 8
        count = 8
       
    end if
    if count <>0 then
      count = count -1
    else
      'den ønskede linie 8 liner længere nede
      response.write strText
    end if

    Loop


    txtStream.Close
    Set txtStream = Nothing
    Set f = Nothing
    Set fso = Nothing
%>

Ovenstående kan udvides så den igen kan søge efter en line y linier længere nede.

Det jeg mente var

Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("filsomskalaabnes.txt")
Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream

    line = f.readline

if Left(line , 19) = "Chassis Information" then
f.SkipLine
response.write f.readline & "<br>"
f.SkipLine
f.SkipLine
response.write f.readline
end if

Loop

f.Close

Men det gir jeg dey samme :-)

Men det gir jeg dey samme = Men det gir jo det samme