2224848 发表于 2025-7-23 02:57
精易模块
[e=1].版本 2
.支持库 spec

paddleORC识别不错，不过联网就有点不足，有个离线的，只需要传入图片即可本地快速识别。

https://125.confly.eu.org/forum.php?mod=viewthread&tid=14796473  用这个改了 自己导出表格

做G的模块就有文字识别

做辅助的模块就可以做出来

步骤清晰了方法无所谓能用就行就按你说的来

精易模块

  

' 1. 找到目标窗口（假设是微信网页版窗口，通过标题/类名定位）
局部_窗口句柄 ＝ 窗口_取句柄_模糊 (“使用手机微信扫码登录”)  ' 模糊匹配窗口标题
如果真 (局部_窗口句柄 ＝ 0)
信息框 (“未找到目标窗口！”, 0, )
返回 ()

' 2. 获取窗口区域坐标（或手动指定截图区域）
窗口_取位置 (局部_窗口句柄, 局部_左, 局部_顶, 局部_宽, 局部_高)  
' 3. 截图并保存为临时文件
局部_截图路径 ＝ 取运行目录 () ＋ “\temp.png”
截图_窗口 (局部_窗口句柄, 局部_左, 局部_顶, 局部_宽, 局部_高, 局部_截图路径)  

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

.版本 2<br /> .支持库 spec<br /> <br /> ' 1. 找到目标窗口（假设是微信网页版窗口，通过标题/类名定位）<br /> 局部_窗口句柄 ＝ 窗口_取句柄_模糊 (“使用手机微信扫码登录”)  ' 模糊匹配窗口标题<br /> .如果真 (局部_窗口句柄 ＝ 0) <br />     信息框 (“未找到目标窗口！”, 0, )<br />     返回 ()<br /> .如果真结束<br /> <br /> ' 2. 获取窗口区域坐标（或手动指定截图区域）<br /> 窗口_取位置 (局部_窗口句柄, 局部_左, 局部_顶, 局部_宽, 局部_高)  <br /> <br /> ' 3. 截图并保存为临时文件<br /> 局部_截图路径 ＝ 取运行目录 () ＋ “\temp.png”<br /> 截图_窗口 (局部_窗口句柄, 局部_左, 局部_顶, 局部_宽, 局部_高, 局部_截图路径)  

[color=rgba(0, 0, 0, 0.85)]在[color=var(--md-box-samantha-deep-text-color) !important]百度 AI 开放平台[color=rgba(0, 0, 0, 0.85)]注册应用，获取 API_KEY[color=rgba(0, 0, 0, 0.85)] 和 SECRET_KEY[color=rgba(0, 0, 0, 0.85)]，并开通 “通用文字识别” 服务。
[color=rgba(0, 0, 0, 0.85)]

  

' 百度OCR API地址（通用文字识别）
常量_百度OCR_URL ＝ “https://aip.baidubce.com/rest/2.0/ocr/v1/general_basic”
' 函数：调用百度OCR识别图片文字

子程序名	返回值类型	公开	备 注
识别图片文字	文本型		返回识别结果
参数名	类 型	参考	可空	数组	备 注
图片路径	文本型

