以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  求一个正则表达式验证X栋X单元X楼X号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143217)

--  作者：q1156741089 --  发布时间：2019/11/18 10:09:00 --  求一个正则表达式验证X栋X单元X楼X号 X必须为整数

--  作者：有点蓝 --  发布时间：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 --  发布时间：2019/11/18 10:39:00 --   好的  谢谢