Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]以车牌号最后一个数字为准，这怎么弄！


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

主题：[求助]以车牌号最后一个数字为准，这怎么弄！
帅哥哟，离线，有人找我吗？
gaoyong30000
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：9032 威望：0 精华：1 注册：2011/5/25 16:33:00 		[求助]以车牌号最后一个数字为准，这怎么弄！  发帖心情 Post By：2013/7/24 11:47:00 [只看该作者]

 以前的代码
s2= dr1("编码") & right(s1,1)

s1 一般是车牌号  例如：苏K-GM060  取最右边一个
但是有时候会这样  苏K-GM06胡小姐   需要取6
                         苏K-GM李07        需要取7

如果这样的  就需要取最右边的一个数字

请问代码如何写？？？
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/7/24 11:52:00 [只看该作者]

字符串处理当然要使用万能得正则表达式了

Dim s As String = "苏K-GM060"
MessageBox.show(System.Text.RegularExpressions.Regex.Match(s,"[1-9]{1}").Tostring())
 回到顶部
帅哥哟，离线，有人找我吗？
傻马难骑
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：215 积分：1306 威望：0 精华：0 注册：2013/4/7 22:24:00 		  发帖心情 Post By：2013/7/24 11:53:00 [只看该作者]

“苏K-GM李07 ”，有这种车牌号吗？

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


加好友 发短信
等级：八尾狐 帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2013/7/24 12:22:00 [只看该作者]

Dim s As String = StrReverse("苏K-GM0620kkk")
Output.show(System.Text.RegularExpressions.Regex.Match(s,"[0-9]{1}").Tostring())
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/7/24 12:29:00 [只看该作者]

以下是引用don在2013-7-24 12:22:00的发言：
Dim s As String = StrReverse("苏K-GM0620kkk")
Output.show(System.Text.RegularExpressions.Regex.Match(s,"[0-9]{1}").Tostring())

如果会有多个数字的情况就要多判断一下了.吃饭去了.呆会楼主要是说会有这个情况我再补充一下.

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


加好友 发短信
等级：五尾狐 帖子：1165 积分：9032 威望：0 精华：1 注册：2011/5/25 16:33:00 		  发帖心情 Post By：2013/7/24 13:51:00 [只看该作者]

 多个数字 超过9？？
 回到顶部
帅哥哟，离线，有人找我吗？
gaoyong30000
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1165 积分：9032 威望：0 精华：1 注册：2011/5/25 16:33:00 		  发帖心情 Post By：2013/7/24 13:54:00 [只看该作者]

以下是引用傻马难骑在2013-7-24 11:53:00的发言：
“苏K-GM李07 ”，有这种车牌号吗？

这个是自己备注的~~~~~~~~~~~~

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/7/24 14:04:00 [只看该作者]

以下是引用gaoyong30000在2013-7-24 13:51:00的发言：
 多个数字 超过9？？



多个数字意思是 苏K-GM0620  苏K-GM01357

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/7/24 18:05:00 [只看该作者]

Dim s As String = "苏K-GM0603ss"
Dim rs As String
Dim mh As System.Text.RegularExpressions.Match=System.Text.RegularExpressions.Regex.Match(s,"[1-9]{1}")
Do While True
    If mh.NextMatch.ToString() <> "" Then
        mh=mh.NextMatch
    Else
        rs=mh.Tostring()
        Exit Do
    End If
Loop
MessageBox.show(rs)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询