以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【求助】如何根据收件地址求出省市区县？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80678)
--  作者：tutu999
--  发布时间：2016/1/28 19:43:00
--  【求助】如何根据收件地址求出省市区县？
新手【求助】如何根据收件地址求出省市区县？
比如：江苏省南京市秦淮区石头街华泰家园11幢1-205室华宏装饰工程有限公司；  根据这个地址 自动求出   江苏【省】  南京【市】 秦淮【区】  华宏装饰工程有限公司【单位】
--  作者：tutu999
--  发布时间：2016/1/28 19:44:00
--  
用来打印快递单，求助高手指教？
--  作者：大红袍
--  发布时间：2016/1/28 22:21:00
--  

Dim str As String = "江苏省南京市秦淮区石头街华泰家园11幢1-205室华宏装饰工程有限公司"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, ".+(?=省)")
If mc.count = 1 Then
    msgbox(mc(0).value)
End If
mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=省).+(?=市)")
If mc.count = 1 Then
    msgbox(mc(0).value)
End If
mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=市).+(?=区)")
If mc.count = 1 Then
    msgbox(mc(0).value)
End If
mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=室).+")

if mc.count = 1 then
    msgbox(mc(0).value)
end if
--  作者：tutu999
--  发布时间：2016/1/29 23:46:00
--  
谢谢您，非常感激。您辛苦了。