以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动填充地址  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116821)
--  作者：恒隆君
--  发布时间：2018/3/31 21:37:00
--  自动填充地址

收货地址：宇，13417XXXX86，广东省汕头市澄海区凤翔街道 南门头XX园94幢302 ，515800

怎样自动拆分成以下格式
收件人:   宇
联系电话: 13417XXXX86
省份: 广东省
市: 汕头市
区: 澄海区
地址: 凤翔街道南门头XX园94幢302
--  作者：恒隆君
--  发布时间：2018/4/1 16:51:00
--  
老师，有没有例子？
--  作者：有点甜
--  发布时间：2018/4/1 18:07:00
--  

Dim data As String = "宇,13417XXXX86,广东省汕头市澄海区凤翔街道 南门头XX园94幢302 ,515800"
Dim arr() As String = data.split(",")
msgbox(arr(0))
msgbox(arr(1))
msgbox(arr(3))
Dim str As String = arr(2)
Dim ary() As String = {"^", "(省|市|自治区)", "(市|区)", "县", "(镇|街)", "(村|会)", "$"}
For i As Integer = 0 To 5
    For j As Integer = i To 0 Step -1
        Dim mc = System.Text.RegularExpressions.Regex.Match(str, "(?<=" & ary(j) & ").+" & ary(i+1))
        If mc.success Then
            msgbox(ary(i+1) & ":" & mc.value)
            Exit For
        End If
    Next
Next

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=113910&skin=0