脑子不够用了，还是请大神帮忙吧。解决循环插入的问题

chenxiaoman1

事情是这样的， 本地文件夹内 有2张图片（或者N多张）  通过 百度OCR票据识别 后插入 EXCEL 表格 一个这样的小功能
现在遇到的问题有2个：

1.  如果有多张图识别后 这4个 数据也是一样的。

合计金额

合计税额

价税合计(大写)

价税合计(小写)

2. 循环插入 不换行 的问题。哎 想不明白了。估计应该问题很简单。请大神帮忙 修改一下吧。

  

子程序名	返回值类型	公开	备 注
百度OCR识别

变量名	类 型	静态	数组	备 注
提交地址	文本型
提交内容	文本型
client_id	文本型
client_secret	文本型
token	文本型
图片	字节集
data	文本型
url	文本型
总条数	整数型
返回结果	文本型			识别返回的值
i	整数型
临时文本	整数型
数组	文本型		0
单元格	单元格对象
文件	文本型		0
s	整数型
工作簿	工作簿
工作表	工作表
行	整数型
列	整数型
名称	文本型		0
数据	文本型		0
发票代码	文本型		0
开票日期	文本型		0
购买方	文本型		0
货物名称	文本型		0
数量	文本型		0
金额	文本型		0
税额	文本型		0
合计金额	文本型		0
合计税额	文本型		0
价税合计	文本型		0
价税合计小	文本型		0
记录	整数型
数量1	文本型		0
金额1	文本型		0
税额1	文本型		0
数量记录	整数型
金额记录	整数型
税额记录	整数型

