ændre alle linier i tekst fil

<html>
<head>
<title>Åben læs fra fil / ret tekst / skriv til fil</title>
</head>
<body>
<%
'Konstanter
append_start = "!!START!!"
append_end = "!!END!!"
find_1 = "'ere"
replace_1 = "NOGET_ANDET"

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
fileName = "textfile.txt"
fileNameNew = "textfileX.txt"

if NOT objFSO.FileExists(Server.MapPath(fileName)) then
end if

Set oTxtFile = objFSO.OpenTextFile(Server.MapPath(fileName),1)
Set oTxtFileNew = objFSO.OpenTextFile(Server.MapPath(fileNameNew),2,true)

do while oTxtFile.AtEndOfStream = false
  iStr = oTxtFile.readline
  'Response.Write iStr & "<br>"
  iStr = append_start & iStr & append_end
  'Response.Write iStr & "<br>"
  iStr = replace(iStr,find_1,replace_1)
  'Response.Write iStr & "<br>"
  oTxtFileNew.Writeline (iStr)
loop

oTxtFile.Close
oTxtFileNew.Close

objFSO.CopyFile Server.MapPath(fileNameNew),Server.MapPath(fileName), true
objFSO.DeleteFile (Server.MapPath(fileNameNew))

Set oTxtFile = Nothing
Set oTxtFileNew = Nothing
Set objFSO = Nothing
%>
</body>
</html>



Prøv dette, du kan ændre i disse konstanter for at opfylde dit behov. Jeg kan ikke få den til at overskrive samme fil så den laver en ny Temp fil som som så kopies over i den oprindelige fil og så slettes temp filen...

append_start = "!!START!!"
append_end = "!!END!!"
find_1 = "'ere"
replace_1 = "NOGET_ANDET"

.... Virker det ?