webForumDet fria alternativet

Körde fast med textfil

ASP

3 svar · 237 visningar · startad av katis

Medlem sedan apr. 200220 inlägg
Frågan#1

Goddagens!

Körde fast med textfil.
Problematiken är: jag läser in textfil(orders.txt) och det går bra, efteråt skulle jag vilja visa utvalda rader typ namn, adress osv.
Mitt tapra försök ser ut så här:

</head>
<body>
<p><h1><font color="blue">Här är min ASP-sida</font></h1></p>
<%
path = Server.MapPath("\bonab")
fil = path & "\orders.txt"

Set MittTxtObj = Server.CreateObject("Scripting.FileSystemObject")
Set MinFil = MittTxtObj.OpenTextFile(fil)

Dim datumgodkand, datumskickad, datumtillbaks, ib, idnum Dim bestallnum, namn, adress, zip, stad, land, mail, telnum
Dim betalsatt,totalpris, varavfrakt, varavmoms, dator, innehall

While Not MinFil.AtEndOfStream

datumgodkand = MinFil.ReadLine
datumskickad = MinFil.ReadLine
datumtillbaks = MinFil.ReadLine
ib = MinFil.ReadLine
namn = MinFil.ReadLine
adress = MinFil.ReadLine
zip = MinFil.ReadLine
stad = MinFil.ReadLine
land = MinFil.ReadLine
mail = MinFil.ReadLine
telnum = MinFil.ReadLine
betalsatt = MinFil.ReadLine
totalpris = MinFil.ReadLine
varavfrakt = MinFil.ReadLine
varavmoms = MinFil.ReadLine
dator = MinFil.ReadLine
innehall = MinFil.ReadLine

Wend

MinFil.Close
%>
<font size = "3" color = "green" style = "Verdana">
Den <% Response.Write datumgodkant %>gjorde du beställning:
<% Response.Write namn %>
</font>
</body>

</html>

Och det funkar inte alls. Får följande meddellande:

Microsoft VBScript runtime error '800a003e'
Input past end of file
/bonab/go.asp, line 23

Var ligger det förbaskade felet?

Tack på förhand
Katis

Medlem sedan maj 20002 597 inlägg
#2

Tänkte bara sticka in med ett litet ord eller 17. http://www.webforum.nu/misc.php?action=bbcode#buttons
kolla den länken för att redigera dina inlägg ;)

Medlem sedan juli 20012 450 inlägg
#3

Prova med
while not MinFil.AtEndOfLine

annars vet jag inte.
Vilken rad är nr 23?

Medlem sedan juni 200032 967 inlägg
#4

Ta bort While Not MinFil.AtEndOfStream samt Wend .

Jag ser ingen anledning att loopa i det här fallet.

Mvh,

257 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
128 ms — hämta tråd, inlägg och bilagor (db)
120 ms — ändringar (db)