tesseract-OCR如何通过vba语言获取识别字符串,而不通过生成txt文件的方式

sub 识别图像文字()

shell  "cmd.exe /c tesseract  E:\123.jpg E:\123  -l chi_sim "

end sub

如何不生产txt文件,直接获取识别的字符串?以上会产生txt文件,不能是先生成后删除txt文件,如何获取字符串?

孙老师,这样的方法我理解,但是会出现exe运行边框,很难去除。那如何实现无边框运行,我试过采用输入一段代码,但还是有边框闪烁。

Tesseract 3.03以后的版本,可以通过在命令行尾部增加参数stdout来输出识别结果。

例如,将识别结果赋给变量rst,然后放入当前活动工作表的B2单元格中。

Sub pic_dis()
    Dim MyStr, wExec, rst As String
    
    Set MyStr = CreateObject("WScript.Shell")
    Set wExec = MyStr.exec("cmd.exe /c tesseract  C:\Users\sunbin\Pictures\1-26.jpg stdout")
    rst = wExec.stdout.readall
    Range("B2") = rst
End Sub

 

您好,我是有问必答小助手,您的问题已经有小伙伴解答了,您看下是否解决,可以追评进行沟通哦~

如果有您比较满意的答案 / 帮您提供解决思路的答案,可以点击【采纳】按钮,给回答的小伙伴一些鼓励哦~~

ps:问答VIP仅需29元,即可享受5次/月 有问必答服务,了解详情>>>https://vip.csdn.net/askvip?utm_source=1146287632

非常感谢您使用有问必答服务,为了后续更快速的帮您解决问题,现诚邀您参与有问必答体验反馈。您的建议将会运用到我们的产品优化中,希望能得到您的支持与协助!

速戳参与调研>>>https://t.csdnimg.cn/Kf0y

谢谢,孙老师百忙之中的答疑!