求助BAT或PowerShell获取国家地名信息库的行政区划信息

ShowCode

待获取的数据来源：https://dmfw.mca.gov.cn/XzqhVersionPublish.html
获取4个字段：L1、L2、L3、行政区划代码

• 直辖市：获取到区级别，不需要获取街道级别
• 省：获取到区县级别，不需要获取街道、乡镇级别
  

输出格式：csv或xlsx

举例：

77七

1. $ErrorActionPreference = "Stop"
   
2. 
   
3. $Api = "https://dmfw.mca.gov.cn/9095/xzqh/getList"
   
4. $OutFile = "D:\xzqh.csv"
   
5. 
   
6. # Beijing, Tianjin, Shanghai, Chongqing
   
7. $MunicipalCodes = @("110000", "120000", "310000", "500000")
   
8. 
   
9. function Get-Code6 {
   
10.     param($Code)
    
11. 
    
12.     if ($null -eq $Code) {
    
13.         return ""
    
14.     }
    
15. 
    
16.     $s = [string]$Code
    
17. 
    
18.     if ($s -match "^\d{6}") {
    
19.         return $matches[0]
    
20.     }
    
21. 
    
22.     return $s
    
23. }
    
24. 
    
25. function Get-Children {
    
26.     param($Node)
    
27. 
    
28.     if ($null -eq $Node) {
    
29.         return @()
    
30.     }
    
31. 
    
32.     $names = $Node.PSObject.Properties.Name
    
33. 
    
34.     foreach ($p in @("children", "childList", "list")) {
    
35.         if ($names -contains $p) {
    
36.             if ($null -ne $Node.$p) {
    
37.                 return @($Node.$p)
    
38.             }
    
39.         }
    
40.     }
    
41. 
    
42.     return @()
    
43. }
    
44. 
    
45. function Get-RootList {
    
46.     param($Json)
    
47. 
    
48.     if ($null -ne $Json.response.data.children) {
    
49.         return @($Json.response.data.children)
    
50.     }
    
51. 
    
52.     if ($null -ne $Json.data.children) {
    
53.         return @($Json.data.children)
    
54.     }
    
55. 
    
56.     if ($null -ne $Json.children) {
    
57.         return @($Json.children)
    
58.     }
    
59. 
    
60.     if ($null -ne $Json.data) {
    
61.         return @($Json.data)
    
62.     }
    
63. 
    
64.     throw "Can not find root list."
    
65. }
    
66. 
    
67. function Invoke-Xzqh {
    
68.     param(
    
69.         [string]$Code = "",
    
70.         [int]$MaxLevel = 3
    
71.     )
    
72. 
    
73.     $encCode = [uri]::EscapeDataString($Code)
    
74.     $url = $Api + "?code=" + $encCode + "&maxLevel=" + $MaxLevel
    
75. 
    
76.     Invoke-RestMethod `
    
77.         -Method Get `
    
78.         -Uri $url `
    
79.         -Headers @{
    
80.             "User-Agent" = "Mozilla/5.0"
    
81.             "Accept" = "application/json"
    
82.         } `
    
83.         -TimeoutSec 90
    
84. }
    
85. 
    
86. $Rows = New-Object System.Collections.Generic.List[object]
    
87. 
    
88. function Add-Row {
    
89.     param(
    
90.         [string]$L1,
    
91.         [string]$L2,
    
92.         [string]$L3,
    
93.         $Code
    
94.     )
    
95. 
    
96.     $code6 = Get-Code6 $Code
    
97. 
    
98.     $Rows.Add([pscustomobject]@{
    
99.         L1 = $L1
    
100.         L2 = $L2
     
101.         L3 = $L3
     
102.         "行政区划代码" = $code6
     
103.     })
     
104. }
     
105. 
     
106. Write-Host "Downloading..."
     
107. 
     
108. $json = Invoke-Xzqh -Code "" -MaxLevel 3
     
109. $provinces = Get-RootList $json
     
110. 
     
111. foreach ($p in $provinces) {
     
112.     $pName = [string]$p.name
     
113.     $pCode6 = Get-Code6 $p.code
     
114. 
     
115.     if ([string]::IsNullOrWhiteSpace($pName)) {
     
116.         continue
     
117.     }
     
118. 
     
119.     Add-Row $pName "" "" $p.code
     
120. 
     
121.     $pChildren = Get-Children $p
     
122. 
     
123.     if ($MunicipalCodes -contains $pCode6) {
     
124.         foreach ($d in $pChildren) {
     
125.             $dName = [string]$d.name
     
126. 
     
127.             if ([string]::IsNullOrWhiteSpace($dName)) {
     
128.                 continue
     
129.             }
     
130. 
     
131.             Add-Row $pName $dName "" $d.code
     
132.         }
     
133. 
     
134.         continue
     
135.     }
     
136. 
     
137.     foreach ($c in $pChildren) {
     
138.         $cName = [string]$c.name
     
139. 
     
140.         if ([string]::IsNullOrWhiteSpace($cName)) {
     
141.             continue
     
142.         }
     
143. 
     
144.         Add-Row $pName $cName "" $c.code
     
145. 
     
146.         $districts = Get-Children $c
     
147. 
     
148.         foreach ($d in $districts) {
     
149.             $dName = [string]$d.name
     
150. 
     
151.             if ([string]::IsNullOrWhiteSpace($dName)) {
     
152.                 continue
     
153.             }
     
154. 
     
155.             Add-Row $pName $cName $dName $d.code
     
156.         }
     
157.     }
     
158. }
     
159. 
     
160. $csv = $Rows | ConvertTo-Csv -NoTypeInformation
     
161. $utf8Bom = New-Object System.Text.UTF8Encoding $true
     
162. [System.IO.File]::WriteAllLines($OutFile, $csv, $utf8Bom)
     
163. 
     
164. Write-Host ("Done: " + $OutFile)
     
165. Write-Host ("Rows: " + $Rows.Count)

复制代码

被AI秒了...第一次报错，回复说是编码搞坏了，第2次就是这个代码