Søge i tekstfil

ville umiddelbart bruge en forløkke hvor du så tester hver enkelt linie for om den indeholder det random tal..
Gør den det, så ville jeg tælle 3 op, og så vælge den linie så får du den linie ud som du ønsker.

kan du vise et eksempel med forløkken

Dette lille eksempel åbner filen tekststreng.txt og kigger efter ordet "ord" i den 3. linie.

<%
i = 0
const forreading = 1
filepath = server.MapPath("tekststreng.txt")
Set objFSO = server.CreateObject("Scripting.FileSystemObject")
set file = objFSO.GetFile(Filepath)
Set objTekst = file.OpenAsTextStream(forreading)
for i = 1 to 3
strLinie = objtekst.readline
next
streng = strlinie
Sord = "ord"
MyPos = InstrRev(streng, Sord)
if MyPos <> "0" then
response.Write("Ordet findes")
else
response.Write("Ordet findes ikke")
end if
%>

MVH Morten

<%
Sord = "ord"
const forreading = 1
filepath = server.MapPath("tekststreng.txt")
Set objFSO = server.CreateObject("Scripting.FileSystemObject")
set file = objFSO.GetFile(Filepath)
Set objTekst = file.OpenAsTextStream(forreading)
i = 0
while not objTekst.atEndOfStream and i <= 3 then
if i = 0 then
strLinie = objtekst.readline
MyPos = Instr(streng, Sord)
if MyPos > 0 then
i = i+1
end if
else
strLine = objTekst.readLine
i = i+1
end if
next
streng = strlinie
%>


Sådan her..

Så læser du igennem filen indtil du finder ordet du søger efter Sord.
Når du har fundet det, så tæller filen 3 linier frem og gemmer linien i variablen streng.

HAHAHA :):):):)
Det var vi da nogenlunde enige om :o)
/Morten

arh.. Ikke helt morten :-)

Hvis du kigger lidt på min, så finder den ordet og tæller 3 linier frem bagefter ;-)

Hov, det har du da ret i :)

ja.. men den skal tælle tre linier tilbage  :-)

Hvad med sådan så :

<%
i = 0
const forreading = 1
filepath = server.MapPath("tekststreng.txt")
Set objFSO = server.CreateObject("Scripting.FileSystemObject")
set file = objFSO.GetFile(Filepath)
Set objTekst = file.OpenAsTextStream(forreading)
Dim strlinie(15)
i = 0
while not objTekst.atEndOfStream
i = i + 1
strLinie(i) = objtekst.readline
Sord = " ord "
MyPos = InstrRev(strlinie(i), Sord)
if MyPos <> "0" then
response.Write(strlinie(i-3))
end if
wend
%>

Hov ..
Dim strlinie skal naturligvis lige rettes ;)

ja.. til et par tusind da tekstfilen er pæn stor :-)

den her InstrRev, hvorfor bruger du den.. og ikke instr

Det er der ikke rigtig nogen årsag til :o)
Jeg pastede fra et tidligere script, hvor jeg skulle have placeringen af
en streng fra slutningen at en anden streng ;)

MVH Morten

hmm...
hvis forekomsten kun kommer en gang..
Ville da forestille mig at dette ville virke så:

<%
i = 0
dim strEt, strTo, strTre
const forreading = 1
filepath = server.MapPath("tekststreng.txt")
Set objFSO = server.CreateObject("Scripting.FileSystemObject")
set file = objFSO.GetFile(Filepath)
Set objTekst = file.OpenAsTextStream(forreading)

while not objTekst.atEndOfStream and i = 0
strTre = strTo
strTo = strEt
strEt = objtekst.readline
Sord = " ord "
MyPos = Instr(strEt, Sord)
if MyPos <> "0" then
response.Write(strTre)
i = i+1
end if
wend
%>