---

Hej

Er der nogen der ved hvordan man søger gennem en tekst
fil med asp?

Det jeg faktisk skal ha bikset sammen er et script der kan søge gennem en
proxy log fil,
og skrive de strenge ud med de filer der er blevet uploaded på ftp serveren
siden brugeren var der sidst.

Er der nogen der har gode ideer?


Tim

---

Tim <tb@bmd.dk> skrev i news:rl5n6.103$c37.3824@news.get2net.dk
> Hej
>
> Er der nogen der ved hvordan man søger gennem en tekst
> fil med asp?
>
> Det jeg faktisk skal ha bikset sammen er et script der kan søge gennem en
> proxy log fil,
> og skrive de strenge ud med de filer der er blevet uploaded på ftp
serveren
> siden brugeren var der sidst.
>
> Er der nogen der har gode ideer?
>
>
> Tim

Du bare leser en og en del, også benytter du InStr til å finne ut om det du
leter etter er i stringen ...

Vennlig hilsen Erlend
erlendkb@c2i.net
http://www.kleggen.com/

---

Kan du give mig et lille kode exempel og tage udgangspunkt i? det ville være
perfekt.
Tim

"Erlend Klakegg Bergheim" <erlendkb@c2i.net> wrote in message
news:N%7n6.8899$X_2.144948@news1.oke.nextra.no...
> Tim <tb@bmd.dk> skrev i news:rl5n6.103$c37.3824@news.get2net.dk
> > Hej
> >
> > Er der nogen der ved hvordan man søger gennem en tekst
> > fil med asp?
> >
> > Det jeg faktisk skal ha bikset sammen er et script der kan søge gennem
en
> > proxy log fil,
> > og skrive de strenge ud med de filer der er blevet uploaded på ftp
> serveren
> > siden brugeren var der sidst.
> >
> > Er der nogen der har gode ideer?
> >
> >
> > Tim
>
> Du bare leser en og en del, også benytter du InStr til å finne ut om det
du
> leter etter er i stringen ...
>
> Vennlig hilsen Erlend
> erlendkb@c2i.net
> http://www.kleggen.com/
>
>

---

<%

Response.Write "Av filene i denne mappen inneholder følgende filer ""<%""
:<br>" & vbcrlf

Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Server.MapPath("."))
Set fc = f.Files
For Each f1 in fc

s = f1.name

set openfile = fso.OpenTextFile(Server.MapPath(s), 1)
openfile = openfile.readall

if Instr(1, openfile, "<%", 1) > 0 then response.write s & "<br>" & vbcrlf

Next

%>


Vennlig hilsen Erlend
erlendkb@c2i.net
http://www.kleggen.com/