有没有大佬教教这个咋写成E代码的啊？

黑马科技

学习一下

伊人独醉

.版本 2
.支持库 spec

.子程序 X度识图, 文本型, 公开
.参数 识别图片, 字节集
.局部变量 i, 整数型
.局部变量 token, 文本型
.局部变量 网页地址, 文本型
.局部变量 提交数据, 文本型
.局部变量 附加协议, 文本型
.局部变量 返回结果, 文本型
.局部变量 错误代码, 文本型
.局部变量 识别结果, 文本型
.局部变量 识别数组, 文本型, , "0"

网页地址 ＝ “"填网页地址要审核"grant_type=client_credentials&client_id=&client_secret=”
返回结果 ＝ 到文本 (网页_访问_对象 (网页地址))
token ＝ 取出文本中间 (返回结果, “access_token” ＋ #引号 ＋ “:” ＋ #引号, #引号)
网页地址 ＝"填网页地址要审核" ＋ token
提交数据 ＝ “image=” ＋ 编码_URL编码 (编码_BASE64编码 (识别图片), 真, )
附加协议 ＝ “Content-Type: application/x-www-form-urlencoded”
返回结果 ＝ 编码_Utf8到Ansi (网页_访问_对象 (网页地址, 1, 提交数据, , , 附加协议))
错误代码 ＝ 取出文本中间 (返回结果, “error_code” ＋ #引号 ＋ “:”, “,”)
.如果真 (错误代码 ≠ “”)
    调试输出 (取出文本中间 (返回结果, “error_msg” ＋ #引号 ＋ “:” ＋ #引号, #引号))
    返回 (“错误代码：” ＋ 错误代码)
.如果真结束
文本_取中间_批量 (返回结果, “words” ＋ #引号 ＋ “:” ＋ #引号, #引号, 识别数组)
.计次循环首 (取数组成员数 (识别数组), i)
    .如果 (i ＝ 1)
        识别结果 ＝ 识别数组
    .否则
        识别结果 ＝ 识别结果 ＋ #换行符 ＋ 识别数组
    .如果结束

.计次循环尾 ()
返回 (识别结果)

伊人独醉

.版本 2
.支持库 spec

.子程序 XX识图, 文本型, 公开
.参数 识别图片, 字节集
.局部变量 i, 整数型
.局部变量 token, 文本型
.局部变量 网页地址, 文本型
.局部变量 提交数据, 文本型
.局部变量 附加协议, 文本型
.局部变量 返回结果, 文本型
.局部变量 错误代码, 文本型
.局部变量 识别结果, 文本型
.局部变量 识别数组, 文本型, , "0"

网页地址 ＝ “填网页地址要审核"
返回结果 ＝ 到文本 (网页_访问_对象 (网页地址))
token ＝ 取出文本中间 (返回结果, “access_token” ＋ #引号 ＋ “:” ＋ #引号, #引号)
网页地址 ＝"填网页地址要审核" ＋ token
提交数据 ＝ “image=” ＋ 编码_URL编码 (编码_BASE64编码 (识别图片), 真, )
附加协议 ＝"填网页地址要审核"
返回结果 ＝ 编码_Utf8到Ansi (网页_访问_对象 (网页地址, 1, 提交数据, , , 附加协议))
错误代码 ＝ 取出文本中间 (返回结果, “error_code” ＋ #引号 ＋ “:”, “,”)
.如果真 (错误代码 ≠ “”)
    调试输出 (取出文本中间 (返回结果, “error_msg” ＋ #引号 ＋ “:” ＋ #引号, #引号))
    返回 (“错误代码：” ＋ 错误代码)
.如果真结束
文本_取中间_批量 (返回结果, “words” ＋ #引号 ＋ “:” ＋ #引号, #引号, 识别数组)
.计次循环首 (取数组成员数 (识别数组), i)
    .如果 (i ＝ 1)
        识别结果 ＝ 识别数组
    .否则
        识别结果 ＝ 识别结果 ＋ #换行符 ＋ 识别数组
    .如果结束

.计次循环尾 ()
返回 (识别结果)

伊人独醉

  

子程序名	返回值类型	公开	备 注
XX识图	文本型
参数名	类 型	参考	可空	数组	备 注
识别图片	字节集

变量名	类 型	静态	数组	备 注
i	整数型
token	文本型
网页地址	文本型
提交数据	文本型
附加协议	文本型
返回结果	文本型
错误代码	文本型
识别结果	文本型
识别数组	文本型		0

网页地址 ＝ “填网页地址要审核"
返回结果 ＝ 到文本 (网页_访问_对象 (网页地址))
token ＝ 取出文本中间 (返回结果, “access_token” ＋ #引号 ＋ “:” ＋ #引号, #引号 )
网页地址 ＝"填网页地址要审核" ＋ token
提交数据 ＝ “image=” ＋ 编码_URL编码 (编码_BASE64编码 (识别图片), 真, )
附加协议 ＝"填网页地址要审核"
返回结果 ＝ 编码_Utf8到Ansi (网页_访问_对象 (网页地址, 1, 提交数据, , , 附加协议))
错误代码 ＝ 取出文本中间 (返回结果, “error_code” ＋ #引号 ＋ “:”, “,”)
如果真 (错误代码 ≠ “”)
调试输出 (取出文本中间 (返回结果, “error_msg” ＋ #引号 ＋ “:” ＋ #引号, #引号 ))
返回 (“错误代码：” ＋ 错误代码)
文本_取中间_批量 (返回结果, “words” ＋ #引号 ＋ “:” ＋ #引号, #引号, 识别数组)
计次循环首 (取数组成员数 (识别数组), i)
如果 (i ＝ 1)
识别结果 ＝ 识别数组
识别结果 ＝ 识别结果 ＋ #换行符 ＋ 识别数组

计次循环尾 ()
返回 (识别结果)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 XX识图, 文本型, 公开<br /> .参数 识别图片, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 token, 文本型<br /> .局部变量 网页地址, 文本型<br /> .局部变量 提交数据, 文本型<br /> .局部变量 附加协议, 文本型<br /> .局部变量 返回结果, 文本型<br /> .局部变量 错误代码, 文本型<br /> .局部变量 识别结果, 文本型<br /> .局部变量 识别数组, 文本型, , "0"<br /> <br /> 网页地址 ＝ “填网页地址要审核"<br /> 返回结果 ＝ 到文本 (网页_访问_对象 (网页地址))<br /> token ＝ 取出文本中间 (返回结果, “access_token” ＋ #引号 ＋ “:” ＋ #引号, #引号)<br /> 网页地址 ＝"填网页地址要审核" ＋ token<br /> 提交数据 ＝ “image=” ＋ 编码_URL编码 (编码_BASE64编码 (识别图片), 真, )<br /> 附加协议 ＝"填网页地址要审核"<br /> 返回结果 ＝ 编码_Utf8到Ansi (网页_访问_对象 (网页地址, 1, 提交数据, , , 附加协议))<br /> 错误代码 ＝ 取出文本中间 (返回结果, “error_code” ＋ #引号 ＋ “:”, “,”)<br /> .如果真 (错误代码 ≠ “”)<br />     调试输出 (取出文本中间 (返回结果, “error_msg” ＋ #引号 ＋ “:” ＋ #引号, #引号))<br />     返回 (“错误代码：” ＋ 错误代码)<br /> .如果真结束<br /> 文本_取中间_批量 (返回结果, “words” ＋ #引号 ＋ “:” ＋ #引号, #引号, 识别数组)<br /> .计次循环首 (取数组成员数 (识别数组), i)<br />     .如果 (i ＝ 1)<br />         识别结果 ＝ 识别数组<br />     .否则<br />         识别结果 ＝ 识别结果 ＋ #换行符 ＋ 识别数组<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 返回 (识别结果)

伊人独醉

天杀的代码审核

BruceJoysky1987

  

贴上代码->>>

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

提交识别 (读入文件 (“图片绝对路径”))

子程序名	返回值类型	公开	备 注
获取Token	文本型		自行添加精易模块。
参数名	类 型	参考	可空	数组	备 注
API_Key	文本型
Secret_Key	文本型

变量名	类 型	静态	数组	备 注
json_源文本	文本型
json_解析	类_json

json_源文本 ＝ UTF8到文本 (网页_访问 (“https://aip.baidubce.com/oauth/2.0/token?client_id=” ＋ API_Key ＋ “&client_secret=” ＋ Secret_Key ＋ “&grant_type=client_credentials”, 1, , , , “User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/122.0.6261.95 Safari/537.36”, , , , , , , , ))
json_解析.解析 (json_源文本, , )
返回 (json_解析.取通用属性 (“['access_token']”, ))

子程序名	返回值类型	公开	备 注
提交识别			某度-通用文字识别（高精度版） | 自行添加精易模块。
参数名	类 型	参考	可空	数组	备 注
图片	字节集				图像数据，base64编码后进行urlencode，要求base64编码和urlencode后大小不超过10M，最短边至少15px，最长边最大8192px，支持jpg/jpeg/png/bmp格式

变量名	类 型	静态	数组	备 注
json_源文本	文本型
json_解析	类_json
局_计次	整数型

json_源文本 ＝ 网页_访问S (“https://aip.baidubce.com/rest/2.0/ocr/v1/accurate_basic?access_token=” ＋ 获取Token (“填写你的 API Key ”, “填写你的 Secret Key ”), 1, “image=” ＋ 编码_URL编码 (编码_BASE64编码 (图片), 真, 真) ＋ “&language_type=CHN_ENG&detect_direction=false?graph=false&probability=false&multidirectional_recognize=false”, , , “Content-Type:application/x-www-form-urlencoded” ＋ #换行符 ＋ “Accept:application/json”, , , , , , , , , , , , , , , )
json_解析.解析 (编码_utf8到gb2312 (json_源文本), , )
计次循环首 (json_解析.成员数 (“words_result”), 局_计次)
调试输出 (json_解析.取通用属性 (“['words_result'][” ＋ 到文本 (局_计次 － 1) ＋ “].words”, ))
计次循环尾 ()
' - auto_detect：自动检测语言，并识别
' - CHN_ENG：中英文混合
' - ENG：英文
' - JAP：日语
' - KOR：韩语
' - FRE：法语
' - SPA：西班牙语
' - POR：葡萄牙语
' - GER：德语
' - ITA：意大利语
' - RUS：俄语
' - DAN：丹麦语
' - DUT：荷兰语
' - MAL：马来语
' - SWE：瑞典语
' - IND：印尼语
' - POL：波兰语
' - ROM：罗马尼亚语
' - TUR：土耳其语
' - GRE：希腊语
' - HUN：匈牙利语
' - THA：泰语
' - VIE：越南语
' - ARA：阿拉伯语
' - HIN：印地语

i支持库列表	支持库注释
spec	特殊功能支持库

贴上代码->>><br /> <br /> .版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 提交识别 (读入文件 (“图片绝对路径”))<br /> <br /> .子程序 获取Token, 文本型, , 自行添加精易模块。<br /> .参数 API_Key, 文本型<br /> .参数 Secret_Key, 文本型<br /> .局部变量 json_源文本, 文本型<br /> .局部变量 json_解析, 类_json<br /> <br /> json_源文本 ＝ UTF8到文本 (网页_访问 (“https://aip.baidubce.com/oauth/2.0/token?client_id=” ＋ API_Key ＋ “&client_secret=” ＋ Secret_Key ＋ “&grant_type=client_credentials”, 1, , , , “User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/122.0.6261.95 Safari/537.36”, , , , , , , , ))<br /> json_解析.解析 (json_源文本, , )<br /> 返回 (json_解析.取通用属性 (“['access_token']”, ))<br /> <br /> .子程序 提交识别, , , 某度-通用文字识别（高精度版） | 自行添加精易模块。<br /> .参数 图片, 字节集, 可空, 图像数据，base64编码后进行urlencode，要求base64编码和urlencode后大小不超过10M，最短边至少15px，最长边最大8192px，支持jpg/jpeg/png/bmp格式<br /> .局部变量 json_源文本, 文本型<br /> .局部变量 json_解析, 类_json<br /> .局部变量 局_计次, 整数型<br /> <br /> <br /> json_源文本 ＝ 网页_访问S (“https://aip.baidubce.com/rest/2.0/ocr/v1/accurate_basic?access_token=” ＋ 获取Token (“填写你的 API Key ”, “填写你的 Secret Key ”), 1, “image=” ＋ 编码_URL编码 (编码_BASE64编码 (图片), 真, 真) ＋ “&language_type=CHN_ENG&detect_direction=false?graph=false&probability=false&multidirectional_recognize=false”, , , “Content-Type:application/x-www-form-urlencoded” ＋ #换行符 ＋ “Accept:application/json”, , , , , , , , , , , , , , , )<br /> <br /> json_解析.解析 (编码_utf8到gb2312 (json_源文本), , )<br /> <br /> .计次循环首 (json_解析.成员数 (“words_result”), 局_计次)<br />     调试输出 (json_解析.取通用属性 (“['words_result'][” ＋ 到文本 (局_计次 － 1) ＋ “].words”, ))<br /> .计次循环尾 ()<br /> <br /> ' - auto_detect：自动检测语言，并识别<br /> ' - CHN_ENG：中英文混合<br /> ' - ENG：英文<br /> ' - JAP：日语<br /> ' - KOR：韩语<br /> ' - FRE：法语<br /> ' - SPA：西班牙语<br /> ' - POR：葡萄牙语<br /> ' - GER：德语<br /> ' - ITA：意大利语<br /> ' - RUS：俄语<br /> ' - DAN：丹麦语<br /> ' - DUT：荷兰语<br /> ' - MAL：马来语<br /> ' - SWE：瑞典语<br /> ' - IND：印尼语<br /> ' - POL：波兰语<br /> ' - ROM：罗马尼亚语<br /> ' - TUR：土耳其语<br /> ' - GRE：希腊语<br /> ' - HUN：匈牙利语<br /> ' - THA：泰语<br /> ' - VIE：越南语<br /> ' - ARA：阿拉伯语<br /> ' - HIN：印地语