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