|
发表于 2018-9-22 07:00:02
|
显示全部楼层
广西壮族自治区南宁市
分享一个我自己用的
- .版本 2
- .子程序 IP_cha询IP信息, 文本型, 公开, 返回完整信息
- .参数 欲cha询IP, 文本型
- .参数 国家, 文本型, 参考 可空, 取单独信息,如失效则空白
- .参数 省份, 文本型, 参考 可空, 取单独信息,如失效则空白
- .参数 城市, 文本型, 参考 可空, 取单独信息,如失效则空白
- .参数 区县, 文本型, 参考 可空, 取单独信息,如失效则空白
- .参数 AOI类别, 文本型, 参考 可空, 取单独信息,如失效则空白
- .参数 AOI名称, 文本型, 参考 可空, 取单独信息,如失效则空白
- .参数 经纬度wgs84, 文本型, 参考 可空, 取单独信息,如失效则空白
- .局部变量 数据, 文本型
- .局部变量 数组, 文本型, , "0"
- .局部变量 i, 整数型
- 数据 = 编码_URL解码 (到文本 (网页_访问_对象 (到文本 ({ 104, 116, 116, 112, 115, 58, 47, 47, 108, 97, 98, 115, 46, 105, 112, 105, 112, 46, 110, 101, 116, 47, 108, 111, 99, 97, 116, 105, 111, 110, 47, 105, 112, 63, 105, 112, 61 }) + 欲cha询IP, 0, , , , , , , , , , , , , , , )), 真)
- 经纬度wgs84 = 文本_取出中间文本 (数据, 到文本 ({ 190, 173, 206, 179, 182, 200, 40, 119, 103, 115, 56, 52, 41, 32, 58, 32 }), 到文本 ({ 60, 47, 100, 105, 118, 62 }), , )
- 数据 = 文本_取出中间文本 (数据, 到文本 ({ 60, 116, 100, 62 }), 到文本 ({ 60, 47, 116, 97, 98, 108, 101, 62 }), , )
- 数据 = 子文本替换 (数据, #换行符, “”, , , 真)
- 数据 = 子文本替换 (数据, 到文本 ({ 32 }), “”, , , 真)
- 数据 = 子文本替换 (数据, 到文本 ({ 60, 47, 116, 100, 62, 60, 47, 116, 114, 62 }), “”, , , 真)
- 数组 = 分割文本 (数据, 到文本 ({ 60, 47, 116, 100, 62, 60, 116, 100, 62 }), )
- 数据 = 子文本替换 (数据, 到文本 ({ 60, 47, 116, 100, 62, 60, 116, 100, 62 }), “”, , , 真)
- .如果真 (取数组成员数 (数组) ≥ 5)
- 国家 = 数组 [1]
- 省份 = 数组 [2]
- 城市 = 数组 [3]
- 区县 = 数组 [4]
- AOI类别 = 数组 [5]
- .如果真结束
- 返回 (数据 + 到文本 ({ 190, 173, 206, 179, 182, 200, 40, 119, 103, 115, 56, 52, 41, 58 }) + 经纬度wgs84)
复制代码 |
|