工作簿 ＝ 创建工作簿 (“AAA.xlsx”)
工作表 ＝ 添加工作表 (工作簿, “AAA”)
列 ＝ 1
写入数据 (工作表, 1, 1, “发票代码”)
写入数据 (工作表, 1, 2, “开票日期”)
写入数据 (工作表, 1, 3, “购买方名称”)
写入数据 (工作表, 1, 4, “货物名称”)
写入数据 (工作表, 1, 5, “数量”)
写入数据 (工作表, 1, 6, “金额”)
写入数据 (工作表, 1, 7, “税额”)
写入数据 (工作表, 1, 8, “合计金额”)
写入数据 (工作表, 1, 9, “合计税额”)
写入数据 (工作表, 1, 10, “价税合计(大写)”)
写入数据 (工作表, 1, 11, “价税合计(小写)”)
文件_搜索1 (编辑框1.内容, “*.*”, , 真, 文件)
计次循环首 (取数组成员数 (文件), s)
提交地址 ＝ “https://aip.baidubce.com/oauth/2.0/token”
client_id ＝ ak
client_secret ＝ sk
提交内容 ＝ “?grant_type=client_credentials&client_id=” ＋ client_id ＋ “&client_secret=” ＋ client_secret
返回结果 ＝ 网页_访问S (提交地址 ＋ 提交内容, 1, , , , , , , , , , , , , , , , , , , )
token ＝ 到文本 (文本_取出中间文本 (返回结果, #常量1, #常量2, , ))
调试输出 (token)
图片 ＝ 读入文件 (文件 [s])
data ＝ 编码_BASE64编码 (图片)
url ＝ “id_card_side=front&image=” ＋ 编码_URL编码 (data, 真, 真)
提交地址 ＝ “https://aip.baidubce.com/rest/2.0/ocr/v1/vat_invoice?access_token=” ＋ token
' 提交地址 ＝ “https://aip.baidubce.com/rest/2.0/ocr/v1/vat_invoice?access_token=” ＋ token
返回结果 ＝ 网页_访问S (提交地址, 1, url, , , “Content-Type:application/x-www-form-urlencoded”, , , , , , , , , , , , , , , )
返回结果 ＝ 编码_URL解码 (返回结果, 真)
调试输出 (“返回结果：” ＋ 返回结果)
' 临时文本 ＝ 文本_取中间_批量 (返回结果, #常量7, #常量6, 数组, , , , , , , )
文本_取中间_批量 (返回结果, #发票代码, #常量6, 发票代码, , , , , , , )
文本_取中间_批量 (返回结果, #开票日期, #常量6, 开票日期, , , , , , , )
文本_取中间_批量 (返回结果, #购买方, #常量6, 购买方, , , , , , , )
' --------------------------------------------------------------------------------------------
文本_取中间_批量 (返回结果, #货物名称, #货物名称结束, 货物名称, , , , , , , )  ' 需要改动
' 调试输出 (货物名称)
文本_取中间_批量 (货物名称 [1], #货物名称1, #货物名称1结束, 货物名称1, , , , , , , )
' 调试输出 (货物名称1)  ' 这里面是2个数组---数组:2{“*家具*钢制文件柜”,“*家具*钢制文件柜”}
' --------------------------------------------------------------------------------------------
文本_取中间_批量 (返回结果, #数量, #数量结束, 数量, , , , , , , )
' 调试输出 (数量)
文本_取中间_批量 (数量 [1], #货物名称1, #货物名称1结束, 数量1, , , , , , , )
' 调试输出 (数量1)  ' 数组:2{“160”,“15”}
' --------------------------------------------------------------------------------------------
文本_取中间_批量 (返回结果, #金额, #金额结束, 金额, , , , , , , )
' 调试输出 (金额)
文本_取中间_批量 (金额 [1], #货物名称1, #货物名称1结束, 金额1, , , , , , , )
' 调试输出 (金额1)  ' 数组:2{“45309.73”,“6371.68”}
' --------------------------------------------------------------------------------------------
文本_取中间_批量 (返回结果, #税额, #税额结束, 税额, , , , , , , )
' 调试输出 (税额)
文本_取中间_批量 (税额 [1], #货物名称1, #货物名称1结束, 税额1, , , , , , , )
' 调试输出 (税额1)
' --------------------------------------------------------------------------------------------
文本_取中间_批量 (返回结果, #合计金额, #常量6, 合计金额, , , , , , , )
文本_取中间_批量 (返回结果, #合计税额, #常量6, 合计税额, , , , , , , )
文本_取中间_批量 (返回结果, #价税合计, #常量6, 价税合计, , , , , , , )
文本_取中间_批量 (返回结果, #价税合计小, #常量6, 价税合计小, , , , , , , )
计次循环首 (取数组成员数 (文件), 记录)
写入数据 (工作表, 记录 ＋ 1, 1, 发票代码 [1])
写入数据 (工作表, 记录 ＋ 1, 2, 开票日期 [1])
写入数据 (工作表, 记录 ＋ 1, 3, 购买方 [1])
写入数据 (工作表, 记录 ＋ 1, 8, 合计金额 [1])
写入数据 (工作表, 记录 ＋ 1, 9, 合计税额 [1])
写入数据 (工作表, 记录 ＋ 1, 10, 价税合计 [1])
写入数据 (工作表, 记录 ＋ 1, 11, 价税合计小 [1])
计次循环尾 ()
计次循环首 (取数组成员数 (货物名称1), 货物记录)
写入数据 (工作表, 货物记录 ＋ 1, 4, 货物名称1 [货物记录])
计次循环尾 ()
计次循环首 (取数组成员数 (数量1), 数量记录)
写入数据 (工作表, 数量记录 ＋ 1, 5, 数量1 [数量记录])
计次循环尾 ()
计次循环首 (取数组成员数 (金额1), 金额记录)
写入数据 (工作表, 金额记录 ＋ 1, 6, 金额1 [金额记录])
计次循环尾 ()
计次循环首 (取数组成员数 (税额1), 税额记录)
写入数据 (工作表, 税额记录 ＋ 1, 7, 税额1 [税额记录])
计次循环尾 ()
计次循环尾 ()
关闭工作簿 (工作簿)
信息框 (“识别写入完成”, 0, , )

i支持库列表	支持库注释
ExcelLib	(未知支持库)
spec	特殊功能支持库

.版本 2<br /> .支持库 ExcelLib<br /> .支持库 spec<br /> <br /> .子程序 百度OCR识别<br /> .局部变量 提交地址, 文本型<br /> .局部变量 提交内容, 文本型<br /> .局部变量 client_id, 文本型<br /> .局部变量 client_secret, 文本型<br /> .局部变量 token, 文本型<br /> .局部变量 图片, 字节集<br /> .局部变量 data, 文本型<br /> .局部变量 url, 文本型<br /> .局部变量 总条数, 整数型<br /> .局部变量 返回结果, 文本型, , , 识别返回的值<br /> .局部变量 i, 整数型<br /> .局部变量 临时文本, 整数型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 单元格, 单元格对象<br /> .局部变量 文件, 文本型, , "0"<br /> .局部变量 s, 整数型<br /> .局部变量 工作簿, 工作簿<br /> .局部变量 工作表, 工作表<br /> .局部变量 行, 整数型<br /> .局部变量 列, 整数型<br /> .局部变量 名称, 文本型, , "0"<br /> .局部变量 数据, 文本型, , "0"<br /> .局部变量 发票代码, 文本型, , "0"<br /> .局部变量 开票日期, 文本型, , "0"<br /> .局部变量 购买方, 文本型, , "0"<br /> .局部变量 货物名称, 文本型, , "0"<br /> .局部变量 数量, 文本型, , "0"<br /> .局部变量 金额, 文本型, , "0"<br /> .局部变量 税额, 文本型, , "0"<br /> .局部变量 合计金额, 文本型, , "0"<br /> .局部变量 合计税额, 文本型, , "0"<br /> .局部变量 价税合计, 文本型, , "0"<br /> .局部变量 价税合计小, 文本型, , "0"<br /> .局部变量 记录, 整数型<br /> .局部变量 数量1, 文本型, , "0"<br /> .局部变量 金额1, 文本型, , "0"<br /> .局部变量 税额1, 文本型, , "0"<br /> .局部变量 数量记录, 整数型<br /> .局部变量 金额记录, 整数型<br /> .局部变量 税额记录, 整数型<br /> <br /> <br /> 工作簿 ＝ 创建工作簿 (“AAA.xlsx”)<br /> 工作表 ＝ 添加工作表 (工作簿, “AAA”)<br /> 列 ＝ 1<br /> <br /> 写入数据 (工作表, 1, 1, “发票代码”)<br /> 写入数据 (工作表, 1, 2, “开票日期”)<br /> 写入数据 (工作表, 1, 3, “购买方名称”)<br /> 写入数据 (工作表, 1, 4, “货物名称”)<br /> 写入数据 (工作表, 1, 5, “数量”)<br /> 写入数据 (工作表, 1, 6, “金额”)<br /> 写入数据 (工作表, 1, 7, “税额”)<br /> 写入数据 (工作表, 1, 8, “合计金额”)<br /> 写入数据 (工作表, 1, 9, “合计税额”)<br /> 写入数据 (工作表, 1, 10, “价税合计(大写)”)<br /> 写入数据 (工作表, 1, 11, “价税合计(小写)”)<br /> <br /> <br /> <br /> <br /> <br /> 文件_搜索1 (编辑框1.内容, “*.*”, , 真, 文件)<br /> <br /> .计次循环首 (取数组成员数 (文件), s)<br />     提交地址 ＝ “https://aip.baidubce.com/oauth/2.0/token”<br /> <br />     client_id ＝ ak<br /> <br />     client_secret ＝ sk<br /> <br />     提交内容 ＝ “?grant_type=client_credentials&client_id=” ＋ client_id ＋ “&client_secret=” ＋ client_secret<br /> <br />     返回结果 ＝ 网页_访问S (提交地址 ＋ 提交内容, 1, , , , , , , , , , , , , , , , , , , )<br /> <br /> <br />     token ＝ 到文本 (文本_取出中间文本 (返回结果, #常量1, #常量2, , ))<br /> <br />     调试输出 (token)<br /> <br />     图片 ＝ 读入文件 (文件 <strike>)<br /> <br />     data ＝ 编码_BASE64编码 (图片)<br />     url ＝ “id_card_side=front&image=” ＋ 编码_URL编码 (data, 真, 真)<br /> <br />     提交地址 ＝ “https://aip.baidubce.com/rest/2.0/ocr/v1/vat_invoice?access_token=” ＋ token<br />     ' 提交地址 ＝ “https://aip.baidubce.com/rest/2.0/ocr/v1/vat_invoice?access_token=” ＋ token<br /> <br />     返回结果 ＝ 网页_访问S (提交地址, 1, url, , , “Content-Type:application/x-www-form-urlencoded”, , , , , , , , , , , , , , , )<br /> <br />     返回结果 ＝ 编码_URL解码 (返回结果, 真)<br /> <br />     调试输出 (“返回结果：” ＋ 返回结果)<br /> <br />     ' 临时文本 ＝ 文本_取中间_批量 (返回结果, #常量7, #常量6, 数组, , , , , , , )<br /> <br />     文本_取中间_批量 (返回结果, #发票代码, #常量6, 发票代码, , , , , , , )<br />     文本_取中间_批量 (返回结果, #开票日期, #常量6, 开票日期, , , , , , , )<br />     文本_取中间_批量 (返回结果, #购买方, #常量6, 购买方, , , , , , , )<br />     ' --------------------------------------------------------------------------------------------<br />     文本_取中间_批量 (返回结果, #货物名称, #货物名称结束, 货物名称, , , , , , , )  ' 需要改动<br />     ' 调试输出 (货物名称)<br />     文本_取中间_批量 (货物名称 [1], #货物名称1, #货物名称1结束, 货物名称1, , , , , , , )<br />     ' 调试输出 (货物名称1)  ' 这里面是2个数组---数组:2{“*家具*钢制文件柜”,“*家具*钢制文件柜”}<br />     ' --------------------------------------------------------------------------------------------<br />     文本_取中间_批量 (返回结果, #数量, #数量结束, 数量, , , , , , , )<br />     ' 调试输出 (数量)<br />     文本_取中间_批量 (数量 [1], #货物名称1, #货物名称1结束, 数量1, , , , , , , )<br />     ' 调试输出 (数量1)  ' 数组:2{“160”,“15”}<br />     ' --------------------------------------------------------------------------------------------<br />     文本_取中间_批量 (返回结果, #金额, #金额结束, 金额, , , , , , , )<br />     ' 调试输出 (金额)<br />     文本_取中间_批量 (金额 [1], #货物名称1, #货物名称1结束, 金额1, , , , , , , )<br />     ' 调试输出 (金额1)  ' 数组:2{“45309.73”,“6371.68”}<br />     ' --------------------------------------------------------------------------------------------<br />     文本_取中间_批量 (返回结果, #税额, #税额结束, 税额, , , , , , , )<br />     ' 调试输出 (税额)<br />     文本_取中间_批量 (税额 [1], #货物名称1, #货物名称1结束, 税额1, , , , , , , )<br />     ' 调试输出 (税额1)<br />     ' --------------------------------------------------------------------------------------------<br />     文本_取中间_批量 (返回结果, #合计金额, #常量6, 合计金额, , , , , , , )<br />     文本_取中间_批量 (返回结果, #合计税额, #常量6, 合计税额, , , , , , , )<br />     文本_取中间_批量 (返回结果, #价税合计, #常量6, 价税合计, , , , , , , )<br />     文本_取中间_批量 (返回结果, #价税合计小, #常量6, 价税合计小, , , , , , , )<br /> <br /> <br /> <br />     .计次循环首 (取数组成员数 (文件), 记录)<br /> <br />         写入数据 (工作表, 记录 ＋ 1, 1, 发票代码 [1])<br />         写入数据 (工作表, 记录 ＋ 1, 2, 开票日期 [1])<br />         写入数据 (工作表, 记录 ＋ 1, 3, 购买方 [1])<br /> <br />         写入数据 (工作表, 记录 ＋ 1, 8, 合计金额 [1])<br />         写入数据 (工作表, 记录 ＋ 1, 9, 合计税额 [1])<br />         写入数据 (工作表, 记录 ＋ 1, 10, 价税合计 [1])<br />         写入数据 (工作表, 记录 ＋ 1, 11, 价税合计小 [1])<br />     .计次循环尾 ()<br /> <br /> <br />     .计次循环首 (取数组成员数 (货物名称1), 货物记录)<br /> <br />         写入数据 (工作表, 货物记录 ＋ 1, 4, 货物名称1 [货物记录])<br /> <br />     .计次循环尾 ()<br /> <br /> <br /> <br />     .计次循环首 (取数组成员数 (数量1), 数量记录)<br />         写入数据 (工作表, 数量记录 ＋ 1, 5, 数量1 [数量记录])<br />     .计次循环尾 ()<br /> <br /> <br /> <br />     .计次循环首 (取数组成员数 (金额1), 金额记录)<br />         写入数据 (工作表, 金额记录 ＋ 1, 6, 金额1 [金额记录])<br />     .计次循环尾 ()<br /> <br /> <br /> <br />     .计次循环首 (取数组成员数 (税额1), 税额记录)<br />         写入数据 (工作表, 税额记录 ＋ 1, 7, 税额1 [税额记录])<br />     .计次循环尾 ()<br /> <br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> 关闭工作簿 (工作簿)<br /> 信息框 (“识别写入完成”, 0, , )

钥匙key

网络图片地址。图片我删了。你自己重新改一下。。

chenxiaoman1

菜鸟在线等。大神快来

钥匙key

写入数据是自己的一个子程序吧？

钥匙key

LibXL 4.1.1 【源码】【excel操作】【无需安装excel】
https://bbs.125.la/forum.php?mod=viewthread&tid=14766966
(出处: 精易论坛)
用这个吧。不要用易语言自带的了。原生太难受了。。

chenxiaoman1

附件里面的就是现在用的这些。

chenxiaoman1

q8018414 发表于 2023-3-24 10:03
LibXL 4.1.1 【源码】【excel操作】【无需安装excel】
https://bbs.125.la/forum.php?mod=viewthread&tid=1 ...

我上传了 我现在用的所有东西。

钥匙key

识别不出结果呀。。直接报错了。。

钥匙key

识别不出是我的问题。。你要不直接传一张。我用网络图片。本地图片被加密了。。

chenxiaoman1

q8018414 发表于 2023-3-24 10:20
识别不出结果呀。。直接报错了。。

我这边正常 识别啊，如果识别不出来 数组就越界了。

我现在想解决的是，第一次识别可以正常，第二次识别 就替换了之前的行数 不知道哪里的问题。