Тусклые strAllLines, strTxtFile, strMatch, objFSO, objFile, strNewText
Const ForReading = 1
Const ForWriting = 2
Установите objNetwork = CreateObject («Wscript.Network»)
strUser = objNetwork.UserName
strTxtFile = «C:\Documents and Settings\» & strUser &» \ остальнои курса "
strMatch = «ТЕКСТ, котор нужно ДОРАБОТАТЬ»
strNewText = «ТЕКСТ для того чтобы ЗАМЕНИТЬ ОРИГИНАЛ»
'Читает архив TXT
Установите objFSO = CreateObject («Scripting.FileSystemObject»)
Установите objFile = objFSO.OpenTextFile (strTxtFile, ForReading)
strAllLines = objFile.ReadAll
objFile.Close
strNewText = заменяет ть (strAllLines, strMatch, strNewText)
Установленное objFile = objFSO.OpenTextFile (strTxtFile, ForWriting)
objFile.WriteLine (strNewText)
objFile.Close
|