主题：对地址进行归类

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目7.foxdb

福建省泉州市惠安县山霞镇田边村委会159号

如果我想打开窗口1 的时候 按照省市县镇村委会还有    159号 对应填入有没有好的方法。。

如果省市等字符正常出现的话，就容易提取。如果写入不规范，那就肯定提取失败。

Dim str As String = "福建省泉州市惠安县山霞镇田边村委会159号"
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

甜老师如果首级是上海市或者自治区呢。。第四级有的是街道之类的都要。都要通过这种方式判断么。。

是不是在每一级加上分割符更好些

'Dim str As String = "福建省泉州市惠安县山霞镇田边村委会159号"
Dim str As String = "上海市aa区bb街cc路xx号"
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

肯定是自己加上分隔符这样好一些。