专家坐堂-[求助]额一个匹配省市县乡的正则表达式找不到了有人能发下链接不Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]额一个匹配省市县乡的正则表达式找不到了有人能发下链接不  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=142501)

--  作者：dzy1232016
--  发布时间：2019/10/29 10:56:00
--  [求助]额一个匹配省市县乡的正则表达式找不到了有人能发下链接不
[求助]额一个匹配“省市县乡”的正则表达式找不到了有人能发下链接不

--  作者：有点蓝
--  发布时间：2019/10/29 11:16:00
--

Dim s As String="甘肃省兰州市安宁区马家镇银滩路街道"
Dim p As String = "([省市区县乡镇村])"
Dim p2 As String = "([省市区县乡镇村])|(?=街道|街)"
Dim r As New System.Text.RegularExpressions.Regex(p2)
Dim str = r.Split(s)
For Each a As String In str
Output.Show(a)
Next