Bakåfram

6 svar · 242 visningar · startad av qwerty 15 jan. 2001

qwertyMedlem sedan jan. 2001391 inlägg

Trådstart15 jan. 2001 17:49#1

Gör ett sista försök innan jag går hem att få en lösning på dagens stora problem. Jag sparar ner lite prylar i en textfil. Men jag vill att de nya värdena ska hamna överst i filen.

Så här ser filen ut nu:

Stort tack på förhand


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

                                   MinFil.WriteLine "<br><br>"
                                   MinFil.WriteLine "<span class =brodtext>"
                                   MinFil.WriteLine date
                                   MinFil.WriteLine "</span>"
                                   MinFil.WriteLine "<br>"
                                   MinFil.WriteLine "<span class =fetbrod>"
                                   MinFil.WriteLine rubrik
                                   MinFil.WriteLine "</span>"
                                   MinFil.WriteLine "<span class =brodtext>"
                                   MinFil.WriteLine "<br>"
                                   MinFil.WriteLine nyhet
                                   MinFil.WriteLine "</span>"
                                   MinFil.close

EclipseMedlem sedan juli 20003 825 inlägg

16 jan. 2001 07:30#2

Frågar du inte samma fråga flera gånger!?

Detvar nån annan som sa, dunka in all info i en variablel, lägg data framför eller efter variabeln, beroende på vilket du föredrar, och skriv hela variabalen tillbaka till filen. (Du skriver alltså över befintlig data.)

Hajar du?

/ jakob

qwertyMedlem sedan jan. 2001391 inlägg

16 jan. 2001 09:12#3

Ja, jag trodde att jag hajade!

Varför vill inte detta funka?

fil =  "c:\ inetpub\wwwroot\news.txt"

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

dim temp
temp = Minfil.readAll

MinFil.WriteLine temp
MinFil.WriteLine nytext
MinFil.close

PS.Jag såg att jag frågat samma fråga i olika trådar. Mitt misstag.

PatrikBMedlem sedan mars 20002 836 inlägg

16 jan. 2001 10:12#4

Hello,

det du gör är att du lägger till ny info sist i filen (längst ned).

Det kan göras med detta istället:

fil = "c:\ inetpub\wwwroot\news.txt"
Set MittTxtObj = Server.CreateObject ("Scripting.FileSystemObject")
Set MinFil = MittTxtObj.OpenTextFile(fil,8,true)

MinFil.Write nytext
MinFil.close

cya,

qwertyMedlem sedan jan. 2001391 inlägg

16 jan. 2001 10:57#5

OK jag ser att jag har vänt på två rader, men det är inte rikigt där problemet ligger. I koden länst upp i denna tråd
fungerar allt enligt mina önkemål, förutom att de nya nyheterna hamnar längst ner.
Koden som jag skrev i mitt förra inlägg funkar däremot inte. Jag får felmeddelande på raden MinFil.ReadAll. ServerCreateobject failed.

Hjälp mig...

qwertyMedlem sedan jan. 2001391 inlägg

16 jan. 2001 13:04#6

Kan man inte skriva så här.Får felmeddelande på den här raden hela tiden.

temp = Minfil.readAll

Server.CreateObject Failed.
The operation completed successfully

PatrikBMedlem sedan mars 20002 836 inlägg

16 jan. 2001 16:49#7

Hello,

du har öppnat filen för att skriva till den, då kan man inte läsa bara skriva.

Du får först läsa in filen, stänga och sedan öppna den för skrivning igen för att det ska lyckas.

Direkt ur VB Script documentationen:

Function ReadAllTextFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.Write "Hello world!"
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   ReadAllTextFile =   f.ReadAll
End Function

du kan ladda ned hela documentationen här

cya