Foxtable(狐表)用户栏目专家坐堂 → 怎么判断字符串里的数字呢


  共有1709人关注过本帖树形打印复制链接

主题:怎么判断字符串里的数字呢

帅哥哟,离线,有人找我吗?
aidimeng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:739 积分:7211 威望:0 精华:0 注册:2015/9/14 14:26:00
怎么判断字符串里的数字呢  发帖心情 Post By:2018/4/23 16:48:00 [显示全部帖子]

 字符串:压榨玉米油3.5L*4

想提取下里面的数字部分,怎么实现啊

 

 

Dim reg As New Regex("\d+")
 Dim m As Match = reg.Match("axd123.09")
 If m.Success Then
     Dim a As Double = m.Value
Output.Show(a)
 End If

计算结果是123

怎么样可以包含 整数 或小数啊

[此贴子已经被作者于2018/4/23 17:12:18编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
aidimeng
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:739 积分:7211 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2018/4/23 19:17:00 [显示全部帖子]

十分感谢大家

 回到顶部
帅哥哟,离线,有人找我吗?
aidimeng
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:739 积分:7211 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2018/4/23 19:17:00 [显示全部帖子]

谢谢甜老师

 回到顶部
帅哥哟,离线,有人找我吗?
aidimeng
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:739 积分:7211 威望:0 精华:0 注册:2015/9/14 14:26:00
  发帖心情 Post By:2018/4/23 20:50:00 [显示全部帖子]

Dim 测试文本 = args(0)

Dim 匹配集合 = (New Regex("[0-9.]+")).Matches(测试文本)

Dim 结果列表 As New List(Of Decimal)

For Each 匹配 As Match In 匹配集合

    If IsNumeric(匹配.Value) Then 结果列表.Add(CDec(匹配.Value))

Next
Return 结果列表

 

第一次使用正则表达式,作为标记留念,谢谢各位


 回到顶部