læs min tekstfil omvent

så kan du vel læse alle filerne ind i et array og bruge step-1 istedet

For i = UBound(arr) To 0 Step -1
    Response.Write(arr(i))&"<br />"
Next

Du kan mig bekendt ikke LÆSE filen omvendt, men når først du har læst den ind, står det dig frit for at udskrive den omvendt.

Sædvanligvis læser man tekstfilen ind i - eksempelvis - et array.

Når du så skal udskrive det, laver du bare et loop der først udskriver det sidste af dit array. Du kan f.eks. have en tæller, der stiger for hver gang du har indlæst en linie af din tekstfil, og når du så skal udskrive, har du automatisk et index for hvor stort dit array er: Bare læs din tæller. Så begynder du at tælle ned igen, efterhånden som du udskriver linierne i omvendt rækkefølge.

Om du så ikke lige vil udskrive linierne, kan du bare lave en strengkonkatenering, så du til sidst har en samlet streng, der indeholder tekstfilen med linierne i omvendt rækkefølge.

Grrr. Jeg hader når jeg kommer til at svare samtidig med en anden. :-)

<%
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.OpenTextFile("d:\websites\test.txt", 1)
contents = filetxt.ReadAll
ArrContents = split(contents,vbcrlf)
for i = ubound(arrcontents) to 0 step -1
response.write arrcontents(i)
next
filetxt.close
%>

eller sådan her:

<%
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.OpenTextFile("d:\websites\test.txt", 1)

do until filetxt.AtEndOfStream
Contents = contents & filetxt.readline & "~"
loop

ArrContents = split(contents,"~")
for i = ubound(arrcontents) to 0 step -1
response.write arrcontents(i)
next

filetxt.close
%>

kunne du bruge det ?