Tesseract OCR VBA code, vbscript

HIN TechEr answered on November 26, 2022 Popularity 2/10 Helpfulness 1/10

answer Tesseract OCR VBA code, vbscript

Tesseract OCR VBA code, vbscript

Comment

Sub Image_into_Excelby_Ajit_Yadav()
On Error Resume Next
Dim myshell As Shell32.Shell, ReadCommand, CaptchaCode, i
Set myshell = New Shell32.Shell
For i = 1 To 5 ' Change it
ReadCommand = "tesseract.exe " & "'C:\Users\Kumar Ajit\Downloads\All Images\Image " & i & ".png'" & " " & "'C:\Users\Kumar Ajit\Downloads\All Images\READ\Image " & i & "'" & " ' -l eng'"
myshell.ShellExecute "powershell", vArgs:=ReadCommand, vShow:=0
Application.Wait (Now + TimeValue("00:00:05"))
Open "C:\Users\Kumar Ajit\Downloads\All Images\READ\Image " & i & ".txt" For Input As #1
Line Input #1, CaptchaCode
Close #1
Application.Wait (Now + TimeValue("00:00:02"))
MyCaptchaCode = Application.WorksheetFunction.Substitute(CaptchaCode, Chr(10), "")
Cells(i + 1, 2).Value = Trim(Application.WorksheetFunction.Clean(MyCaptchaCode))
Cells(i + 1, 1).Value = "Sr. " & i
Next i
End Sub

Popularity 2/10 Helpfulness 1/10 Language whatever

Source: 99excel.com

Tags: ocr tesseract vba vbscript whatever

Link to this answer
Share Copy Link

Contributed on Nov 26 2022

HIN TechEr

0 Answers Avg Quality 2/10

Tesseract OCR VBA code, vbscript

Contents

More Related Answers

Tesseract OCR VBA code, vbscript

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.