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


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

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

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部