Læs en bestem linie i en *.log fil

Lost-sniper>> Husk at ændre log.txt til navnet på din log fil.

Hvis du vil have kommentarer i koden, så sig til.

//Claus


----------------------------------------------

<html>
<head>
<title>Læse log</title>
</head>
<body>
<%
Dim fso, f, filespec
Set fso = CreateObject(\"Scripting.FileSystemObject\")
filespec = Server.Mappath(\"log.txt\")
Set f = fso.OpenTextFile(filespec,1)

\' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
  text  = f.ReadLine
  cha    = chr(34)
 
  pos1  = instr(1,text,cha,1)
  pos1a  = instr(pos1,text,\"<\",1)
  antal1 = pos1a-pos1-1

  pos2  = instr(pos1+1,text,cha,1)

  pos3  = instr(pos2+1,text,cha,1)
  pos3a  = instr(pos3,text,\"<\",1)
  antal3 = pos3a-pos3-1

  pos4  = instr(pos3+1,text,cha,1)
 
  pos5  = instr(pos4+1,text,cha,1)
  pos5a  = instr(pos5+1,text,cha,1)
  antal5 = pos5a-pos5-1


  player = mid(text,pos1+1,antal1)
  killed = mid(text,pos3+1,antal3)
  veapon = mid(text,pos5+1,antal5)

  Response.write \"Player:    \" & player & \"<br>\"
  Response.write \"Killed by: \" & killed & \"<br>\"
  Response.write \"Veapon:    \" & veapon & \"<br>\"
  Response.write \"Date: \" & mid(text,3,10) & \"<br>\"
  Response.write \"\" & \"<br>\"
  Response.write \"-----------------------------\" & \"<br>\"
  Response.write \"\" & \"<br>\"
Loop

f.Close
%>
</body>
</html>

Du skriver noget om at de skal læses hver for sig. Betyder det, at du kun vil vise en enkelt af linierne?

For ovenstående viser samtlige linier.

//Claus

nordclc...kan du ikke give mig en forklaring...har længe ville lære Manipulation af Dim koder?

Jeg er ikke så stiv i Dim koder, så jeg håber du får lidt mere ud af at læse disse sider: http://www.html.dk/tutorials/asp/

//Claus

okey takker