Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【已解决】[求助]收货地址解析这个可以用在狐表上吗？


  共有4595人关注过本帖树形打印复制链接

主题：【已解决】[求助]收货地址解析这个可以用在狐表上吗？
帅哥哟，离线，有人找我吗？
zto001
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1490 积分：10607 威望：0 精华：0 注册：2018/10/16 11:42:00 		【已解决】[求助]收货地址解析这个可以用在狐表上吗？  发帖心情 Post By：2020/9/13 21:14:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1490 积分：10607 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2020/9/14 1:31:00 [显示全部帖子]

Dim pattern As String = "[1][358][0-9]{9}|[0][0-9]{2,3}-[0-9]{7,8}"
Dim 收货信息= "湖南省长沙市浏阳市浏阳大道阿斯事部 15616161616 某某"
Dim 省,市,区,地址,电话,姓名 As String
Dim 解析后 As String=收货信息
'【解析剥离电话号码】
Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
For Each  match As System.Text.RegularExpressions.Match In rgx.Matches(收货信息)
    电话=match.Value
    解析后=解析后.Replace(match.Value ,"")
Next
'Output.Show(解析后)
'【解析剥离省市区地址】
Dim p As String = "([省市区县乡镇村])"
Dim p2 As String = "([省市区县乡镇村]|街道|街)"
Dim r As New System.Text.RegularExpressions.Regex(p)
Dim str = r.Split(解析后)
Dim Int As Integer
For Each a As String In str
    int=int+1
    Select Case int
        Case 1
            省=a
        Case 2
            省=省 & a
        Case 3
            市=a
        Case 4
            市= 市 & a
        Case 5
            区=a
        Case 6
            区=区 & a
        Case Else
            地址=地址 & a
    End Select
Next
Output.Show(省)
Output.Show(市)
Output.Show(区)
Output.Show(地址)
Output.Show(电话)

勉强可以凑合下解析出省市区电话。有两个问题

1、如果省市区地址不规范，导致没有int没有那么多位，会出错（如地址是长沙市浏阳市浏阳大道阿斯事部 15616161616 某某），应该怎样改好点（不出错，最好是如果少了省份，省为空值）

2、省份有自治区、特别行政区、这两个怎么分出来？

