Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请帮助解决：如何把产品名称列的产品号自动变为品号列的数字？


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

主题：请帮助解决：如何把产品名称列的产品号自动变为品号列的数字？
帅哥哟，离线，有人找我吗？
lyfxybc
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1294 积分：9852 威望：0 精华：0 注册：2012/9/19 21:13:00 		请帮助解决：如何把产品名称列的产品号自动变为品号列的数字？  发帖心情 Post By：2012/12/1 17:17:00 [只看该作者]

请帮助解决：如何把产品名称列的产品号自动变为品号列的数字？
图片点击可在新窗口打开查看此主题相关图片如下：152.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/12/1 17:23:00 [只看该作者]

知识点

 Dim data As String = "abc11234-455555-cccdddrrr"
 Dim catchs As New System.Text.RegularExpressions.Regex("[0-9]+")
 Dim mc As System.Text.RegularExpressions.MatchCollection = catchs.Matches(data)
 msgbox(mc(0).Value)

 回到顶部
帅哥哟，离线，有人找我吗？
lyfxybc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1294 积分：9852 威望：0 精华：0 注册：2012/9/19 21:13:00 		  发帖心情 Post By：2012/12/25 21:40:00 [只看该作者]

谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
nblwar
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：977 积分：6806 威望：0 精华：1 注册：2012/8/7 22:03:00 		  发帖心情 Post By：2012/12/26 8:07:00 [只看该作者]

这段代码没见过啊，能解释下吗

 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/12/26 8:43:00 [只看该作者]

以下是引用nblwar在2012-12-26 8:07:00的发言：
这段代码没见过啊，能解释下吗

 这段是正则的通用代码，用来截取符合条件的字符串
 
 Dim data As String = "abc11234-455555-cccdddrrr"
 Dim catchs As New System.Text.RegularExpressions.Regex("[0-9]+")  '定义匹配规则
 Dim mc As System.Text.RegularExpressions.MatchCollection = catchs.Matches(data)  '截取，存入一个集合
 msgbox(mc(0).Value

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询