VBS RegEx Search and Repalce

Question

Я пытаюсь использовать скрипт vbs для замены предельного значения в файле .ini, который содержит следующую строку: CC_refund_limit = ####. ## К сожалению, ####. ## может быть любой долларовой стоимостью. Я заменяя стандарт: CC_refund_limit = 500,00

Я попытался следующие с каждым изменением \ d \ d +, заключенный в каждом кронштейне известных человечеству, и даже пытались [0-999] на тестовом файле. Единственный способ, которым я могу заставить это работать, - это следующий код, и только если строка содержит фактическое значение доллара, как написано. У меня более 1600 экземпляров на разных серверах, чтобы заменить это.

Любое руководство будет иметь в виду:

`Const ForReading = 1 
Const ForWriting = 2 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.OpenTextFile("C:\EDC\Edc.ini", ForReading) 

strText = objFile.ReadAll 
objFile.Close 
strNewText = Replace(strText, "CC_refund_limit=200.00", "CC_refund_limit=500.00") 

Set objFile = objFSO.OpenTextFile("C:\EDC\Edc.ini", ForWriting) 
objFile.WriteLine strNewText 
objFile.Close 

`

Answer 1

Const ForReading = 1 
Const ForWriting = 2 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.OpenTextFile("C:\EDC\Edc.ini", ForReading) 
strText = objFile.ReadAll 
objFile.Close 
Set r = New Regexp 
With r 
    .pattern = "CC_refund_limit=\d+\.\d+" 
    .global = true 
End with 
StrNewText = r.Replace(strText,"CC_refund_limit=500.00") 
Set objFile = objFSO.OpenTextFile("C:\EDC\Edc.ini", ForWriting) 
objFile.WriteLine strNewText 
objFile.Close