webForumDet fria alternativet

While-Wend gåta

ASP

1 svar · 220 visningar · startad av katis

Medlem sedan apr. 200220 inlägg
Frågan#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

Medlem 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
358 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
122 ms — deklarationer (db)
0 ms — hämta statistik (cache)
228 ms — hämta tråd, inlägg och bilagor (db)
127 ms — ändringar (db)