strAllLines déviles, strTxtFile, strMatch, objFSO, objFile, strNewText
Const ForReading = 1
Const ForWriting = 2
Fijar el objNetwork = CreateObject (“Wscript.Network”)
strUser = objNetwork.UserName
strTxtFile = “C:\Documents and Settings\” y strUser y” \ resto de la trayectoria "
strMatch = “TEXTO QUE SE MODIFICARÁ”
strNewText = “TEXTO PARA SUBSTITUIR ORIGINAL”
'Lee el archivo de TXT
Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
Fijar objFile = objFSO.OpenTextFile (strTxtFile, ForReading)
strAllLines = objFile.ReadAll
objFile.Close
el strNewText = substituye (los strAllLines, strMatch, el strNewText)
objFile determinado = objFSO.OpenTextFile (strTxtFile, ForWriting)
objFile.WriteLine (strNewText)
objFile.Close
|