Faibles strAllLines, strTxtFile, strMatch, objFSO, objFile, strNewText
Const ForReading = 1
Const ForWriting = 2
Placer l'objNetwork = le CreateObject (« Wscript.Network »)
strUser = objNetwork.UserName
strTxtFile = « C:\Documents and Settings\ » et strUser et » \ reste du chemin "
strMatch = « TEXTE À MODIFIER »
strNewText = « TEXTE POUR REMPLACER L'ORIGINAL »
'Lit le dossier de TXT
Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
Placer objFile = objFSO.OpenTextFile (strTxtFile, ForReading)
strAllLines = objFile.ReadAll
objFile.Close
le strNewText = remplacent (les strAllLines, le strMatch, le strNewText)
objFile réglé = objFSO.OpenTextFile (strTxtFile, ForWriting)
objFile.WriteLine (strNewText)
objFile.Close
|