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

Vbscript VBS-替换各种文件中的某些文本条目,vbscript,replace,qtp,Vbscript,Replace,Qtp,我在QTP中为我的测试套件创建了一个模板,其中抽象级别(参数化)足够好 我现在需要从现有模式中填充一个新的测试套件,从而用不同文件中的其他条目替换某些条目 例如,我特意在脚本套件模式中添加的一个单词是[Template],因此我需要复制并粘贴具有不同名称的模板,将[Template]的所有条目更改为新字符串,等等 任何代码都会受到欢迎,因为我的VBScript技能不是最佳的;) 提前谢谢 使用此演示脚本: Option Explicit Dim gMap : Set gMap = Create

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

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

例如,我特意在脚本套件模式中添加的一个单词是[Template],因此我需要复制并粘贴具有不同名称的模板,将[Template]的所有条目更改为新字符串,等等

任何代码都会受到欢迎,因为我的VBScript技能不是最佳的;)

提前谢谢

使用此演示脚本:

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中使用函数的信息,请参阅

FileSystemObject提供读取和写入文件的方法(打开/创建文本文件、ReadAll、Write)