FSO læse fra en tekst fil

Måske skal du stille et spm... ellers får nu nok ikke et svar...

Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("fil.txt")
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
  streng = streng & f.ReadLine
Loop

f.Close

myArray = split(streng,":")
response.write(myArray(0))
%>

ok jeg har linien

[05-31-2003 - 18:47:09] 192.168.1.3:

jeg vil gerne kun pille IP nummeret ud og liste det, som du ser er der også : i datoen

Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("fil.txt")
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
  streng = streng & f.ReadLine
Loop

f.Close

myArray = split(streng,"] ")
response.write(myArray(0))
%>

Ups...
2 sek.!

<%
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("fil.txt")
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
  streng = streng & f.ReadLine
Loop

f.Close

myArray = split(streng,"] ")
myArr = split(myArray(1),":")
response.write(myArr(0))
%>

Sådan nu får du kun ipen...

det er vist mere i det en som det jeg har beskrevet.
Filen jeg vil læse er en logfil fra Microsoft URLScan og den ser sådan ud

[05-31-2003 - 09:13:33] ---------------- Initializing UrlScan.log ----------------
[05-31-2003 - 09:13:33] -- Filter initialization time: [05-31-2003 - 09:13:33]  --
[05-31-2003 - 09:13:33] ---------------- UrlScan.dll Initializing ----------------
[05-31-2003 - 09:13:33] UrlScan will return the following URL for rejected requests: "/<Rejected-By-UrlScan>"
[05-31-2003 - 09:13:33] URLs will be normalized before analysis.
[05-31-2003 - 09:13:33] URL normalization will be verified.
[05-31-2003 - 09:13:33] URLs must contain only ANSI characters.
[05-31-2003 - 09:13:33] URLs must not contain any dot except for the file extension.
[05-31-2003 - 09:13:33] Only the following verbs will be allowed (case sensitive):
[05-31-2003 - 09:13:33]     'GET'
[05-31-2003 - 09:13:33]     'HEAD'
[05-31-2003 - 09:13:33]     'POST'
[05-31-2003 - 09:13:33] Requests for following extensions will be rejected:
[05-31-2003 - 09:13:33]     '.exe'
[05-31-2003 - 09:13:33]     '.bat'
[05-31-2003 - 09:13:33]     '.cmd'
[05-31-2003 - 09:13:33]     '.com'
[05-31-2003 - 09:13:33]     '.htw'
[05-31-2003 - 09:13:33]     '.ida'
[05-31-2003 - 09:13:33]     '.idq'
[05-31-2003 - 09:13:33]     '.htr'
[05-31-2003 - 09:13:33]     '.idc'
[05-31-2003 - 09:13:33]     '.shtm'
[05-31-2003 - 09:13:33]     '.shtml'
[05-31-2003 - 09:13:33]     '.stm'
[05-31-2003 - 09:13:33]     '.printer'
[05-31-2003 - 09:13:33]     '.ini'
[05-31-2003 - 09:13:33]     '.log'
[05-31-2003 - 09:13:33]     '.pol'
[05-31-2003 - 09:13:33]     '.dat'
[05-31-2003 - 09:13:33] Requests containing the following headers will be rejected:
[05-31-2003 - 09:13:33]     'translate:'
[05-31-2003 - 09:13:33]     'if:'
[05-31-2003 - 09:13:33]     'lock-token:'
[05-31-2003 - 09:13:33] Requests containing the following character sequences will be rejected:
[05-31-2003 - 09:13:33]     '..'
[05-31-2003 - 09:13:33]     './'
[05-31-2003 - 09:13:33]     '\'
[05-31-2003 - 09:13:33]     ':'
[05-31-2003 - 09:13:33]     '%'
[05-31-2003 - 09:13:33]     '&'
[05-31-2003 - 11:41:51] Client at 81.112.189.14: URL normalization was not complete after one pass. Request will be rejected.  Site Instance='1', Raw URL='/scripts/..%255c%255c../winnt/system32/cmd.exe'
[05-31-2003 - 12:24:18] Client at 192.168.1.11: Sent verb 'OPTIONS', which is not specifically allowed. Request will be rejected.
[05-31-2003 - 12:58:02] Client at 62.140.75.121: URL contains extension '.ida', which is disallowed. Request will be rejected.  Site Instance='1', Raw URL='/default.ida'
[05-31-2003 - 15:04:13] Client at 62.211.233.136: URL contains extension '.ida', which is disallowed. Request will be rejected.  Site Instance='1', Raw URL='/default.ida'
[05-31-2003 - 15:18:39] Client at 67.80.190.8: Sent verb 'CONNECT', which is not specifically allowed. Request will be rejected.
[05-31-2003 - 17:43:33] Client at 192.168.1.3: Sent verb 'OPTIONS', which is not specifically allowed. Request will be rejected.
[05-31-2003 - 18:10:19] Client at 62.138.212.245: URL contains extension '.ida', which is disallowed. Request will be rejected.  Site Instance='1', Raw URL='/default.ida'
[05-31-2003 - 18:47:09] Client at 192.168.1.3: Sent verb 'OPTIONS', which is not specifically allowed. Request will be rejected.
[05-31-2003 - 23:22:42] Client at 62.3.51.198: URL contains extension '.ida', which is disallowed. Request will be rejected.  Site Instance='1', Raw URL='/default.ida'



Som du kan se er den fyldt med special tegn.

Kan man ikke bruge Left og MID til det ??

<%
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("fil.txt")
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
  streng = streng & f.ReadLine
Loop

f.Close

myArray = split(streng,"Client at ")
for i=1 to UBound(myArray)
'response.write(myArray(i))
myArr = split(myArray(i),":")
response.write(myArr(0)) & "<br>"

next
%>

Så skulle den være der, altså så du kun får iperne ud af filen...

håber du ikke tager mig det ilde op at jeg lige spørge om noget andet,

FS.OpenTextFile(server.mappath(file.Name)

file.Name er jo en variabel men den kan jeg ikke skrive i mappath, eller sagt på en anden måde når jeg forsøger virker det ik

FS.OpenTextFile(Server.mappath("fil.txt"),1)

nej sorry ellebaek det jeg mener er at jeg vil bruge en variabel i mappath

Filen = blablabla.txt

FS.OpenTextFile(server.mappath(""&Filen&"")'Dette virker ikke

Filen = "blablabla.txt"
FS.OpenTextFile(server.mappath(Filen))

Filen = blablabla.txt

FS.OpenTextFile(server.mappath(Filen))

'=====LOOP FOLDER
Set fso = CreateObject("Scripting.FileSystemObject")
Set folderObject = fso.GetFolder(Server.MapPath("scanner"))
Set filesObject = folderObject.Files

For Each file In filesObject
Filen = file.Name
Response.Write Filen & "<br>"

'=====LOOP I TEKSTFILERNE
Set FS = CreateObject("Scripting.FileSystemObject")
Set filen = FS.OpenTextFile(server.mappath(Filen))

denne linie virker ikke

Set filen = FS.OpenTextFile(server.mappath(Filen))

oki jeg har selv kaget i den nu virker det

hvad var problemet så ??

at path var DIR/Fil.txt men jeg havde i kampens hede glemt at skrive DIR :ø)