Foxtable(狐表)用户栏目专家坐堂 → 求一个正则表达式验证X栋X单元X楼X号


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

主题:求一个正则表达式验证X栋X单元X楼X号

帅哥哟,离线,有人找我吗?
q1156741089
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:165 积分:1698 威望:0 精华:0 注册:2017/3/30 15:55:00
求一个正则表达式验证X栋X单元X楼X号  发帖心情 Post By:2019/11/18 10:09:00 [只看该作者]

X必须为整数

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110558 积分:562680 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/18 10:37:00 [只看该作者]

Dim s As String="1栋X单元3楼4号"
Dim p2 As String = "栋|单元|楼|号"
Dim r As New System.Text.RegularExpressions.Regex(p2)
Dim str = r.Split(s)
Dim i As Integer
For Each a As String In str
    If a > "" Then
        Output.Show(a & "," & Integer.TryParse(a,i))
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
q1156741089
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:165 积分:1698 威望:0 精华:0 注册:2017/3/30 15:55:00
  发帖心情 Post By:2019/11/18 10:39:00 [只看该作者]

好的  谢谢

 回到顶部