' 1. 获取Access Token（需先替换API_KEY、SECRET_KEY）
局部_Token ＝ 百度OCR_GetToken (“API_KEY”, “SECRET_KEY”)  ' 自己实现Token获取逻辑（HTTP请求）
' 2. 图片转Base64编码
局部_Base64 ＝ 编码_BASE64编码 (到字节集 (读入文件 (图片路径)))
' 3. 构造POST请求数据
局部_请求数据 ＝ “image=” ＋ 编码_URL编码 (局部_Base64, 真) ＋ “&language_type=CHN_ENG”
' 4. 发送HTTP请求
局部_结果 ＝ 网页_访问_对象 (常量_百度OCR_URL ＋ “?access_token=” ＋ 局部_Token, 1, 局部_请求数据, , , , , , , , )
' 5. 解析JSON结果（提取文字）
局部_Json ＝ 解析JSON (局部_结果)
局部_识别文字 ＝ JSON_取通用值 (局部_Json, “words_result[0].words”)  ' 第一行文字
局部_识别文字 ＝ 局部_识别文字 ＋ #换行符 ＋ JSON_取通用值 (局部_Json, “words_result[1].words”)  ' 第二行文字
返回 (局部_识别文字)

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br /> .支持库 internet<br /> <br /> ' 百度OCR API地址（通用文字识别）<br /> 常量_百度OCR_URL ＝ “https://aip.baidubce.com/rest/2.0/ocr/v1/general_basic”<br /> <br /> ' 函数：调用百度OCR识别图片文字<br /> .子程序 识别图片文字, 文本型, 公开, 返回识别结果<br /> .参数 图片路径, 文本型<br /> <br /> ' 1. 获取Access Token（需先替换API_KEY、SECRET_KEY）<br /> 局部_Token ＝ 百度OCR_GetToken (“API_KEY”, “SECRET_KEY”)  ' 自己实现Token获取逻辑（HTTP请求）<br /> <br /> ' 2. 图片转Base64编码<br /> 局部_Base64 ＝ 编码_BASE64编码 (到字节集 (读入文件 (图片路径)))<br /> <br /> ' 3. 构造POST请求数据<br /> 局部_请求数据 ＝ “image=” ＋ 编码_URL编码 (局部_Base64, 真) ＋ “&language_type=CHN_ENG”<br /> <br /> ' 4. 发送HTTP请求<br /> 局部_结果 ＝ 网页_访问_对象 (常量_百度OCR_URL ＋ “?access_token=” ＋ 局部_Token, 1, 局部_请求数据, , , , , , , , )<br /> <br /> ' 5. 解析JSON结果（提取文字）<br /> 局部_Json ＝ 解析JSON (局部_结果)<br /> 局部_识别文字 ＝ JSON_取通用值 (局部_Json, “words_result[0].words”)  ' 第一行文字<br /> 局部_识别文字 ＝ 局部_识别文字 ＋ #换行符 ＋ JSON_取通用值 (局部_Json, “words_result[1].words”)  ' 第二行文字<br /> <br /> 返回 (局部_识别文字)

写入 Excel 表格（Excel2000 支持库）

  

' 函数：写入文字到Excel

子程序名	返回值类型	公开	备 注
写入Excel	逻辑型
参数名	类 型	参考	可空	数组	备 注
文字内容	文本型

变量名	类 型	静态	数组	备 注
Excel应用	Excel.Application
工作簿	Excel.Workbook
工作表	Excel.Worksheet

' 1. 创建Excel对象
Excel应用.创建 ()
工作簿 ＝ Excel应用.Workbooks.添加 ()
工作表 ＝ 工作簿.Worksheets.取 (1)
' 2. 拆分文字为行（按换行符分割）
局部_行数组 ＝ 分割文本 (文字内容, #换行符, )
' 3. 逐行写入表格
计次循环首 (取数组成员数 (局部_行数组), 局部_行号)
工作表.Cells (局部_行号, 1).Value ＝ 局部_行数组 [局部_行号]
计次循环尾 ()
' 4. 保存并关闭
工作簿.保存副本 (“识别结果.xls”)
工作簿.关闭 ()
Excel应用.Quit ()
返回 (真)

i支持库列表	支持库注释
eExcel2000	EXCEL2000支持库

.版本 2<br /> .支持库 eExcel2000<br /> <br /> ' 函数：写入文字到Excel<br /> .子程序 写入Excel, 逻辑型, 公开<br /> .参数 文字内容, 文本型<br /> .局部变量 Excel应用, Excel.Application<br /> .局部变量 工作簿, Excel.Workbook<br /> .局部变量 工作表, Excel.Worksheet<br /> <br /> ' 1. 创建Excel对象<br /> Excel应用.创建 ()<br /> 工作簿 ＝ Excel应用.Workbooks.添加 ()<br /> 工作表 ＝ 工作簿.Worksheets.取 (1)<br /> <br /> ' 2. 拆分文字为行（按换行符分割）<br /> 局部_行数组 ＝ 分割文本 (文字内容, #换行符, )<br /> <br /> ' 3. 逐行写入表格<br /> .计次循环首 (取数组成员数 (局部_行数组), 局部_行号)<br />     工作表.Cells(局部_行号, 1).Value ＝ 局部_行数组 [局部_行号]<br /> .计次循环尾 ()<br /> <br /> ' 4. 保存并关闭<br /> 工作簿.保存副本 (“识别结果.xls”)<br /> 工作簿.关闭 ()<br /> Excel应用.Quit ()<br /> <br /> 返回 (真)