【求助】正则表达式问题

Question

怎么实现将字符串按照指定的二维数组中的关键词，依次替换为该数组中的目标文本。
目前用replace实现，但是感觉速度不是很快。不知道正则表达式是否有更好实现方式，请高手赐教！如下：
Dim strTmp As String
Dim i 
Dim Ary(1 To 100, 1 To 2) As String
...
ARY数组赋值
...
For i = 1 To 100
    strTmp = Replace(strTmp, Ary(i, 0), Ary(i, 1))
Next

Answer 1

正则表达式不会更快。相反，大多数时候都比replace慢。如果你想提高速度，可以使用字典树带回溯的一次遍历算法，这个算法在拼写检查中最为常用。