Indsæt linje før al anden tekst i en tekstfil

Læs hele files indhold ind vha. ReadAll hvor filen først er åbnet ForReading

F.eks. ReadAllTextFile =  f.ReadAll

Skriv derefter det hele tilbage til filen som f.eks.
NewContent=MyNewFirstLine & VbCr & ReadAllTextFile
f.Write NewContent

...hvor filen først er genåbnet ForWriting

Prøver lige ...

Her er koden jeg prøver med, men der er fejl i linje 3 ( tror det er ForReading )

<%
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath("menu.mnu"), ForReading)
ReadAllTextFile = MyTextFile.ReadAll
MyTextFile.Close
Set MyFileObject = Nothing

Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath("menu.mnu"), ForWriting)
MyNewFirstLine = "Test"
NewContent = MyNewFirstLine & VbCr & ReadAllTextFile
MyTextFile.Write NewContent
MyTextFile.Close
Set MyFileObject = Nothing
%>

Har du husket linien

Const ForReading = 1, ForWriting = 2, ForAppending = 8

???

Nej det havde jeg glemt, men får nu fejlen: fejl i linje 5 "input efter filens slutning"

og nu ser min kode således ud.

<%
Const ForReading = 1
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath("menu.mnu"), ForReading)
ReadAllTextFile = MyTextFile.ReadAll
MyTextFile.Close
Set MyFileObject = Nothing

Const ForWriting = 2
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath("menu.mnu"), ForWriting)
MyNewFirstLine = "Test"
NewContent = MyNewFirstLine & VbCr & ReadAllTextFile
MyTextFile.Write NewContent
MyTextFile.Close
Set MyFileObject = Nothing
%>

Problemet er løst, menu.mnu indeholdt ingenting, så derfor denne fejl.

Men hvorfor laver "VbCr" en firkant efter "test" i teksten i stedet for at skifte linje ?

Lyder sært, har du prøvet med en tilfældig tekstfil ?
Der er måske et-eller-andet eof-tegn i filen menu.mnu .....

OK sidste kommentar blev skrevet før ovenstående fra dig....

Prøv at udskifte "VbCr" med "chr(13)" eller "chr(10) & chr(13)"

Hvis jeg bruger chr(10) sker der det samme som med VbCr og hvis jeg bruger chr(10) & chr(13) laver den linjeskrift efter "test", men laver så firkanten i starten af næste linje. Andre forslag ?

Hold kæft hvor er jeg dum. Så nøjes jeg jo bare med chr(10).

Har lige testet det og det virker perfekt.

Tak for hjælpen.

Velbekomme, rart at kunne hjælpe.

/Steen