7 svar · 242 visningar · startad av Asa
Hur skriver jag ut de 300 senaste raderna ifrån en txt fil?
Denna kod har jag nu:
set fil = fso.OpenTextFile(Server.Mappath("chat.txt"), 1 )
arrFsoLines = Split(fil.ReadAll, vbcrlf)
For i = 1 To ubound(arrFsoLines)%>
<%=arrFsoLines(i)%><br>
<%Next
fil.Close
Och hur får jag scrollen å komma längst ner efter varje messpostning eller reload?
På a svarar jag
set fil = fso.OpenTextFile(Server.Mappath("chat.txt"), 1 )
arrFsoLines = Split(fil.ReadAll, vbcrlf)
if ubound(arrFSOlines) >= 299 then s = ubound(arrFSOlines) - 299 else s = 0
For i = s To ubound(arrFsoLines)%>
<%=arrFsoLines(i)%><br>
<%Next
fil.Close
på b svarar jag
?
så man slipper scrolla ner till senaste inlägget. Den ska automatiskt komma dit! Nån sa nåt om denna kodsnutt:
<script>
window.scrollTo( 0, 400000 );
</script>
Men den kommer inte ner längt ner :/
Det är nog bättre att ställa den frågan i Javascript-forumet.
Ja - kanske det! Tackar för ditt svar på a :)
Hur får jag <br> i min kod att inte printas ut efter sista messet?
arrFsoLines = Split(fil.ReadAll, vbcrlf)
if ubound(arrFSOlines) >= 300 then s = ubound(arrFSOlines) - 300 else s = 0
For i = ubound(arrFsoLines) To s step -1)%>
<%=arrFsoLines(i)%><br>
<%Next
fil.Close
I detta fall kommer det ett <br> längst upp som jag inte vill ha!
<%=arrFsoLines(i)%>
<%if s <> i then response.write "<br>"
Hmm - blir ändå en <br> :(
Fick en javascriptkod om det jag skrev förut scrollTo så jag kör att de skrivs ut uppifrån å ner till en början!
Men om nån kommer på nåt så e jag tacksam!