以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  关于拆分  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142478)

--  作者：ygg8310 --  发布时间：2019/10/28 15:59:00 --  关于拆分 如题，例如地址为：广东省湛江市麻章人民大道16号如何实现将地址拆分并填入到“省份”，“市，县”列？

--  作者：有点蓝 --  发布时间：2019/10/28 16:10:00 --   参考： Dim s As String="广东省湛江市麻章人民大道16号" 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