3、姓名怎么分出来
[此贴子已经被作者于2020/9/14 1:31:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1490 积分：10607 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2020/9/14 10:36:00 [显示全部帖子]

验证中文姓bai名的正则表达du式：[\u4e00-\u9fa5]，这个表达式是专门用来匹配中文姓名的。zhi


用这个正则试试。
一段文本里一般用 ,;/ 空格等符号或者电话号码 断开 的，一般在两字以上五字以内

怎么写？
[此贴子已经被作者于2020/9/14 10:36:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1490 积分：10607 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2020/9/14 12:40:00 [显示全部帖子]

https://blog.csdn.net/zl544434558/article/details/45331213

这个代码怎么改？
1、姓名输入框不允许为空
2、姓名输入框只能输入汉字且长度为2-4
3、姓名输入框的姓只能是百家姓里面

Dim s As String = "如,地址 是长沙;市浏阳市/浏阳大道阿 斯事部斯事部 斯事部斯事部是 斯事部斯事部是的 斯事部斯事部是试试 15616161616 某某 李佳琪"
Dim arr() As String = s.split(new Char(){",",";","/"," "})
For Each ar As String In arr
 使用正则表达式判断是否有姓名
Next
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1490 积分：10607 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2020/9/14 12:55:00 [显示全部帖子]

    Dim s0 As String = ar
    Dim p As String = "\w*[\u4e00-\u9fa5]{2,4}\w*" 正则表达式判断是否是2-4字汉字                   "^[李]+\w这个是正则表达式开头以李开头的，如何把两个正则表达式合在一起
    Dim rgx = new System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
    If rgx.isMatch(s0) Then
        Output.Show("匹配")
    Else
        Output.Show("不匹配")
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1490 积分：10607 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2020/9/14 13:14:00 [显示全部帖子]

'''
Dim s As String = "李如,柳址 诸葛长沙;市浏阳市/浏阳大道阿 斯事部斯事部 斯事部斯事部是 斯事部斯事部是的 斯事部斯事部是试试 15616161616 某某 李佳琪"
Dim arr() As String = s.split(new Char(){",",";","/"," ","0","1","2","3","4","5","6","7","8","9","|","，","。","；","："})


For Each ar As String In arr
    
    
    '
    'msgbox(arr.length)
    'msgbox(arr(2))
    
    
    Dim s0 As String = ar
    Dim p As String = "^[赵钱孙李周吴郑王冯陈褚卫蒋沈韩杨朱秦尤许何吕施张孔曹严华金魏陶姜戚谢邹喻柏水窦章云苏潘葛奚范彭郎鲁韦昌马苗凤花方俞任袁柳酆鲍史唐费廉岑薛雷贺倪汤滕殷罗毕郝邬安常乐于时傅皮卞齐康伍余元卜顾孟平黄和穆萧尹姚邵湛汪祁毛禹狄米贝明臧计伏成戴谈宋茅庞熊纪舒屈项祝董梁杜阮蓝闵席季麻强贾路娄危江童颜郭梅盛林刁钟徐邱骆高夏蔡田樊胡凌霍虞万支柯昝管卢莫经房裘缪干解应宗丁宣贲邓郁单杭洪包诸左石崔吉钮龚程嵇邢滑裴陆荣翁荀羊於惠甄麴家封芮羿储靳汲邴糜松井段富巫乌焦巴弓牧隗山谷车侯宓蓬全郗班仰秋仲伊宫宁仇栾暴甘钭厉戎祖武符刘景詹束龙叶幸司韶郜黎蓟薄印宿白怀蒲邰从鄂索咸籍赖卓蔺屠蒙池乔阴欎胥能苍双闻莘党翟谭贡劳逄姬申扶堵冉宰郦雍舄璩桑桂濮牛寿通边扈燕冀郏浦尚农温别庄晏柴瞿阎充慕连茹习宦艾鱼容向古易慎戈廖庾终暨居衡步都耿满弘匡国文寇广禄阙东殴殳沃利蔚越夔隆师巩厍聂晁勾敖融冷訾辛阚那简饶空曾毋沙乜养鞠须丰巢关蒯相查後荆红游竺权逯盖益桓公上欧赫皇尉澹淳太轩令宇长鲜闾亓仉督子颛端漆壤拓夹晋楚闫法汝鄢涂钦百南呼归海微岳帅缑亢况后有琴西商牟佘佴伯赏墨哈谯笪年爱阳佟第言福姓]+\w*[\u4e00-\u9fa5]{1,4}\w*"
    Dim rgx = new System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
    If rgx.isMatch(s0) Then
        Output.Show("匹配")
    Else
        Output.Show("不匹配")
    End If
    Output.Show(ar)
Next


这样严谨不






更改之后的

Dim 收货信息= "北京市北京市房山区长虹区长虹大道759号"

Dim 省,值1,值2,值3,值4,市,区,地址 As String
Dim p As String = "([省市区县乡镇]|特别行政区|自治区|地区|盟|旗|群岛|街道|街)"
Dim p2 As String = "([省市区县乡镇]|街道|街)"
Dim r As New System.Text.RegularExpressions.Regex(p)
Dim str = r.Split(收货信息)
Dim Int As Integer
For Each a As String In str
    int=int+1
    Select Case int
        Case 1
            值1=a
        Case 2
            值1=值1 & a
        Case 3
            值2=a
        Case 4
            值2= 值2 & a
        Case 5
            值3=a
        Case 6
            值3=值3 & a
        Case Else
            值4=值4 & a
    End Select
Next
Output.Show("省:" & 值1 & ";市:" & 值2 & ";区:" & 值3 & ";地址:" & 值4)
Output.Show(int)
If int>7 Then
    Output.Show("正常的省:" & 值1 & ";市:" & 值2 & ";区:" & 值3 & ";地址:" & 值4)
Else
    MessageBox.Show("请加入省市区书写(如:上海市上海市长虹区长虹大道759号)或者手动添加省市区")
End If



2020-9-22 09:40:43修改
Dim 省,值1,值2,值3,值4,市,区,地址 As String
Dim 收货地址 As String="北京市北京市东城区"
Dim Values1() As String
Values1 = DataTables("省市区").GetComboListString("市简称").split("|")
For Index1 As Integer = 0 To Values1.Length - 1
    If 收货地址.Contains(Values1(Index1)) Then
        Dim Values0() As String
        Select Case Values1(Index1)
            Case "济源","仙桃","潜江","天门","神农架","东莞","中山","琼海","儋州","五指山","文昌","万宁","东方","定安","屯昌","澄迈","临高","白沙","昌江","乐东","陵水","保亭","琼中","西南中沙群岛办事处","石河子","阿拉尔","图木舒克","五家渠"
                值1=""
                值2=""
                值3=""
                值4=""
                Dim p As String = "([省市区县乡镇]|特别行政区|自治区|地区|盟|旗|群岛|街道|街)"
                Dim r As New System.Text.RegularExpressions.Regex(p)
                Dim str = r.Split(收货地址)
                Dim Int As Integer
                For Each a As String In str
                    int=int+1
                    Select Case int
                        Case 1
                            值1=a
                        Case 2
                            值1=值1 & a
                        Case 3
                            值2=a
                        Case 4
                            值2= 值2 & a
                        Case 5
                            值3=a
                        Case 6
                            值3=值3 & a
                        Case Else
                            值4=值4 & a
                    End Select
                Next
                If int>7 Then
                    Output.Show("正常的省:" & 值1 & ";市:" & 值2 & ";区:" & 值3 & ";地址:" & 值4)
                Else
                    MessageBox.Show("请加入省市区书写(如:上海市上海市长虹区长虹大道759号)或者手动添加省市区")
                End If
                
            Case Else
                Values0 = DataTables("省市区").GetComboListString("区","[市简称]= '" & Values1(Index1) &"'").split("|")
                For Index0 As Integer = 0 To Values0.Length - 1
                    If 收货地址.Contains(Values0(Index0)) Then
                        省=""
                        市=""
                        区=""
                        地址=""
                        Dim dr As DataRow = DataTables("省市区").Find("市简称='"& Values1(Index1) &"' and 区='"& Values0(Index0) &"'")
                        省=dr("省")
                        市=dr("市")
                        区=dr("区")
                        地址=收货地址.Replace(省,"").Replace(市,"").Replace(区,"")
                    End If
                Next
            End If
        Next
End Select




2020-9-22 10:10:37  改解析收货人以及地址信息

收货地址=解析后
Dim Values1() As String
Values1 = DataTables("省市区").GetComboListString("市简称").split("|")
For Index1 As Integer = 0 To Values1.Length - 1
    If 收货地址.Contains(Values1(Index1)) Then
        Dim Values0() As String
        Select Case Values1(Index1)
            Case "济源","仙桃","潜江","天门","神农架","东莞","中山","琼海","儋州","五指山","文昌","万宁","东方","定安","屯昌","澄迈","临高","白沙","昌江","乐东","陵水","保亭","琼中","西南中沙群岛办事处","石河子","阿拉尔","图木舒克","五家渠"
                值1=""
                值2=""
                值3=""
                值4=""
                Dim p As String = "([市区县乡镇]街道|街)"
                Dim r As New System.Text.RegularExpressions.Regex(p)
                Dim str = r.Split(收货地址)
                Dim Int As Integer
                For Each a As String In str
                    int=int+1
                    Select Case int
                        Case 1
                            值1=a
                        Case 2
                            值1=值1 & a
                        Case 3
                            值2=a
                        Case 4
                            值2= 值2 & a
                        Case Else
                            值3=值3 & a
                    End Select
                Next
                
                省=""
                市=""
                区=""
                地址=""
                Dim dr As DataRow = DataTables("省市区").Find("市简称='"& Values1(Index1) & "'")
                省=dr("省")
                市=dr("市")
                区=值2
                地址=值3
            Case Else
                Values0 = DataTables("省市区").GetComboListString("区","[市简称]= '" & Values1(Index1) &"'").split("|")
                For Index0 As Integer = 0 To Values0.Length - 1 '000
                    If 收货地址.Contains(Values0(Index0)) Then
                        省=""
                        市=""
                        区=""
                        地址=""
                        Dim dr As DataRow = DataTables("省市区").Find("市简称='"& Values1(Index1) &"' and 区='"& Values0(Index0) &"'")
                        省=dr("省")
                        市=dr("市")
                        区=dr("区")
                        地址=收货地址.Replace(省,"").Replace(市,"").Replace(区,"")
                    End If
                Next
        End Select
    End If
Next

[此贴子已经被作者于2020/9/22 10:10:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1490 积分：10607 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2020/9/15 8:07:00 [显示全部帖子]

https://www.cnblogs.com/syp172654682/p/9252951.html

这个能用正则匹配特殊地方，改成狐表代码要怎么改？


    public static List<Map<String,String>> addressResolution(String address){
        String regex="((?<province>[^省]+省|.+自治区)|上海|北京|天津|重庆)(?<city>[^市]+市|.+自治州)(?<county>[^县]+县|.+区|.+镇|.+局)?(?<town>[^区]+区|.+镇)?(?<village>.*)";
        Matcher m=Pattern.compile(regex).matcher(address);
        String province=null,city=null,county=null,town=null,village=null;
        List<Map<String,String>> table=new ArrayList<Map<String,String>>();
        Map<String,String> row=null;
        while(m.find()){
            row=new LinkedHashMap<String,String>();
            province=m.group("province");
            row.put("province", province==null?"":province.trim());
            city=m.group("city");
            row.put("city", city==null?"":city.trim());
            county=m.group("county");
            row.put("county", county==null?"":county.trim());
            town=m.group("town");
            row.put("town", town==null?"":town.trim());
            village=m.group("village");
            row.put("village", village==null?"":village.trim());
            table.add(row);
        }
        return table;
    }

}
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1490 积分：10607 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2020/11/22 22:54:00 [显示全部帖子]

最新剥离寄件人信息代码
'''
Dim 省,市,区,地址,电话,姓名,解析后 As String
Dim 解析后= "收件地址是湖南省长沙市浏阳市浏阳15616161615大道阿斯事部 15616161616 周某某"
解析后=解析后.Replace("地址","").Replace("收货人","").Replace("收货","").Replace("电话","").Replace("姓名","").Replace("收件人","").Replace("手机号" ,"").Replace("手机","").Replace("号码","").Replace("名字","").Replace("收件","")
'【解析剥离电话号码】
Dim pattern As String = "[1][358][0-9]{9}|[0][0-9]{2,3}-[0-9]{7,8}"
Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
For Each  match As System.Text.RegularExpressions.Match In rgx.Matches(解析后)
    If 电话="" Then
        电话=match.Value
        解析后=解析后.Replace(match.Value ,"")
    End If
Next

'剥离姓名
Dim s As String =解析后 ' "李如,柳址 诸葛长沙;市浏阳市/浏阳大道阿 斯事部斯事部 斯事部斯事部是 斯事部斯事部是的 斯事部斯事部是试试 15616161616 某某 李佳琪"
Dim arr() As String = s.split(new Char(){",",";","/"," ","0","1","2","3","4","5","6","7","8","9","|",",",".",";",":"})
For Each ar As String In arr
    Dim s0 As String = ar
    Dim p As String = "^[赵钱孙李周吴郑王冯陈褚卫蒋沈韩杨朱秦尤许何吕施张孔曹严华金魏陶姜戚谢邹喻柏水窦章云苏潘葛奚范彭郎鲁韦昌马苗凤花方俞任袁柳酆鲍史唐费廉岑薛雷贺倪汤滕殷罗毕郝邬安常乐于时傅皮卞齐康伍余元卜顾孟平黄和穆萧尹姚邵湛汪祁毛禹狄米贝明臧计伏成戴谈宋茅庞熊纪舒屈项祝董梁杜阮蓝闵席季麻强贾路娄危江童颜郭梅盛林刁钟徐邱骆高夏蔡田樊胡凌霍虞万支柯昝管卢莫经房裘缪干解应宗丁宣贲邓郁单杭洪包诸左石崔吉钮龚程嵇邢滑裴陆荣翁荀羊於惠甄麴家封芮羿储靳汲邴糜松井段富巫乌焦巴弓牧隗山谷车侯宓蓬全郗班仰秋仲伊宫宁仇栾暴甘钭厉戎祖武符刘景詹束龙叶幸司韶郜黎蓟薄印宿白怀蒲邰从鄂索咸籍赖卓蔺屠蒙池乔阴欎胥能苍双闻莘党翟谭贡劳逄姬申扶堵冉宰郦雍舄璩桑桂濮牛寿通边扈燕冀郏浦尚农温别庄晏柴瞿阎充慕连茹习宦艾鱼容向古易慎戈廖庾终暨居衡步都耿满弘匡国文寇广禄阙东殴殳沃利蔚越夔隆师巩厍聂晁勾敖融冷訾辛阚那简饶空曾毋沙乜养鞠须丰巢关蒯相查後荆红游竺权逯盖益桓公上欧赫皇尉澹淳太轩令宇长鲜闾亓仉督子颛端漆壤拓夹晋楚闫法汝鄢涂钦百南呼归海微岳帅缑亢况后有琴西商牟佘佴伯赏墨哈谯笪年爱阳佟第言福姓]+\w*[\u4e00-\u9fa5]{1,4}\w*"
    Dim rgx地址 = new System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
    If rgx地址.isMatch(s0) Then
        If 姓名="" Then
            姓名=ar
            'Output.Show("匹配;姓名"&ar)
            解析后=解析后.Replace(ar,"")
        End If
    End If
Next

'【解析剥离省市区地址】
地址 =""
Dim 行政区 As String=""
Dim p1 As String = "([省市区县乡镇])"
Dim p2 As String = "([省市区县乡镇])"
Dim r0 As New System.Text.RegularExpressions.Regex(p1)
Dim str = r0.Split(解析后)
Dim Int As Integer

For Index As Integer = 0 To str .Length - 1
    'Output.Show(str (Index))
    If Index<4 And Index<str .Length - 1 Then
        行政区=行政区 & str (Index)
    Else
        地址=地址 & str (Index)
    End If
Next
Dim hc As New HttpClient("http://api.map.baidu.com/place/v2/search?query=" & 地址 & "&tag=门址&region=" & 行政区 & "&output=json&ak=imi****BiOQ")
Dim ret As String = hc.GetData()
Dim json As String =ret '
Dim jo As JObject = JObject.Parse(json)
If jo("status").ToString=0 Then
    省= jo("results")(0)("province").ToString
    市=jo("results")(0)("city").ToString
    区=jo("results")(0)("area").ToString
End If
Output.Show("姓名:" &姓名)
Output.Show("电话:" &电话)
Output.Show("省:" &省)
Output.Show("市:" &市)
Output.Show("区:" &区)
Output.Show( "地址:" & 解析后.Replace(省,"").Replace(市,"").Replace(区,""))
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08398 秒, 5 次数据查询