Форум: "Прочее";
Текущий архив: 2009.12.27;
Скачать: [xml.tar.bz2];
ВнизПосоветуйте как лучше поступить. Найти похожие ветки
← →
Омлет © (2009-10-24 21:24) [11]Имеется скрипт StringReplaceInFile.vbs
On Error Resume Next
fileName = WScript.arguments(0)
patrn = WScript.arguments(1)
replStr = WScript.arguments(2)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShellApp = CreateObject("Shell.Application")
LogPath = objFSO.GetParentFolderName(WScript.ScriptFullName)
replaceTextInFile fileName, patrn, replStr
Function replaceTextInFile(FilePath, patrn, replStr)
On Error Resume Next
Set TFile = objFSO.OpenTextFile(FilePath, 1)
fileText = TFile.ReadAll
fileText = ReplaceTest(fileText, patrn, replStr)
Set WFile = objFSO.OpenTextFile(FilePath, 2)
WFile.WriteLine fileText
WFile.Close
End Function
Function ReplaceTest(src_str, patrn, replStr)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.Global = False
regEx.IgnoreCase = True
ReplaceTest = regEx.Replace(src_str, replStr)
End Function
Он вызывается из батника с передачей параметров: путь до файла, в котором заменять; текст, который заменяем; текст, на который заменяем.
Я брал файл-шаблон, где на нужном месте было что-то вроде %PARAM_X%, копировал его в нужную папку, заменял в нем %PARAM_X% на необходимый текст и компилировал.
И накаких проблем.
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2009.12.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c