webForumDet fria alternativet

While-Wend gåta

ASPur ASP

1 svar · 218 visningar · startad av katis

katisMedlem sedan apr. 200220 inlägg
#1

Halloi igen!
Min lilla text filen ser ut så:
00:00:00
00:00:00
00:00:00
01146951
00:00:00
00:00:00
00:00:00
01146951

Min blygsamma ASP - så:
<html>
<%@ LANGUAGE="VBScript"%>
<body>
<p><h3><font style = "Verdana">Dina gamla beställningar</font></h3></p>
<%
path = Server.MapPath("\bonab")
fil = path & "\Doc.txt"
Set MittTxtObj = Server.CreateObject("Scripting.FileSystemObject")
Set MinFil = MittTxtObj.OpenTextFile(fil)

inum = Request.QueryString("id")

While Not MinFil.AtEndOfStream
for i=1 to 3
MinFil.SkipLine
next

di = MinFil.ReadLine

if inum = di then
Response.write inum & "<br>"
end if
Wend
MinFil.Close
%>
</body>
</html>
Mitt intresse nu att programmet kan lista ut var fjärde rad om den sammanfaller med "id" från webbläsarens adressfälte.
Med den ovanstående koden får jag bara en utskrift.
Det måste vara fel i While-Wend slinge.
Skulle uppskatta jättemycket om ngn kommer underfund med felet.

Katja

LarsGMedlem sedan dec. 200012 464 inlägg
#2

Om du testar att konvertera värdena innan du jämför. det kanske ligger lite blank i filen

if cdbl(inum) = cdbl(di) then

eller om du vill att inledande 0 skall vara signifikant

if trim(inum) = trim(di) then
132 ms totalt · 3 externa anrop · v20260731065814-full.29ac60f6
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
130 ms — hämta tråd, inlägg och bilagor (db)