Skrive en linje i fil

ikke direkte. Du nødt til at læse filen tilføje linien og skrive filen igen.

Det var da besværligt. Men det er der ikke noget at gøre ved.

Hvis du har et strip, vil jeg gerne have det.

ikke lige på lager, men jeg kan godt kreere et. Ved du på forhånd hvilken linienr du ønsker at indsætte på?

<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/tutorials/asp/ministerier.txt")
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
string = ""
i = 0
line = 25
'betyder at du vil indsætte på linie 25...
Do While not f.AtEndOfStream
if i = line then
  string = string & dinLinie & vbcrlf
end if
  string = string & f.ReadLine & vbcrlf
i = i+1
Loop

Set f = fso.OpenTextFile(filespec,2)
f.write string

f.Close
%>

så skal du ændre i 2 linier, nemlig:
string = string & dinLinie & vbcrlf
hvor du ændre dinLinie til den tekst du vil sætte ind...
og så skal du ændre line = 25 der er den linie du vil sætte ind i tekstfilen på...

Det virker når man ændre string til linje :-)
Tak for hjælpen.