| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]以车牌号最后一个数字为准，这怎么弄！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=38257) |
| -- 作者：gaoyong30000 -- 发布时间：2013/7/24 11:47:00 -- [求助]以车牌号最后一个数字为准，这怎么弄！ 以前的代码 s2= dr1("编码") & right(s1,1) s1 一般是车牌号 例如：苏K-GM060 取最右边一个 但是有时候会这样 苏K-GM06胡小姐 需要取6 苏K-GM李07 需要取7 如果这样的 就需要取最右边的一个数字 请问代码如何写？？？ |
| -- 作者：Bin -- 发布时间：2013/7/24 11:52:00 -- 字符串处理当然要使用万能得正则表达式了 Dim s As String = "苏K-GM060" MessageBox.show(System.Text.RegularExpressions.Regex.Match(s,"[1-9]{1}").Tostring()) |
| -- 作者：傻马难骑 -- 发布时间：2013/7/24 11:53:00 -- “苏K-GM李07 ”，有这种车牌号吗？ |
| -- 作者：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())
|
| -- 作者：Bin -- 发布时间：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 -- 发布时间：2013/7/24 13:51:00 -- 多个数字 超过9？？ |
| -- 作者：gaoyong30000 -- 发布时间：2013/7/24 13:54:00 -- 以下是引用傻马难骑在2013-7-24 11:53:00的发言： 这个是自己备注的~~~~~~~~~~~~
“苏K-GM李07 ”，有这种车牌号吗？ |
| -- 作者：Bin -- 发布时间：2013/7/24 14:04:00 -- 以下是引用gaoyong30000在2013-7-24 13:51:00的发言： 多个数字 超过9？？ |
| -- 作者：Bin -- 发布时间：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)
|