淘宝搜索建议及热度获取源码

淘宝搜索建议及热度获取源码

@皮皮驴

.版本 2

.子程序 _Btn_Search_被单击
.局部变量 ReturnWeb, 文本型
.局部变量 Json, zyJsonValue
.局部变量 Time, 整数型

' https://suggest.taobao.com/sug?code=utf-8&q=%E5%8D%AB%E8%A1%A3
ReturnWeb ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (“https://suggest.taobao.com/sug?code=utf-8&q=” ＋ 编码_URL编码 (Edit_Search.内容, , 真), 0, , , , , , , , )))
Json.解析 (ReturnWeb, 真)
.计次循环首 (Json.取成员数 (“result”), Time)
    Edit_Result.内容 ＝ Edit_Result.内容 ＋ Json.到文本 (“result[” ＋ 到文本 (Time － 1) ＋ “]”, ) ＋ #换行符
.计次循环尾 ()