Скачать: CL | DM;

Посоветуйте как лучше поступить.   Найти похожие ветки 

← →
Омлет ©   (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 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.009 c