FSO

9 svar · 228 visningar · startad av Asa 15 sep. 2002

AsaMedlem sedan dec. 20011 860 inlägg

Trådstart15 sep. 2002 21:32#1

Hur sorterar jag nerifrån textfilen å upp - alltså nyaste först:

Set fso = CreateObject("Scripting.FileSystemObject")

   set fil = fso.OpenTextFile(Server.Mappath(User & ".txt"), 1 )
   arrFsoLines = Split(fil.ReadAll, vbcrlf)

   For i = 0 To ubound(arrFsoLines)%>
     <%=arrFsoLines(i)%><br>
   <%Next

   fil.Close

Jesper TMedlem sedan nov. 20017 144 inlägg

15 sep. 2002 21:33#2

Går det?

PaceMedlem sedan juni 20019 024 inlägg

15 sep. 2002 21:33#3

   For i = ubound(arrFsoLines) To 0%>
     <%=arrFsoLines(i)%><br>
   <%Next

AsaMedlem sedan dec. 20011 860 inlägg

15 sep. 2002 21:33#4

Ingen aning :/

AsaMedlem sedan dec. 20011 860 inlägg

15 sep. 2002 21:34#5

Syns inget då :/

PaceMedlem sedan juni 20019 024 inlägg

15 sep. 2002 21:35#6

Oj, glömde:

  For i = ubound(arrFsoLines) To 0 step -1 %>
     <%=arrFsoLines(i)%><br>
   <%Next

LarsGMedlem sedan dec. 200012 464 inlägg

15 sep. 2002 21:35#7

For i = ubound(arrFsoLines) To 0 step -1 %>
     <%=arrFsoLines(i)%><br>
   <%Next

AsaMedlem sedan dec. 20011 860 inlägg

15 sep. 2002 21:36#8

Funkade fint LarsG. Tackar Men hur får jag bort den sista radbrytningen! Den skrivs ut först!

Sparas med denna kod

   Info   = FormatDateTime(Now,4) & " | <b>" & User & "</b> - " & Request.Form("info")

   Set fso = CreateObject("Scripting.FileSystemObject")
   Set fil = fso.OpenTextFile(Server.Mappath(User & ".txt"), 8 )

   fil.WriteLine(Info)

   fil.close

LarsGMedlem sedan dec. 200012 464 inlägg

15 sep. 2002 21:55#9

Nu förstår jag inte, då du gör split så tar du ju bort alla crlf.

AsaMedlem sedan dec. 20011 860 inlägg

15 sep. 2002 21:59#10

Okej men det behövs inte!