VBA版SDK--百度文字识别OCR

wmx12345

'**************************代码作者一览表：************************************************************************
'*************************************Json解析**********************************************************
'cJSONScript：国外未知作者
'cStringBuilder： Steve McMahon (steve@vbaccelerator.com)，1 January 2002
'JSON:Michael Glaser (vbjson@ediy.co.nz)
'*************************************Json解析**********************************************************

'Clipboard、clsBase64、clsEncode、HttpOCR、OCR节选自：ExcelHome论坛ID--chenjyjustin
'HttpOCR、OCR优化：紫电
'**************************代码作者一览表：************************************************************************




'*************************************开源寄语**********************************************************
'    各位VBA界开大佬们，你们好。作为VBA界的菜鸟，这些代码着实献丑了，还有很多不完善的
'地方，需要大家共同努力优化。建议大家参照百度C++的SDK代码“aip-cpp-sdk-4.15.4”，开发出一个VBA版的百度云SDK。

'目前遗留的问题
'1、剪切板中截图的图片，需要存为文件之后，才能读取。暂时未找到直接从剪切板中读取的办法。
'2、时间仓促，代码命名规则不是很规范
'3、ak、sk，授权期限的判断算法未定
'4、本示例只是一个可扩展雏形，没有做任何容错处理，建议增加的接口写在OCR中，拓展时请参照百度C++SDK


'一个人的力量总是微弱的，希望大家发扬开源精神，将拓宽、优化后的代码，分享出来，大家一起修改吧
'紫电
'2021-4-12
'*************************************开源寄语**********************************************************




'*************************************开发文档网址**********************************************************
'鉴权认证机制Access Token：https://ai.baidu.com/ai-doc/REFERENCE/Ck3dwjhhu#%E4%BD%BF%E7%94%A8access-key-idsecret-access-key%E7%9A%84%E5%BC%80%E5%8F%91%E8%80%85%E6%B3%A8%E6%84%8F
'百度AI开放平台文字识别：https://ai.baidu.com/ai-doc/OCR/Ek3h7xypm
'*************************************开发文档网址**********************************************************

鸣谢：本版本改编自ExcelHome论坛ID--chenjyjustin的版本，详见http://club.excelhome.net/thread-1394680-1-1.html

lilyhcn1

我觉得只有批量才能发挥excel的优势，单一图片的识别，N多软件可以秒杀你。
我现在的想法是
1. 表格内有图片的地址；
2. 表格调用外面程序并返回结果；
    具体流程比较复杂，有兴趣可以聊一聊。

调用外面程序的好处是表格可以固定死，不会再变化，而功能可以无限扩充。
现在实现的功能有
1. 表格批量生成word模板
2. 表格批量发送QQ消息、微信消息、邮件等。

pengs14

支持一下

wmx12345

lilyhcn1 发表于 2021-4-13 10:47
我觉得只有批量才能发挥excel的优势，单一图片的识别，N多软件可以秒杀你。
我现在的想法是
1. 表格内有 ...

你准备做的，我都已经做过了。估计每个学VBA的，都会去开发这些功能

这是一个框架，不是成熟的产品，用于二次开发的，当然可以批量识别

lilyhcn1

wmx12345 发表于 2021-4-13 12:31
你准备做的，我都已经做过了。估计每个学VBA的，都会去开发这些功能

这是一个框架，不是成熟的 ...

理念不一样，你是做单一产品，我是做通用程序。
敢说框架，那至少要格局大点，别做单一用途的。

xiaomils

楼主辛苦了！

wmx12345

lilyhcn1 发表于 2021-4-13 15:09
理念不一样，你是做单一产品，我是做通用程序。
敢说框架，那至少要格局大点，别做单一用途的。

你要做的东西，我都有，而且都是成熟的，工作性质变了，现在不怎么用了

wmx12345

另外，这里面有个json的解析功能，个人感觉挺好用的，对于VBA编程的人，应该福音，尤其是做爬虫遇到json的。

yhs185

支持一下
支持一下

HHAAMM

支持一下
Json部分下面这样弄是不是省点事也直观一些
Set oJson = CreateObject("ScriptControl")
    oJson.Language = "JavaScript"
    oJson.AddCode "var Json = " & strJson & ";"
生成对象，然后再oJson.eval来处理