|
5精币
.版本 2
.支持库 spec
图片_字节集 = 读入文件 (目录_取当前目录 () + “/img/” + “点选验证码英文” + “.jpg”)
返回内容_文本 = 图片识别_ocr (“bbs.125.la”, 图片_字节集, 是否单行文字识别)
返回状态消息 = 文本_取出中间文本 (返回内容_文本, #状态消息左边, #状态消息右边)
.如果真 (返回状态消息 ≠ “success”)
信息框 (“识别错误:” + 返回状态消息, 0, , )
返回 ()
.如果真结束
识别的文字_1 = 文本_取出中间文本 (返回内容_文本, #识别文本左边, #识别文本右边)
识别的文字_2 = 分割文本 (识别的文字_1, #识别文本分割标志, )
.计次循环首 (取数组成员数 (识别的文字_2), i)
调试输出 (i)
调试输出 (识别的文字_2 [i])
.如果真 (i = 1)
识别的文字 = 识别的文字_2 [i]
.如果真结束
.如果真 (i = 2)
识别的文字 = 识别的文字 + “ ” + 识别的文字_2 [i]
.如果真结束
.如果真 (i = 3 且 识别的文字_2 [i] ≠ “>”)
识别的文字 = 识别的文字 + “ ” + 识别的文字_2 [i]
.如果真结束
.' 如果 (识别的文字 = “”)
' 识别的文字 = 识别的文字_2 [i]
.否则
' 识别的文字 = 识别的文字 + “ ” + 识别的文字_2 [i]
.如果结束
.计次循环尾 ()
.版本 2
.支持库 spec
.子程序 图片识别_ocr, 文本型
.参数 token, 文本型
.参数 图片_字节集, 字节集
.参数 单行识别, 逻辑型
.局部变量 待上传数据, 文本型
.局部变量 post_url, 文本型
.局部变量 t1, 文本型
.局部变量 返回内容_文本, 文本型
.如果 (取文本左边 (token, 3) = “vip”)
post_url = “https://fast.tulingyun.com/api/ocr”
.否则
post_url = “https://www.tulingyun.com/api/ocr”
.如果结束
待上传数据 = 子文本替换 (#上传json格式, “&&token&&”, token, , , 真)
待上传数据 = 子文本替换 (待上传数据, “&&rec&&”, “0”, , , 真)
' 调试输出 (待上传数据)
待上传数据 = 子文本替换 (待上传数据, “&&upfile_b64&&”, 编码_BASE64编码 (图片_字节集), , , 真)
调试输出 (待上传数据)
返回内容_文本 = 网页_访问S (post_url, 1, 待上传数据, , , “Content-Type: application/json;charset=utf-8”, t1, , , , , , , )
返回内容_文本 = 编码_utf8到gb2312 (返回内容_文本)
返回内容_文本 = 子文本替换 (返回内容_文本, “\” + #引号, #引号, , , 真)
返回内容_文本 = 子文本替换 (返回内容_文本, “\\”, “\”, , , 真)
返回内容_文本 = 子文本替换 (返回内容_文本, “\/”, “/”, , , 真)
调试输出 (返回内容_文本, t1)
返回 (返回内容_文本)
|
|