小编Car*_*llo的帖子

我正在尝试替换撇号之间的文本的一部分，而不是全部，只是一部分。例如，我需要将仅在引号之间的文本内的字符/ *和* /替换为空文本，而不是在其外部。

我的输入文字，例如：

A = 'THIS IS AN ALPHABETIC /* CONSTANT' || WS_CON1 /* */ || 'TEST STRING */';

预期产量：

A = 'THIS IS AN ALPHABETIC  CONSTANT' || WS_CON1 /* */ || 'TEST STRING ';

我提取了引号中的文本，但不知道如何用空文本替换/ *和* /。

子ReplaceWithRegex（）
    Dim strPattern作为字符串
    昏暗的strReplace作为字符串
    昏暗regEx作为变体
    昏暗的strtxt作为字符串

    设置regEx = CreateObject（“ vbscript.regexp”）
    strtxt =“ A ='这是字母//常数'|| WS_CON1 / * * / ||'测试字符串* /';”
    strPattern =“ \'（[^ \'] *）\'”
    strReplace =“”

    使用正则表达式
        .Global =真
        .MultiLine =真
        .IgnoreCase =假
        .Pattern = strPattern
    结束于

    如果regEx.Test（strtxt）然后
        Debug.Print …