hämta 10 senaste raderna i en txt fil och skriv ut

9 svar · 243 visningar · startad av Qimen 16 mars 2003

QimenMedlem sedan juni 20015 009 inlägg

Frågan16 mars 2003 20:23#1

Hej

Hur gör man för att en sida ska hämta de 10 senaste raderna från en loggfil (mirclogg) och skriva ut dem och sedan uppdatera sidan var tionde sekund och se om det har skrivits något nytt?

Vill även kunna designa sidan och måste ha det i asp. :)

SebbeMedlem sedan jan. 20032 285 inlägg

16 mars 2003 20:39#2

<meta http-equiv="refresh" content="10">
<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile("loggfilen.txt",1)

For i = 1 To 10
  Response.Write(objTS.ReadLine)
Next

objTS.Close
Set objTS = Nothing
Set objFSO = Nothing
%>

QimenMedlem sedan juni 20015 009 inlägg

16 mars 2003 20:49#3

Mysko. Jag får bara felmeddelande om att den inte hittar filen. Ändå ligger scriptet i rooten samt txt filen ?

SebbeMedlem sedan jan. 20032 285 inlägg

16 mars 2003 20:51#4

<meta http-equiv="refresh" content="10">
<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("loggfilen.txt"),1)

For i = 1 To 10
  Response.Write(objTS.ReadLine)
Next

objTS.Close
Set objTS = Nothing
Set objFSO = Nothing
%>

QimenMedlem sedan juni 20015 009 inlägg

16 mars 2003 20:51#5

Sen hur gör man för att det ska bli de tio sista raderna och inte de första? och så att de kommer på varsin rad?

SebbeMedlem sedan jan. 20032 285 inlägg

16 mars 2003 20:55#6

<meta http-equiv="refresh" content="10">
<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("loggfilen.txt"),1)

arrFil = Split(objTS.ReadAll,vbCrLf)

For i = UBound(arrFil) To (UBound(arrFil) - 10) Step -1
  Response.Write(arrFil(i) & "<br>" & vbCrLf)
Next

objTS.Close
Set objTS = Nothing
Set objFSO = Nothing
%>

Kanske det funkar? Har inte kunnat testa dock.

QimenMedlem sedan juni 20015 009 inlägg

16 mars 2003 21:00#7

Hepp tack för hjälpen.
Funkar fint nu.
http://qimen.mine.nu/test.asp

SebbeMedlem sedan jan. 20032 285 inlägg

16 mars 2003 21:06#8

Är det någon wF kanal du är inne i eller? :)

QimenMedlem sedan juni 20015 009 inlägg

16 mars 2003 21:09#9

Jepp på #webforum @ Dalnet

SebbeMedlem sedan jan. 20032 285 inlägg

16 mars 2003 21:32#10

<meta http-equiv="refresh" content="10">
<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("loggfilen.txt"),1)

arrFil = Split(objTS.ReadAll,vbCrLf)

For i = UBound(arrFil) To (UBound(arrFil) - 10) Step -1
  strFil = strFil & arrFil(i) & "<br>" & vbCrLf
Next

objTS.Close
Set objTS = Nothing
Set objFSO = Nothing

Set objRE = New Regexp
objRE.Global = True
objRE.IgnoreCase = True
objRE.Pattern = "http:\/\/(^\.*).(\S*)"
strFilReplace = objRE.Replace(strFil,"<a href=""http://$1.$2"" target=""_blank"">[url]http://[/url]$1.$2</a>")
Set objRE = Nothing

Response.Write(strFilReplace)
%>

Gör för säkerhetens skull en säkerhetskopia av det gamla scriptet innan du testar det här :)