Foxtable(狐表)用户栏目专家坐堂 → 提取中间字符串代码怎么写


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

主题:提取中间字符串代码怎么写

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


加好友 发短信
等级:婴狐 帖子:12 积分:279 威望:0 精华:0 注册:2015/5/30 12:36:00
提取中间字符串代码怎么写  发帖心情 Post By:2018/11/7 10:49:00 [只看该作者]

拟提取第一列中“发放账号:”字符后面的帐号,代码如下:
If e.DataCol.Name = "第一列"
    If e.NewValue = Nothing Then
        e.DataRow("第二列") = Nothing
    Else
        Dim chrs() As Char = {"发放帐号:",  "," ,"不匹配"}
        Dim ary() As String = e.NewValue.split(chrs)
        e.DataRow("第二列") = ary(1)
    End If
End If
显示效果不是纯帐号,求助改进代码。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:提取中间字符串.table


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


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

代码改成

 

If e.DataCol.Name = "第一列"
    If e.NewValue = Nothing Then
        e.DataRow("第二列") = Nothing
    Else
        Dim str = e.NewValue
        Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=发放帐号.{1})[0-9]+")
        If mc.count > 0 Then
            e.DataRow("第二列") = mc(0).value
        Else
            e.DataRow("第二列") = Nothing
           
        End If
    End If
End If


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


加好友 发短信
等级:婴狐 帖子:12 积分:279 威望:0 精华:0 注册:2015/5/30 12:36:00
  发帖心情 Post By:2018/11/7 11:15:00 [只看该作者]

版主厉害,完美解决,非常感谢。就是版主所运用的公式看不懂,可否推介类似的说明章节或视频,想学个明白。

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


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


 回到顶部