20. marts 2002 - 11:57Der er
15 kommentarer og 1 løsning
skrive til starten af en tekstfil.
Jeg er begyndt at kode asp men men men...den version jeg har af PWS kan ikke skrive til databaser (skide irriterende) så jeg skriver til tekstdokumenter. mit sp er så om man kan skrive til toppen af en tekstfil uden at slette resten (ligesom man kan skrive til slutningen med den der der hedder 8).??? da det er ret iriterende hvis man skal lave nyheder og de nyests kommer nederst :(
Ehm, det er ikke pws som skriver til databaser, så jeg er ganske sikker på at du tager fejl :)
Anyways.. måden du kan skrive til toppen af en tekst fil er, ved at læse filen over i en variabel, og konkatanere den med din nye tekst, og så skrive hele filen igen. Det er en lidt grisset metode, men den virker.
<% Function str(nystr) str = TxtStrObj.ReadAll nystr = "hej hej og noget og "& request.form("Nyhed")&"" str = nystr & str End Function %>
<% Dim fso, k, filespec Set fso = CreateObject("Scripting.FileSystemObject") filespec = Server.Mappath("nyhed.txt") Set k = fso.OpenTextFile(filespec,8)
k.write str
Set k = fso.OpenTextFile(filespec,1) Do While not k.AtEndOfStream Response.write k.ReadLine & "<br>" Loop k.Close%>
Når du åbner den med nummer 8, så er det kun til at tilføje information. Og så vil du kun kunne tilføje i slutningen. Prøv med 2 i stedet. Evt med CreateTextFile(navn, true), så du overskriver det der står i forvejen. Noget ala set k = fso.OpenTextFile(filespec, 1) str = k.ReadAll nystr = "blabla" & str" set l = fso.CreateTextFile(filesec, True) l.write nystr
Okay det virker ikke en disse: Den Skriver hele tiden den nye tekst + & str & eller str og den skriver at man ikke kan skrive: nystr = "blabla" & str" Og det skal vel hedde: set l = fso.CreateTextFile(filespec, True)
så nu virker det sørme....jeg ændrede koden til: Set k = fso.OpenTextFile(filespec, 1) oldstr = k.ReadAll nystr = "Det nye" str = nystr + oldstr set l = fso.CreateTextFile(filespec, true) l.write str
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
