[求助]以车牌号最后一个数字为准，这怎么弄！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有4622人关注过本帖树形打印复制链接主题：[求助]以车牌号最后一个数字为准，这怎么弄！

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)

下一主题 >> << 上一主题

主题：[求助]以车牌号最后一个数字为准，这怎么弄！