--- title: "Mata in Data i textfil" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/11306-mata-in-data-i-textfil" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "costodia" published: "2000-10-05T15:54:00.000Z" updated: "2001-08-27T08:49:00.000Z" replies: 9 views: 345 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/11306-mata-in-data-i-textfil" --- # Mata in Data i textfil ## #1 — costodia, 2000-10-05T15:54Z Jag läste denna artiel på och jag tyckte det skulle vara bra att ha på min webplats jag la alltså in koden i text.asp: \ \ \ \ Skapa fil:\ \

Namn på filen:\ \\ Innehåll i filen:\ \

\</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")

%\>

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

Permalänk: https://www.webforum.nu/p/11306

## #2 — emission, 2000-10-05T16:21Z

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. ;)

Permalänk: https://www.webforum.nu/p/284827

## #3 — costodia, 2000-10-05T16:39Z

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](http://www.Costodia.com)

\[Redigerat av costodia den 05 okt 2000\]

Permalänk: https://www.webforum.nu/p/284828

## #4 — emission, 2000-10-05T21:18Z

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>

<% Sfil=Trim(Cstr(request.form("opfil"))) If Not Sfil="" Then Response.Write "Innehållet i filen " & Sfil & ".txt:

" Set FilStromobjekt = Server.CreateObject("Scripting.FileSystemObject") Set Lasa = FilStromobjekt.OpenTextFile(Server.MapPath("/Textfiler") & "\" & Sfil & ".txt") Do While not Lasa.AtEndofstream Response.write Lasa.Readline & "
" Loop Set Lasa=Nothing End If %> 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") %> ``` Permalänk: https://www.webforum.nu/p/284829 ## #5 — costodia, 2000-10-06T09:00Z nu funkar scriptet, på 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 Permalänk: https://www.webforum.nu/p/284830 ## #6 — PatrikB, 2000-10-06T09:23Z Jepp, cya, PatrikB Permalänk: https://www.webforum.nu/p/284831 ## #7 — costodia, 2000-10-06T09:37Z Jepp? Vad menar du? Vet du vad det är som är fel? Permalänk: https://www.webforum.nu/p/284832 ## #8 — costodia, 2001-08-26T10:56Z Jag gjorde det och det blir endå fel fast en fil finns där felet blir: ``` Microsoft VBScript compilation error '800a03ea' Syntax error /textpub/text.asp, line 45 Response.Write "Innehållet i filen " & --------------------------------------^ ``` Permalänk: https://www.webforum.nu/p/284833 ## #9 — Scarabus, 2001-08-27T08:09Z 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:

" ``` Ska se ut så här: ``` Response.Write "Innehållet i filen " & Sfil & ".txt:

" ``` Permalänk: https://www.webforum.nu/p/284834 ## #10 — costodia, 2001-08-27T08:49Z 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 ``` Permalänk: https://www.webforum.nu/p/284835 --- Tråden på webben: https://www.webforum.nu/amne/asp/11306-mata-in-data-i-textfil