VBScript：如何使用正则表达式替换以添加换行符？

Question

我有一个很长的单行字符串。我想在每次比赛后添加新线;在这个例子中，我正在寻找“foo”

我可以成功找到“foo”的所有实例并触发替换：

    strText="stufffoobarbazfoofoomorestuff"
    Set reZap = New RegExp
    reZap.Global  = True
    reZap.Pattern = "(foo)"
    strNewText = reZap.Replace(strText, "$1\n")

问题是这只是在字符串中插入“\ n”，所以当我真正想要的是“stufffoo \ nbarbazfoo \ nfoo \ nmorestuff”时，我最终会

“stufffoo barbazfoo FOO morestuff“

如何获取替换以添加换行符？

Answer 1

我想通了，诀窍是使用vbCrLf而不是regexp的\ n：

    strNewText = reZap.Replace(strText, "$1" & vbCrLf )