Foxtable(狐表)用户栏目专家坐堂 → 第一次用字符串截取,求指导[已解决]


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

主题:第一次用字符串截取,求指导[已解决]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/3 15:19:00 [显示全部帖子]

 这个意思?

 

Dim str As String = "RJ,C102不良,拒绝有效期至2016/7/27,当前审批处理时间2016/4/28 14:49:04;"

Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "RJ.*不良")
msgbox(mc.count)
If mc.count > 0 Then
    msgbox(mc(0).value)
End If

 


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/3 15:39:00 [显示全部帖子]

'''
For Each r As Row In Tables("表B").rows
    Dim str As String = r("第一列")
    If str.Contains("RJ") Then
        Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=]).*(?=当前审)")
        msgbox(mc.count)
        If mc.count > 0 Then
            msgbox(mc(0).value)
        End If
    End If
Next


 回到顶部