Excel VBA 如何使用 CreateObject("VBSCRIPT.REGEXP")

shixuan2008

在下想实现如下功能：
例如字符串“P(5,n_P),B_M(13),B_V(13)”
要把圆括号中间的逗号“，”替换为“）（”，而不在其中的逗号不替换，应该如何设置正则表达式？
还请高手指点

东南西北中发财

\([^\)]+(,).*?\)

microyip

1. Sub Test()
   
2.     Dim oData As Object, nData As Integer, sStr As String
   
3. 
   
4.     sStr = "P(5,n_P),B_M(13),B_V(13)"
   
5.     With CreateObject("Vbscript.RegExp")
   
6.         .Global = True
   
7.         .IgnoreCase = True
   
8.         .Pattern = "\([^,)]+,[^,\)]+\)"
   
9.         Set oData = .Execute(sStr)
   
10.         If oData.Count > 0 Then
    
11.             For nData = 1 To oData.Count
    
12.                 sStr = Replace(sStr, oData(nData - 1), Replace(oData(nData - 1), ",", ")("))
    
13.             Next
    
14.         End If
    
15.     End With
    
16.     MsgBox sStr
    
17. End Sub

复制代码

shixuan2008

谢谢大神 ，研究下

ggmmlol

既然是要求用“正则表达式”对字符进行“替换”，自然是“正则表达式替换”方法最简单：

1. Sub Test()
   
2.     Dim sStr As String
   
3.     sStr = "P(5,n_P),B_M(13),B_V(13)"
   
4.     With CreateObject("Vbscript.RegExp")
   
5.         .Global = True
   
6.         .Pattern = ",(?=[^\(\)]*\))"
   
7.         sStr = .Replace(sStr, ")(")
   
8.     End With
   
9.     MsgBox sStr
   
10. End Sub

复制代码