怎样写代码提取字符才能达到这样的效果 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样写代码提取字符才能达到这样的效果

共有10215人关注过本帖树形打印复制链接主题：怎样写代码提取字符才能达到这样的效果

zcw728909

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：209 积分：1607 威望：0 精华：0 注册：2012/9/7 20:24:00

怎样写代码提取字符才能达到这样的效果 发帖心情

Post By：2012/11/22 22:05:00 [只看该作者]

在表中有个字符型列“第一列”和整数型列“第二列”，

怎样才能做到在“第一列”中输入内容“-1,0,2a,3zsfgn”,在第二列中自动生成相应的整数，如下图

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20121122215525.jpg

也就是说只提取第一列中的数字部分(我的第一列都是以数字开头的，只提取开头的数字，包括-1，-2等)

y2287958

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4759 积分：34603 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2012/11/22 23:49:00 [只看该作者]

用代码

对第一列的每个字符进行单字符判断

lin_hailun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/11/23 8:56:00 [只看该作者]

参考代码，把代码结合表的DataColChanged事件运用。

Dim data As String = "-11234阿斯是地方即可控件"
Dim catchs As New System.Text.RegularExpressions.Regex("[-]*[0-9\.]+")
Dim mc As System.Text.RegularExpressions.MatchCollection = catchs.Matches(data)
msgbox(mc(0).Value)

http://www.foxtable.com/help/topics/0625.htm

[此贴子已经被作者于2012-11-23 9:54:06编辑过]