通过关键词批量采集经纬度工具

采集地址 ＝ 编码_URL编码 (删首尾空 (编辑框1.内容), 真, 真)
' 采集地址 ＝ 子文本替换 (采集地址, “%2B”, “+”, , , 真)
.计次循环首 (100, u)
' 透明标签1.标题 ＝ “采集中.....”
url ＝ “http://apis.map.qq.com/jsapi?qt=poi&wd=” ＋ 采集地址 ＋ “&pn=” ＋ 到文本 (u － 1) ＋ “&rn=10&rich_source=qipao&rich=web&nj=0&c=1&key=&output=jsonp&pf=jsapi&ref=jsapi&cb=qq.maps._svcb3.search_service_0”
' url ＝ “http://api.map.baidu.com/?qt=s&c=131&wd=” ＋ 采集地址 ＋ “&rn=10&pn=” ＋ 到文本 (u － 1) ＋ “&ie=utf-8&oue=1&fromproduct=jsapi&res=api&callback=BMap._rd._cbk11171&ak=”
str ＝ 到文本 (网页_访问 (url, , , , , , , , , , )) ＋ “结束”
' 调试输出 (str)
str ＝ 文本_取出中间文本 (str, #常量1, “)结束”, , )
' 调试输出 (str)
' 置剪辑板文本 (str)
json.解析 (str)
数量 ＝ json.成员数 (“detail.pois”)
调试输出 (数量)
' 信息框 (“”, 0, , )
.如果真 (数量 ≤ 0)
跳出循环 ()
.如果真结束
.计次循环首 (数量, i)
uu ＝ uu ＋ 1
diPointX ＝ json.取通用属性 (“detail.pois[” ＋ 到文本 (i － 1) ＋ “].pointx”, )
diPointY ＝ json.取通用属性 (“detail.pois[” ＋ 到文本 (i － 1) ＋ “].pointy”, )
name ＝ json.取通用属性 (“detail.pois[” ＋ 到文本 (i － 1) ＋ “].name”, )
' 调试输出 (diPointX, diPointY, name)
编辑框2.加入文本 (diPointX ＋ “|” ＋ diPointY ＋ #换行符)
' 透明标签1.标题 ＝ “采集中...”
.计次循环尾 ()
' 透明标签1.标题 ＝ “采集中......”
.计次循环尾 ()
调试输出 (uu)
按钮1.禁止 ＝ 假
透明标签1.标题 ＝ “采集完成:” ＋ 到文本 (uu)