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

mxg825

'应该怎么改这个正则法？以下是兰版的正则法（数字相加）
Sub mxg()
    MsgBox ns("正度0.5*0.8") '剔除文字，返回结果公式值0.4   （0.5*0.8）
End Sub
       Function ns(rg)
         Dim reg As New RegExp
         Dim sr, ma, s, m, x
         With reg
           .Global = True
           .Pattern = "\d*\.?\d*"
         Set ma = .Execute(rg)
           For Each m In ma
              s = s + Val(m)
           Next m
         End With
        ns = s
       ' Stop
       End Function

最佳答案

月排行榜 / 总排行榜

liuguansky

2011-9-1 14:58

回复 兰色幻想 的帖子

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多写了一个^

跳转到最佳答案楼层

兰色幻想

Sub mxg()
    MsgBox ns("正度0.5*0.8*3") '剔除文字，返回结果公式值0.4   （0.5*0.8）
   
End Sub
       Function ns(rg)
         Dim reg As New RegExp
         Dim sr, ma, s, m, x
         With reg
           .Global = True
           .Pattern = "\d*\.?\d*"
         s = 1
         Set ma = .Execute(rg)
           For Each m In ma
              s = s * IIf(m = "", 1, Val(m))
              Debug.Print s
           Next m
         End With
        ns = s
       End Function

mxg825

谢谢兰 版。。。

但如果有 其他运算符 就不行了！
有没有通用的？
  MsgBox ns("正度0.5*0.8+(3/2)-1") '剔除文字，返回结果公式值
如：

mxg825

应该是要改这一句代码吧 ？
.Pattern = "\d*\.?\d*"

liuguansky

.pattern=[^\u4e00-\u9fa5]

if .test(s) then
   msgbox application.evaluate(.replace(s,""))
endif
试试

兰色幻想

Sub mxg()
  MsgBox ns("正度0.5*0.8+(3/2)-1")     
End Sub
       Function ns(rg)
         Dim reg As New RegExp
         Dim ma, s, m, x
         With reg
           .Global = True
           .Pattern = "^\W+"
           ns = Evaluate(.Replace(rg, ""))
        End With
       End Function

兰色幻想

花花，你这个正则表达式能运行吗，我怎么不能用呢？

mxg825

MsgBox ns("0.5正度*0.8+(3/2)-1")     
这样为什么就出错了
本地窗口 看到 NS = ERROR 2015

mxg825

^ 匹配一个输入或一行的开头，"^\W+"  匹配开头是（非一个字母或数字或下划线，也就是 A~Z,a~z,0~9） 剔除开头是中文的！

兰色幻想

如果汉字不在最前面，可以这样
Sub mxg()
  MsgBox ns("正度0.5*0.8我+(3/2)-1")
End Sub
       Function ns(rg)
         Dim reg As New RegExp
         Dim ma, s, m, x, sr
         With reg
           .Global = True
           .Pattern = "[^\.0-9\+\-\*\/\^]"
           sr = .Replace(rg, "")
           ns = Evaluate(sr)
        End With
       End Function