以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  取数有错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192230)

--  作者：lihe60 --  发布时间：2024/6/4 13:33:00 --  取数有错误 Dim str As String = "计量单位" For Each s As String In str.split(",")     Dim mc = System.Text.RegularExpressions.Regex.Matches(s, "[0-9.]+")     MessageBox.Show(mc(0).value)   \'  m = mc(0).value Next 输出结果有错误。

--  作者：有点蓝 --  发布时间：2024/6/4 13:58:00 --   Dim str As String = "计量单位" Dim r As New System.Text.RegularExpressions.Regex("[0-9.]+") For Each s As String In str.split(",")     If r.isMatch(s) Then         Dim mc = r.Matches(s)         MessageBox.Show(mc(0).value)     End If Next