Dunkla strAllLines som är strTxtFile, strMatch, objFSO som är objFile, strNewText
Const ForReading = 1
Const ForWriting = 2
Fastställd objNetwork = CreateObject (”Wscript.Network”)
strUser = objNetwork.UserName
strTxtFile = ”C:\Documents and Settings\” & strUser &” \ vilar av banan ",
strMatch = ”TEXT som ska ÄNDRAS”,
strNewText = ”TEXT som BYTER UT ORIGINAL”,
'Läser TXTEN sparar
Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
Fastställdt objFile = strTxtFile objFSO.OpenTextFile (, ForReading)
strAllLines = objFile.ReadAll
objFile.Close
strNewText = byter ut (strAllLines, strMatch, strNewText)
Fastställdt objFile = strTxtFile objFSO.OpenTextFile (, ForWriting)
objFile.WriteLine (strNewText)
objFile.Close
|