Sub 文字识别()
strPicPath = Application.GetOpenFilename(, , "打开图片") '打开文件
EncodeFile (strPicPath)
End Sub
Public Function EncodeFile(strPicPath As String) As String
Const adTypeBinary = 1
Dim objXML
Dim objDocElem
Dim objStream
Set objStream = CreateObj
下面是我的代码:
import pytesseract
pytesseract.pytesseract.tesseract_cmd = r'F:\Installations\tesseract'
print(pytesseract.image_to_string('images/meme1.png', lang='eng'))
下面是图片:
输出结果如下:
GP.
ed <a
= va
ay Roce Thee .
‘ , Pe ship
RCAC Tm alesy-3
Pein Reg a
years —
? >