|
楼主 |
发表于 2024-5-11 17:28:16
|
显示全部楼层
河南省郑州市
.版本 2
.子程序 ocr文字识别, 文本型
.参数 寻找的文字, 文本型
.参数 x1, 整数型
.参数 y1, 整数型
.参数 坐标x, 整数型, 可空
.参数 坐标y, 整数型, 可空
.局部变量 局_网址, 文本型
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 文本型
.局部变量 局_返回, 文本型
.局部变量 图片数据, 文本型
.局部变量 局_数组, 文本型, , "0"
.局部变量 局_数组1, 文本型, , "0"
.局部变量 次数, 整数型
.局部变量 取xx, 文本型
.局部变量 取yy, 文本型
.局部变量 图片路径, 文本型
.局部变量 是否找到, 整数型
图片路径 = “Data\pic.jpg”
图片数据 = 到文本 (编码_BASE64编码A (读入文件 (图片路径), )) ' 这个是用乐玩截图方法
局_网址 = “http://175.24.164.21:81/ocr?card=” + #card + “&type=0&model=1&rotate=0&accuracy=1280&settype=30”
局_提交数据 = 子文本替换 (#常量1, “string”, 图片数据, , , 真)
ADD_协议头.添加 (“Content-Type”, “application/json”, )
局_提交协议头 = ADD_协议头.获取协议头数据 ()
局_结果 = 网页_访问S (局_网址, 1, 局_提交数据, , , 局_提交协议头, , , , , , , , , , , , , , , )
局_返回 = 到文本 (编码_URL解码 (局_结果, 真))
.如果 (寻找文本 (局_返回, 寻找的文字, , 假) ≠ -1)
局_数组 = 分割文本 (局_返回, 寻找的文字, )
局_数组1 = 分割文本 (局_数组 [1], “{”, )
次数 = 取数组成员数 (局_数组1)
取xx = 文本_取出中间文本 (局_数组1 [次数], #常量_左边x1, #常量_右边y1, , )
取yy = 文本_取出中间文本 (局_数组1 [次数], #常量_右边y1, #常量_后面x2, , )
坐标x = 到整数 (取xx) + x1
坐标y = 到整数 (取yy) + y1
.否则
是否找到 = -1
.如果结束
.判断开始 (是否找到 = -1)
返回 (到文本 (是否找到))
.默认
返回 (寻找的文字 + “|” + 到文本 (坐标x) + “|” + 到文本 (坐标y))
.判断结束
这个是ocr代码 |
|