Hej ! Har du testat att sätta exackt koreckt sökväg till filen ex: c:\test\test.text ? Har jag testat.Skriva, skapa och läsa textfil problem !
Jag har lite problem med ett "enkelt script".
Syftet är skapa nya textfiler och kunna skriva och läsa från dem.
(Koden är nästan den samma som i boken ASP-Lättpocket, skitbok med en massa buggar, men jag har ite råd att handla böcker just nu)
Det går bra att skriva textfilen och"spara ned den" men det går inte att läsa in den.
Jag har använt samma kod meddels funktionen Server.mapPath för att läsa och skriva.
Har stirrat mig blind några timmar på detta, men förstår inte vad felet ligger.
Felmeddelandet är att filen inte kan hittas, sökvägen fel.
Tacksam för hjälp.
Novis på Asp-programmering.
Första sidan:
<code>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<h5>Skapa och öppmna fil</h5><br>
<form action="input.asp" method="POST">
Namn på filen:<br>
<input type="text" name="filnamn"><br>
Innehåll i filen:<br>
<textarea name="inhall" rows="3" cols="60">
</textarea>
<br>
<input type="submit" value="skapa fil">
</form>
<br>
<form method="POST" action=Text.asp">
<h5>Öppna fil</h5>
Filnamn:
<br>
<input type="text" name="opfil">
<input type="submit" value="Läs">
</form>
<%
Sfil=Trim(Cstr(request.form("opfil")))
if not Sfil=""then
response.write("Innehållet i filen" & Sfil & ".txt<br><br>")
Set FilStromobjekt = Server.CreateObject("Scripting.FileSystemObject")
Set Lasa=FilStromobjekt.OpenTextFile(Server.MapPath("Textfiler/" & Sfil & ".txt"))
Do While not(Lasa.AtEndofstream)
Response.write(Lasa.ReadLine &"<br>")
Loop
Set Lasa=Nothing
end if
%>
</body>
</html>
</code>
Andra sidan:
<code>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
sStrl=request.form("filnamn")
sInh=request.form("inhall")
if not sStrl="" then
Set FilStromobjekt=Server.CreateObject("Scripting.FilesystemObject")
Set Skrivtillfil=FilStromobjekt.CreateTextFile(Server.MapPath("Textfiler/" & sStrl & ".txt"),True)
Skrivtillfil.writeLine(sInh)
Skrivtillfil.Close
end if
response.redirect("Text.asp")
%>
</code>Sv: Skriva, skapa och läsa textfil problem !
I dit fall blir det nått "c:\textfiler\" & sFil & ".txt"Sv: Skriva, skapa och läsa textfil problem !
För övrigt litar jag på att jag inte skrivit något ogiltigt katalognamn och på Serverm.mapPath funkar meddels att ange fysisk sökväg osv.
Det jag inte litar fulsändigt på är mina "ögon för den här koden" och mina Asp-kunskaper.