Læs fra forskellige text filer

Her er et eksempel som læser alle filer i en mappe

Dim filesys, demofolder, fil, filecoll, filist
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder("foldername") 
Set filecoll = demofolder.Files
For Each fil in filecoll
    filist = filist & fil.name 
    filist = filist & "<BR>" 
Next 
Response.Write filist
%>

Prøv at se om du ikke kan bruge det til noget, med hensyn til at lægge linie 1 og 5 over i en variabel bliver du nok nødt til selv at lave en tæller til at holde styr på linienumrene.

Man er nød til at læse ad gangen. og som bertie skriver lave noget som tæller linje nummer:

<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
Set ofolder = fso.GetFolder(Server.Mappath("/info/"))
str = ""
for each file in ofolder.files
  filespec = Server.Mappath("/info/" & file.name)
  Set f = fso.OpenTextFile(filespec,1)

  ' Læs linie for linie indtil slutningen af filen
  linje=1
  Do While not f.AtEndOfStream
    tmpstr = f.ReadLine
    if linje=1 then
      str = str & tmpstr
    end if
    if linje=5 then
      str = str & tmpstr
    end if
    linje=linje+1
  Loop
next

f.Close
%>

tak, eagleeye det virker

ok et svar så :)