高手帮忙,如何精简并提高效率?(正则表达式)

Question

Function StrReplace(ByVal S As String, ByVal P As String, ByVal R As String) As String
    
    Dim re As RegExp
    Set re = New RegExp
     re.IgnoreCase = True
     re.Global = True
     re.Pattern = P
     StrReplace = re.Replace(S, R)
End Function
如上为正则表达式的替换函数
现在要多次替换例:
str=StrReplace(str,A1,A2)
str=StrReplace(str,B1,B2)
str=StrReplace(str,C1,C2)
str=StrReplace(str,D1,D2)
str=StrReplace(str,E1,E2)
str=StrReplace(str,F1,F2)
str=StrReplace(str,G1,G2)....
如此下去,如果替换的不多,没有大问题,但是如果替换的东西多了,如何精简,有没有更好的算法?

Answer 1

str=StrReplace(str,A1,A2) 
str=StrReplace(str,B1,B2) 
str=StrReplace(str,C1,C2) 
str=StrReplace(str,D1,D2) 
str=StrReplace(str,E1,E2) 
str=StrReplace(str,F1,F2) 
str=StrReplace(str,G1,G2) 
....将A1 B1 C1 ... 放在一个数组中 Arr1(1 to N)将A2 B2 C3 ... 放在一个数组中 Arr2(1 to N)for i=1 to N
  str=StrReplace(str,Arr1(i),Arr2(i)) 
next