Foxtable(狐表)用户栏目专家坐堂 → 如何分离字符与数值


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

主题:如何分离字符与数值

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


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
如何分离字符与数值  发帖心情 Post By:2018/10/14 21:42:00 [只看该作者]

年金643.8 医保1540.83 失业金404.33 公积金9704.7养老金5746.16

如何把上面这段字段串分解成下面五行两列的样式
年金              643.8
医保           1540.83
失业金        404.33
公积金        9704.7
养老金          5746.16

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/14 21:49:00 [只看该作者]

Dim str As String = "年金643.8 医保1540.83 失业金404.33 公积金9704.7养老金5746.16"
For Each s As String In str.split(" ")
    Dim mc = System.Text.RegularExpressions.Regex.Matches(s, "[0-9.]+")
    Dim n = mc(0).value
    s = s.replace(n, "")
    msgbox(s)
    msgbox(n)
Next

 回到顶部