随机生成真实省市县地址和邮编工具

易语言 2020-02-12 14:44:14

随机生成真实省市县地址和邮编工具

清除数组 (城市数组)
清除数组 (城市代码)
清除数组 (县城数组)
清除数组 (县城代码)
置随机数种子 ()
省_随机 = 取随机数 (1, 31)
省 = 省份 [省_随机]
地级市数组 = 分割文本 (地级市 (省份代码 [省_随机]), “,”, )
市数量 = 取数组成员数 (地级市数组)
.如果真 (市数量 = 0)
返回 (随机省市邮编_真实 (返回类型))
.如果真结束
.计次循环首 (市数量, i)
加入成员 (城市代码, 到整数 (文本_取右边 (地级市数组 [i], “|”, , )))
加入成员 (城市数组, 文本_取左边 (地级市数组 [i], “|”, , ))
.计次循环尾 ()
市_随机 = 取随机数 (1, 市数量)
市 = 城市数组 [市_随机]
全部县城数组 = 分割文本 (县城 (省_随机, 市_随机), “,”, )
县数量 = 取数组成员数 (全部县城数组)
.如果真 (县数量 = 0)
返回 (随机省市邮编_真实 (返回类型))
.如果真结束

.计次循环首 (县数量, i)
加入成员 (县城代码, 到整数 (文本_取右边 (全部县城数组 [i], “|”, , )))
加入成员 (县城数组, 文本_取左边 (全部县城数组 [i], “|”, , ))
.计次循环尾 ()
县_随机 = 取随机数 (1, 县数量)
县 = 县城数组 [县_随机]
.如果 (返回类型 = 1)
返回参数 = 省 + “ ” + 市 + “ ” + 县
.否则
邮编数组 = 分割文本 (获取邮编和街道 (省份代码 [省_随机], 城市代码 [市_随机], 县城代码 [县_随机]), “,”, )
.如果真 (取数组成员数 (邮编数组) = 0)
返回参数 = “”
返回 (随机省市邮编_真实 (返回类型))
.如果真结束
带邮编数据 = 邮编数组 [取随机数 (1, 取数组成员数 (邮编数组))]
.判断开始 (返回类型 = 2)
返回参数 = 省 + “ ” + 市 + “ ” + 县 + “ ” + 文本_取右边 (带邮编数据, “ ”, , )
.默认
返回参数 = 带邮编数据