03. august 2005 - 14:17Der er
14 kommentarer og 1 løsning
FSO Læse alt på nær linier med visse ord
Kan man med FSO læse en tekstfil men udelade de linier der starter med bestemte ord:
Jeg skal undgå ordet "AM," og "UM,"
Min kode ser ud som følger:
Dim fso, f, filespec Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("../NN/fil.log") Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream Linie = f.ReadLine arrM = Split(Linie,"|") If not isNumeric(Left(arrM(2), 2)) AND ### her er problemet ### Then response.write(arrM(2)) response.write("<br>") end if Loop f.Close
<% Dim fso, f, filespec Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("fil.log") Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream Linie = f.ReadLine arrM = Split(Linie,"|")
For i = 0 to UBound(arrM) If not isNumeric(Left(arrM(i), 2)) AND Left(Linie,2) <> "UM" AND Left(Linie,2) <> "AM" Then response.write(arrM(i)) response.write("<br>") end if Next Loop f.Close %>
musicchart.dk >> Nej, det skal ikke være et loop i et loop, arrM(2) tager det tredie indeks i det array der kommer ud af split-funktionen. Jeg vil tro det er fordi hver linie i log-filen er delt op i sektioner adskilt af pipe (|) og hver linie har en kommando i starten som angiver hvilken type log der er tale om... eller hvad jean?
Synes godt om
Slettet bruger
03. august 2005 - 14:48#8
softspot -> korrektomundo
men sjovt nok filtrerer den ikke UM og AM fra selvom jeg bruger:
If not isNumeric(Left(arrM(2), 2)) AND Left(Linie,2) <> "UM" AND Left(Linie,2) <> "AM" Then
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
