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）。