Question

目前我开发了一种操作工具，用于比较DCS的复杂工程源文件。因此，我必须更换某些＆＃39; TagNames＆＃39;。

替换适用的代码：

    For g = 8 To amountofreplace 'replace the string with every potential transition
            With Sheets("Compare")
                orgi = .range("L" & g).Value
                copy = .range("J" & g).Value
                tmp_string = Replace(tmp_string, copy, orgi)
             End With

一个例子 tmp_string = 200TT-50或200TX-50或200GG-50

这应该过渡到350TT-50或350TX-50或350GG-50

所以现在我要添加过渡 200TT - ＆gt; 350TT 200TX - ＆gt; 350tx

但我更喜欢的是应用这种转变 200 $$ - ＆gt; 350 $$

$意味着一个字符[A-Z]因此，当它被应用时，它将直接应用我上面提到的所有转换。

通配符不适用于替换功能..谁有线索？因为我会一直填写不同的过渡。所以Regex似乎不是我的解决方案。

提前致谢，

Answer 1

您可以像

一样使用VBA.Left（）

If VBA.Left(tmp_string, 3) = "200" then 
    tmp_string = "350" & VBA.Right(tmp_string, Len(tmp_string)-3)
end if

用通配符替换函数

1 个答案: