VBS - 替换各种文件中的某些文本条目

Question

我在QTP中为我的测试套件创建了一个模板，其中抽象级别（参数化）足够好。

我现在需要从现有的模式中填充一个新的测试套件，从而用各种文件中的其他文件替换某些条目。

例如，我故意放在脚本套件模式中的一个单词是[Template]，因此我需要使用不同的名称复制和粘贴模板，将[Template]中的所有条目更改为新的字符串等等。提前）

感谢;

任何代码将作为我的VBScript技能不是最佳的理解！

Answer 1

使用此演示脚本：

Option Explicit 

Dim gMap : Set gMap = Createobject("Scripting.Dictionary") 

Function replGMap(sM, nPos, sSrc) 
    replGMap = gMap(sM) 
End Function 

Dim reMap : Set reMap = New RegExp 
reMap.Global = True 
reMap.Pattern = "\[\w+\]" 

gMap("[A]") = "abra" 
gMap("[B]") = "cadabra" 

WScript.Echo reMap.Replace("1[A]2[A]3[B]4[A]5", GetRef("replGMap")) 

输出：

abra2abra3cadabra4abra5 

关键字列表中的VBScript文档查找。要在.Replace中使用某个功能，请参见here。

FileSystemObject提供读取和写入文件的方式（Open/CreateTextFile，ReadAll，Write）。