Mata in Data i textfil

ASP

9 svar · 345 visningar · startad av costodia 5 okt. 2000

costodiaMedlem sedan aug. 2000864 inlägg

Trådstart5 okt. 2000 15:54#1

Jag läste denna artiel på http://navigera.net/arkiv/pubI1102I22502.html

och jag tyckte det skulle vara bra att ha på min webplats jag la alltså in koden i text.asp:
<HTML>

<HEAD>

</HEAD>

<BODY>

Skapa fil:<BR>

Namn på filen:<BR>

Innehåll i filen:<BR>

<Textarea Name="inhall" Rows="3"

Cols=60></Textarea>

</Form>

Öppna fil:

<BR>Filnamn:<BR>

</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>

och denna i huvet på input.asp
<%

sStr = Request.Form("filn")

sInh = Request.Form("inhall")

If Not sStr="" Then

Set FilStromobjekt = Server.CreateObject

("Scripting.FileSystemObject")

Set Skrivtillfil =

FilStromobjekt.CreateTextFile

(Server.MapPath("/Textfiler") & "\\" &

sStr & ".txt", True)

Skrivtillfil.WriteLine(sInh)

Skrivtillfil.Close

End If

Response.Redirect("Text.asp")

Detta la jag sen upp på http://www.costodia.com/textpub/text.asp

min fråga är är det något fel i koden, jag testad eäven att lägga alltihopa i min skrivbara katalog men det funkar inte där heller,

jag skulle ha otroligt mycket användning frör en funktion som denna så om någon vet hur man gör är jag evigt tacksam.

mvh martin

emissionMedlem sedan dec. 19996 721 inlägg

5 okt. 2000 16:21#2

1. du har text1.asp som action på första sidan. Det ska väl vara input.asp?

2. Skriptet du visar är inte det du använder. Det blir lättare att felsöka om du fixar det.

costodiaMedlem sedan aug. 2000864 inlägg

5 okt. 2000 16:39#3

Oj jag trodde det var samma kod,
men nu har jag ändrat det, men det funkar fortfarande inte, ska den inte ligga i en skrivbar katalog?

I exploroer kommer det inte upp någonting men i Netscape får jag detta felmeddlenade:
Microsoft VBScript compilation error '800a03ea'

Syntax error

/textpub/Text.asp, line 45

Response.Write "Innehållet i filen " &
--------------------------------------^

Som jag har fattat detså ska man byta ut Response.Write "Innehållet i filen"
som det står i text.asp till någonting annat, men vad ska stå där, någon?

Tack på förhand
Mvh Martin Persson
www.Costodia.com

[Redigerat av costodia den 05 okt 2000]

emissionMedlem sedan dec. 19996 721 inlägg

5 okt. 2000 21:18#4

Du verkar ha klippt ut skriptet på något lustigt sätt, för du har fått ett par radbrytningar där de inte ska vara.

Har korrat den. Men om den funkar i övrigt har jag inte hunnti kolla.

<HTML>
<HEAD>
</HEAD>
<BODY>
Skapa fil:<BR>
<Form Action="Text1.asp" Method="post">
Namn på filen:<BR>
<Input Type="text" Name="filn"><BR>
Innehåll i filen:<BR>
<Textarea Name="inhall" Rows="3"
Cols=60></Textarea>
<BR><Input Type="submit" Value="Skapa fil!">
</Form>
<Form Method="post" Action="Text.asp">
Öppna fil:
<BR>Filnamn:<BR>
<Input Type="text" Name="opfil">
<BR><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>

och denna i huvet på input.asp
<%

sStr = Request.Form("filn")

sInh = Request.Form("inhall")

If Not sStr="" Then

Set FilStromobjekt = Server.CreateObject("Scripting.FileSystemObject")

Set Skrivtillfil = FilStromobjekt.CreateTextFile(Server.MapPath("/Textfiler") & "\" & sStr & ".txt", True)

Skrivtillfil.WriteLine(sInh)

Skrivtillfil.Close

End If

Response.Redirect("Text.asp")

%>

costodiaMedlem sedan aug. 2000864 inlägg

6 okt. 2000 09:00#5

nu funkar scriptet, på http://www.costodia.com/textpub/text.asp men tyvärr så blir det endå runtime error

Microsoft VBScript runtime error '800a004c'

Path not found

/textpub/text.asp, line 25

Linje 25 är denna:
Set Lasa = FilStromobjekt.OpenTextFile(Server.MapPath("/Textfiler") & "\" & Sfil & ".txt")

Måste jag alltså skapa en mapp som heter Textfiler?

Jag gjorde det och det blir endå fel fast en fil finns där http://www.costodia.com/textpub/Textfiler/inget.txt

PatrikBMedlem sedan mars 20002 836 inlägg

6 okt. 2000 09:23#6

Jepp,

cya,
PatrikB

costodiaMedlem sedan aug. 2000864 inlägg

6 okt. 2000 09:37#7

Jepp?
Vad menar du?

Vet du vad det är som är fel?

costodiaMedlem sedan aug. 2000864 inlägg

26 aug. 2001 10:56#8

Jag gjorde det och det blir endå fel fast en fil finns där http://www.costodia.com/textpub/Textfiler/inget.txt

felet blir:

Microsoft VBScript compilation  error '800a03ea'

Syntax error

/textpub/text.asp, line 45

Response.Write "Innehållet i filen " & --------------------------------------^

ScarabusMedlem sedan maj 200118 inlägg

27 aug. 2001 08:09#9

Jag har försökt läsa igenom ditt script så långt det går och tyda problemet.
Tänk på att du bara kan spara filer i en existerande och oskrivskyddad katalog. Ditt problem med Response.Write tror jag beror på att du gjort en radbrytning mitt i koden

Response.Write "Innehållet i filen " &

Sfil & ".txt:<BR><BR>"

Ska se ut så här:

Response.Write "Innehållet i filen " & Sfil & ".txt:<BR><BR>"

costodiaMedlem sedan aug. 2000864 inlägg

27 aug. 2001 08:49#10

Okej, tack,
tyvärr fick jag ett nytt felmedelande nu

Microsoft VBScript compilation  error '800a0408'

Invalid character

/textpub/text.asp, line 24

   Set FilStromobjekt = Server.CreateObject