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
谢谢,孙老师百忙之中的答疑!