[已解决]学习正则法，这代码应该怎么写。。。

豆丁

还应该排除括号：
Function ns(rg)
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "[^\d\.\*\/\+\-\^\(\)]"
        ns = Application.Evaluate(.Replace(rg, ""))
    End With
End Function

liuguansky

回复 兰色幻想 的帖子

1. Sub mxg()
   
2.   MsgBox ns("正度0.5*0.8+(3/2)-1")
   
3. End Sub
   
4. Function ns(rg As Variant) As String
   
5.     With CreateObject("vbscript.regexp")
   
6.         .Global = True
   
7.         .MultiLine = True
   
8.         .Pattern = "[\u4e00-\u9fa5]+"
   
9.         If .test(rg) Then
   
10.             ns = Format(Application.Evaluate(.Replace(rg, "")), "0.00")
    
11.         End If
    
12.     End With
    
13. End Function

复制代码

{:111:}因为PATTERN多写了一个^

mxg825

.Pattern 值 一变 应万变！确实厉害！