分享一个多音字解析的例子,内部调用精易模块的网页访问,这个接口很稳定,运行14年了
发送一个"行"字,这是返回值:
.版本 2
.子程序 功能_多音字解析, , , 作者qq1803584124
.参数 参_文字, 文本型, , '一次传递一个字
.参数 参_返回多音, 文本型, 参考 数组
.局部变量 提交cookies, 文本型
.局部变量 提交信息, 文本型
.局部变量 局_返回协议头, 文本型
.局部变量 基址, 文本型
.局部变量 局_网页信息, 文本型
.局部变量 局_取到的多音字, 文本型, , "0"
.局部变量 i, 整数型
提交信息 = “f_key=” + 编码_URL编码 (参_文字, 假, ) + “&f_type=zi&SearchString.x=0&SearchString.y=0”
网页_访问_对象 (“http://xh.5156edu.com/index.php”, 1, 提交信息, 提交cookies, , #常_获取文字地址协议头, 局_返回协议头, , 真, , , , , , , , , , )
基址 = “http://xh.5156edu.com/”
局_网页信息 = 到文本 (网页_访问_对象 (基址 + 文本_取出中间文本 (局_返回协议头, “Location: ”, #换行符, , ), , , , , , , , , , , , , , , , , , ))
文本_取中间_批量 (局_网页信息, #前面文本, #后面文本, 局_取到的多音字, , , , , , , )
.计次循环首 (取数组成员数 (局_取到的多音字), i)
局_取到的多音字 = 取文本左边 (局_取到的多音字 , 取文本长度 (局_取到的多音字 ) - 1)
.计次循环尾 ()
参_返回多音 = 局_取到的多音字
|