Søge og slette linjer i en txt fil med ASP..

Sådan her:


<%
orgfilnavn = Server.MapPath("log.txt")
okfilnavn = Server.MapPath("log_ok.txt")
failfilnavn = Server.MapPath("log_fail.txt")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set orgfil = FSO.OpenTextFile(orgfilnavn)
'8 betyder for Appending så en tilføre til enden af filen skal du overskrive filen skal der stå 2
Set okfil = FSO.OpenTextFile(okfilnavn,8,true)
Set failfil = FSO.OpenTextFile(failfilnavn,8,true)

do while not orgfil.AtEndOfStream
  str = orgfil.ReadLine
  if instr(1,str,"connection ok",1) > 0 then
    okfil.writeline (str)
  end if
  if instr(1,str,"connection fail",1) > 0 then
    failfil.writeline (str)
  end if
loop

Set orgfil = Nothing
Set okfil = Nothing
Set failfil = Nothing
Set fso = Nothing
%>


Til orientering kan man ikke slette linjer fra en text fil.

hejsa .. jeg får den her fejl

Microsoft VBScript compilation error '800a0400'

Expected statement

/split/split.asp, line 3

okfilnavn = Server.MapPath("log_ok.txt")

har rodet lidt med det .. og syntes ikke det vil fungere uanset hvad jeg gør

Jeg kan ikke se noget galt med den linje. Hvis du copy/paster direkte ind i din editor så prøv at paste det som HTML kode, eller copy/paste det ind i notepad først. Jeg har set eksperten har tilføjet nogle usynlige karakter som driller.

Okay .. jamen fik det til at fungere .. super fedt ! ! ! ! MEN JEG Har lige et sidste spørgsmål.. du skal nok få flere pont for det.

Jeg har en type log fil mere hvor der står en masse info fx..

ip 123.123.123.13
sendt via http://yadayada bla bla bla
d. 12-01-01
Klokken 1103

glem det det står ovenover. en halvfærdig post
Okay .. jamen fik det til at fungere .. super fedt ! ! ! ! MEN JEG Har lige et sidste spørgsmål.. du skal nok få flere pont for det.

Jeg har en type log fil mere hvor der skal soteres nogle linjer fra. 

ip 123.123.123.13
sendt via http://yadayada bla bla bla
d. 12-01-01
Klokken 1103
code 3
---------------------------------------------
ip 999.999.993.13
sendt via http://yadayada bla bla bla
d. 12-01-01
Klokken 1104
code 18

I denne log fil er det således at der er mange forskællige "code" kunne godt tænke mig at få kopieret der hvor der står "code 18" og fem linjer op og smidt det i en anden txt .. så alle "code 18" i den log kommer i en fil for sig..

Så kan du prøve at lave koden sådan her:


<%
orgfilnavn = Server.MapPath("logfil.txt")
code18filnavn = Server.MapPath("code18.txt")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set orgfil = FSO.OpenTextFile(orgfilnavn)
'8 betyder for Appending så en tilføre til enden af filen skal du overskrive filen skal der stå 2
Set code18fil = FSO.OpenTextFile(code18filnavn,8,true)

dim codeArr(5)
for i=0 to ubound(codeArr)
  codeArr(i)=""
next
do while not orgfil.AtEndOfStream
  str = orgfil.ReadLine
  'flyt gamle linjer og gem den nye linje
  for i = 0 to ubound(codeArr)-1
    codeArr(i) = codeArr(i+1)
  next
  codeArr(ubound(codeArr))=str
  if instr(1,str,"code 18",1)=1 then
    for i=0 to ubound(codeArr)
      code18fil.writeline codeArr(i)
    next
  end if
loop

Set orgfil = Nothing
Set code18fil = Nothing
Set fso = Nothing
%>

Fik du det til at virke?  Det kunne være rart med lidt feedback :)

hov nej den sidste virker ikke lige som jeg regnede med .,.. men får heller ikke brug for det alligevel.. sry for så sent svar.. point er dine