【原创】行政区划代码一键获取工具

无敌尛闹闹°

本人亲自写的行政区划代码获取工具 支持最新的行政区划 后面的版本理论也是通用的
需要的小伙伴们可以下载使用

如果觉得这个软件有帮助到您 请点点您的小评分给个热心哈 谢谢啦
查毒报告 http://r.virscan.org/language/zh-cn/report/be305f193777deaa391b2e27b1f59351
行政区划获取导出工具.zip (909.57 KB, 下载次数: 586)

2019-2-23 17:26 上传

点击文件名下载附件

无敌尛闹闹°

希望得到更多人的支持 不要吝啬手中的热心 您的支持是我前进的动力

无敌尛闹闹°

附查毒链接 易语言开发 部分杀软会误报 不喜勿用
http://r.virscan.org/language/zh-cn/report/be305f193777deaa391b2e27b1f59351

校长爱学妹

我自己也研究了一下..

private static NLog.Logger _logger = NLog.LogManager.GetCurrentClassLogger();
        //获取到省直辖市
        private void button1_Click(object sender, EventArgs e)
        {
            string url = "http://www.stats.gov.cn/tjsj/tjbz/tjyqhdmhcxhfdm/2018/index.html";

            
            //初始化网络请求客户端
            HtmlWeb webClient = new HtmlWeb();
            webClient.OverrideEncoding = Encoding.GetEncoding("gb2312");
            //初始化文档
            HtmlDocument doc = webClient.Load(url);
            //查找节点
            HtmlNodeCollection titleNodes = doc.DocumentNode.SelectNodes("//tr[@class='provincetr']/td/a");
            if (titleNodes != null)
            {
                foreach (var item in titleNodes)
                {
                    HtmlAttribute att = item.Attributes["href"];
                    Console.WriteLine(item.InnerText+ " "+att.Value);
                    _logger.Info(item.InnerText+" "+ att.Value.Substring(0, att.Value.LastIndexOf('.')));
                    textBox1.AppendText(item.InnerText + " " + att.Value+ Environment.NewLine);
                    url = "http://www.stats.gov.cn/tjsj/tjbz/tjyqhdmhcxhfdm/2018/" + att.Value;
                    Get_citytr(url);
                }
            }
        }
        //获取到市
        public void Get_citytr(string url)
        {
            //http://www.stats.gov.cn/tjsj/tjbz/tjyqhdmhcxhfdm/2018/51.html
            //初始化网络请求客户端
            HtmlWeb webClient = new HtmlWeb();
            webClient.OverrideEncoding = Encoding.GetEncoding("gb2312");
            //初始化文档
            HtmlDocument doc = webClient.Load(url);
            //查找节点
            HtmlNodeCollection titleNodes = doc.DocumentNode.SelectNodes("//tr[@class='citytr']/td/a");
            if (titleNodes != null)
            {
                foreach (var item in titleNodes)
                {
                    HtmlAttribute att = item.Attributes["href"];
                    Console.WriteLine();
                    Console.WriteLine(item.InnerText + " " + att.Value);
                    _logger.Info(item.InnerText);
                    textBox1.AppendText(item.InnerText + " " + att.Value + Environment.NewLine);
                    url = "http://www.stats.gov.cn/tjsj/tjbz/tjyqhdmhcxhfdm/2018/" + att.Value;

                    Get_countytr(url);
                }
            }
        }

无敌尛闹闹°

txkz 发表于 2019-6-3 10:41
你好，发现一个问题，东莞市下面的区县是9位编码的，与大多数区县不同，导致目前程序抓取不到东莞市的区县

我也发现了 东莞下面没区县其实 直接就是乡镇的行政编码了 我抽时间修复一下这个问题

无敌尛闹闹°

希望得到各位小伙伴的支持

lichuncheng

试试，能支持到行政村一级吗？

downh

谢谢分享好东西。
不过win10里报病毒

hicodecn

哈哈，这个对站长有用

turtles000

感谢大佬，这个很方便

bluefantasy

感谢楼主分享

wangkai558

感谢楼主热心分享

chaojixiaoyixin

顶一下，收藏了

无敌尛闹闹°

downh 发表于 2019-2-24 08:45
谢谢分享好东西。
不过win10里报病毒

额 易语言开发的 我也很头疼