开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 181|回复: 0
收起左侧

[精币悬赏] 谁能帮我把易语言的这段代码转换为按键精灵安卓 谢谢了

[复制链接]
结帖率:24% (6/25)
发表于 2024-6-9 17:56:46 | 显示全部楼层 |阅读模式   湖南省常德市
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)
返回 (返回内容_文本)


您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表