vbscript - 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 Docs 中查找的关键字列表。要在 .Replace 中使用函数，请参见此处。

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