problem med skrivning till fil..

6 svar · 177 visningar · startad av archie 19 juni 2001

archieMedlem sedan maj 2001216 inlägg

Frågan19 juni 2001 12:38#1

Har lite problem med skrivning till textfil, hur kan man ändra så att textfilens sökväg inte är lokal (c:\...)

kod:
Set Obj = CreateObject("Scripting.FileSystemObject")
If Obj.FileExists("c:\inetpub\wwwroot\asp\nextlink.txt") = False Then
Set TS = Obj.CreateTextFile("c:\inetpub\wwwroot\asp\nextlink.txt", 8)
Else
Set TS = Obj.OpenTextFile("c:\inetpub\wwwroot\asp\nextlink.txt", 8)
End If %>
<% TS.Write Request.Form("fil") %>
<% TS.WriteLine Request.Form("namn")

------------------
:: Live in the future today or you will be in the past tomorrow ::

archieMedlem sedan maj 2001216 inlägg

19 juni 2001 12:40#2

förtydling behövs nog.. .txt filen ska senare placeras på en server..

------------------
:: Live in the future today or you will be in the past tomorrow ::

VideMedlem sedan dec. 19998 577 inlägg

19 juni 2001 12:52#3

Du måste alltid köra en loka sökväg när du använder FSO, men du kan hämta sökvägen till din root med Server.MapPath("\"), och på sätt behöver du inte vet den lokala sökvägen...

------------------
Vide rox = new Vide();
rox.learn("C#");
webeye.nu

archieMedlem sedan maj 2001216 inlägg

19 juni 2001 13:52#4

Då borde alltså koden bli såhär

   Set Obj = CreateObject("Scripting.FileSystemObject")

   If Obj.FileExists("data.txt") = False Then
  
   Set TS = Obj.CreateTextFile(Server.MapPath("\"), 8)

   Else

   Set TS = Obj.OpenTextFile("data.txt", 8)

   End If

eller har jag tänkt fel nu..?!

------------------
:: Live in the future today or you will be in the past tomorrow ::

[Redigerat av archie den 19 jun 2001]

VideMedlem sedan dec. 19998 577 inlägg

19 juni 2001 13:54#5

Jo, om filen ligger i rooten på din webplats... men där lär du inte har skrivrättigheter... ta reda på vilken mapp som har skrivrättigheter och lägg filen där... (om du nu skall in och ändra i den ifrån ett ASP-script)

------------------
Vide rox = new Vide();
rox.learn("C#");
webeye.nu

[Redigerat av Vide den 19 jun 2001]

archieMedlem sedan maj 2001216 inlägg

19 juni 2001 14:54#6

Tack för hjälpen, du räddade verkligen min dag. Blev nått juck med koden efter lite för mycket krångel. Gjorde om alla koden från början och det funka kanon.

En sista liten fråga här..
som framgår av koden så vill jag skicka filnamn + beskrivning till textfilen.

Hur kan jag få texten formaterad så att jag får ett mellanslag mellan filnamn och beskrivning (till content linkning)?

------------------
:: Live in the future today or you will be in the past tomorrow ::

archieMedlem sedan maj 2001216 inlägg

19 juni 2001 21:23#7

upptäckte en liten bugg.. den verkar inte visa någon vilja att lägga till ny information på nästa rad, den skriver över hela text-filen istället... nån som hittar nått fel i min kod?

<% Dim Obj, TS, fil, besk
   Set Obj = CreateObject("Scripting.FileSystemObject")
   If Obj.FileExists("data.txt") = false Then
   Set TS = Obj.CreateTextFile(Server.MapPath("data.txt"), 8)
   Else
   Set TS = Obj.OpenTextFile("data.txt", 8)
   End If
   TS.Write Request.Form("fil") + chr(9)
   TS.WriteLine Request.Form("besk")
   TS.Close %>

------------------
:: Live in the future today or you will be in the past tomorrow ::

[Redigerat av archie den 19 jun 2001]