Hejsa!
Jeg har lavet føglende script til søgning i en textfil hvor der
skal søges i en bestemt streng:
<%
'Get querystring
relval = request.querystring("s1")
relval2 = request.querystring("s2")
relval3 = request.querystring("s3")
relval4 = request.querystring("s4")
relval5 = request.querystring("s5")
'Søg
'Set F-objekt
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/2product.txt")
Set f = fso.OpenTextFile(filespec,1)
' Læs linie for linie indtil slut
Do While not f.AtEndOfStream
arrayblop = split(f.readline,";")
stringex = arrayblop(6)
if instr(Lcase(stringex),Lcase(relval)) > 0 then
if instr(Lcase(stringex),Lcase(relval2)) > 0 then
if instr(Lcase(stringex),Lcase(relval3)) > 0 then
if instr(Lcase(stringex),Lcase(relval4)) > 0 then
if instr(Lcase(stringex),Lcase(relval5)) > 0 then
response.write(stringex)
response.write("<br>")
end if
end if
end if
end if
end if
Loop
f.Close
%>
Problemet er bare at det er ikke særlig hensigtsmessigt hvis
f.eks relval3 ikke findes, men relval4 gør.
Er der nogen der har et forslag til noget bedre?
På forhånd tak!
Mvh Mads
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials