易语言_获取有道网页数据

.版本 2
.支持库 spec

.子程序 有道网页数据, 文本型
.参数 网址, 文本型
.局部变量 url, 文本型
.局部变量 ID, 文本型
.局部变量 str, 文本型

置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 })  ' VMP保护开始标志
.判断开始 (文本_寻找文本 (url, “&type=note”, , ) ≠ -1)
    调试输出 (“找到”)
    ID ＝ 取中间文本 (url, “id=”, “&type=note”)
.默认
    ID ＝ 文本_取右边 (url, “id=”, , )
    调试输出 (“没找到”)
    调试输出 (ID)
.判断结束
url ＝ #有道网址前 ＋ ID
调试输出 (url)
str ＝ 编码_URL解码 (网页_访问S (url, , , , , , , , , , , , , , , , , , , , ), 真)
.如果 (str ≠ “”)
    返回 (str)
.否则
    返回 (“”)
    信息框 (“获取有道数据失败”, 0, , )
.如果结束
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 })  ' VMP保护结束标志