vba提取扫描图片指定右上角的数字！

2163kjh

说明：有批量的图片（jpg格式）存放在指定文件夹（名称为“图库”），现遍历图库文件夹下所有的图片，提取图片右上角的数字，区域固定的都是在右上角，把这些数字作为名称，将图片重命名为提取的数字。
补充：附件已经上传，发现有的图片里面含有印刷体的标准汉字，可否提取？由于上传限制，把图片剪裁的小点了。

约定的童话

这个有挑战性，压缩发点原始图上来

wanghan519

不负责任的猜想：用opencv单色反色，用宽多些高少些的核膨胀，从右上角找第一个高大于多少的轮廓，截取轮廓对应的图片ocr；或查找霍夫线，截取第一条线最右边下面的部分ocr。。。

pc_12

这种类型以前做过，先截图、再识别、再重命名

2163kjh

pc_12 发表于 2022-4-14 08:41
这种类型以前做过，先截图、再识别、再重命名

嗯，对，我就是这个思路，先fso遍历文件名字，重命名也会，就是不会截图识别字，论坛查了下可以用office2003自带的 Microsoft Office 文档图像 (MODI)处理这种简单的印刷体的数字，我这个右上角的图片都是印刷体的数字，比较容易识别。当然其他的语言方法都可以，调用百度ocr也可以，vba用自身的识别比较省劲，代码不会写就是

2163kjh

约定的童话 发表于 2022-4-14 07:13
这个有挑战性，压缩发点原始图上来

好的，我找些素材发上来。

2163kjh

wanghan519 发表于 2022-4-14 07:47
不负责任的猜想：用opencv单色反色，用宽多些高少些的核膨胀，从右上角找第一个高大于多少的轮廓，截取轮廓 ...

您说的这个，绝对高大尚，但是对vba初级小朋友来说，难度太大了。不过这个思路是绝对正确的，大神级别的应该这样子搞。

tspliu

2163kjh 发表于 2022-4-14 09:20
您说的这个，绝对高大尚，但是对vba初级小朋友来说，难度太大了。不过这个思路是绝对正确的，大神级别的 ...

免费的百度识别，有用弄那么麻烦了，图里没有其他XXXX-XXXX的文字，识别完直接正则就可以了。前几天wodewan大神发了一个免费无需注册的百度识别，下载下来就可以直接用了，还有精准版定位识别位置的功能，可能 正则都不用。

perfect131

把图片插入到工作表、区域截图、然后用百度ocr识别就可以、已经有大神分享过没有token的百度OCR

wanghan519

tspliu 发表于 2022-4-14 09:26
免费的百度识别，有用弄那么麻烦了，图里没有其他XXXX-XXXX的文字，识别完直接正则就可以了。前几天wodew ...

多谢，搜到了大神分享的接口，感觉前几天错过了一个亿，在wsl里大概是这样：
curl 'https://files-c.excelhome.net/forum/202204/13/231928de9rkjqrrfubfccl.jpg' -H 'Referer: https://club.excelhome.net/' | base64 -w0 | sed 's$^$data:image/jpg;base64,$' | curl "http://ai.baidu.com/aidemo" --data-urlencode 'image@-' --data-urlencode 'type=https://aip.baidubce.com/rest/2.0/ocr/v1/accurate' -H 'Referer: https://ai.baidu.com/tech/ocr/general' | jq '.data.words_result | map(select(.location.left>1200 and .location.top<70)) | .[0].words'



过程是，从当前贴里获得图片，base64编码，发送到百度接口，处理json时只是简单限制了left和top，就可以出结果了。