Foxtable(狐表)用户栏目专家坐堂 → 数据列拆分


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

主题:数据列拆分

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/14 10:37:00 [显示全部帖子]

参考代码

 

Dim str As String = "2017-11-30进行中订单号:222017113080215 买方:重庆市第三人民医院订单金额: 920,428.48 元"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]{4}-[0-9]+-[0-9]+")
msgbox(mc(0).value)
mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]{15,}")
msgbox(mc(0).value)
mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9,. ]+(?=元)")
msgbox(mc(0).value)


 

参考例子 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=108619&skin=0

 

[此贴子已经被作者于2017/12/14 10:37:17编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/14 18:02:00 [显示全部帖子]

datacolchanged事件

 

If e.DataCol.name = "第一列" Then
    Dim str As String = e.DataRow("第一列")
    Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]{4}-[0-9]+-[0-9]+")
    If mc.count > 0 Then
        e.DataRow("第二列") = mc(0).value
    Else
        e.DataRow("第二列") = Nothing
    End If
    mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]{15,}")
    If mc.count > 0 Then
        e.DataRow("第三列") = mc(0).value
    Else
        e.DataRow("第三列") = Nothing
    End If
    mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9,. ]+(?=元)")
    If mc.count > 0 Then
        e.DataRow("第四列") = mc(0).value
    Else
        e.DataRow("第四列") = Nothing
    End If
End If


 回到顶部