以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何提取地址中的省市县内容？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147921)
--  作者：31803263
--  发布时间：2020/3/27 11:00:00
--  如何提取地址中的省市县内容？
员工表中    籍贯列   自动提取地址里的  省市县内容

地址列：湖南省芷江侗族自治县冷水溪乡社山坪村廖 田组   籍贯列显示：湖南省芷江侗族自治县

地址列：江西省赣州市龙南县渡江镇陂坑村上湾小组          籍贯列显示：江西省赣州市龙南县

提取对应的省市县的内容
--  作者：有点蓝
--  发布时间：2020/3/27 12:08: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