以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 备注型的二行数据,怎么写代码,把数字都取出来? (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114492) |
-- 作者:xxfoxtable -- 发布时间:2018/2/7 16:29:00 -- 备注型的二行数据,怎么写代码,把数字都取出来? 39.5×3.5×0.1 6.38×4.7×0.1 |
-- 作者:有点甜 -- 发布时间:2018/2/7 17:17:00 -- Dim str As String = "39.5×3.5×0.1" & vbcrlf & "6.38×4.7×0.1" Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9\\.]+") For i As Integer = 0 To mc.count-1 output.show(mc(i).value) Next |