Replace/erstat i txt-fil

Det letteste er at kopiere filen linie for linie over i en anden fil, og lave en replace(den-aktuelle-linie, "##TEST", "1234") inden linien skrives til den nye fil.

Skriv hvis du skal bruge noget kode...

hmm... er det virkelig den letteste måde? Jeg kan ikke helt gennemskue koden... kan du hjælpe?

sTXT = "test.txt"
sTMP = "tmp.txt"

Set fso = createObject("Scripting.FileSystemObject")

Set input = fso.OpenTextFile(sTXT, 1)
Set output = fso.CreateTextFile(sTMP, True)

While Not input.AtEndOfStream
  output.WriteLine(Replace(input.ReadLine, "##TEST", "1234"))
Wend

input.Close
output.Close

fso.CopyFile sTMP, sTXT, True
fso.DeleteFile sTMP

Set input = Nothing
Set output = Nothing
Set fso = Nothing

MsgBox "Done"

Tak Adam - jeg kigger lige på og vender tilbage.

Det spiller bare... mange tak for hjælpen! Point er dine!

Takker ;-)