Want to use VBA programming read the number in the photo with EXCEL save, thank you very much

CodePudding user response:

Big and coffee to help, can use vba programming read digital photos in the red mark in the annex, and EXCEL

CodePudding user response:

You can pay attention to the.net + aforge.net

CodePudding user response:

Print characters...

In OCR, accuracy is almost 100%,

CodePudding user response:

Baidu to read?

CodePudding user response:

One of an OCR component, at the time of installation open tool folding as you can see, the components are integrated into one, after the 2010 note inside,
The Microsoft web site can be downloaded for free Microsoft SharePoint Designer, 2007, in the installation package also includes the component, you can download to come over, then find a clean environment (I got a virtual machine to play) only choose to install this component in a specified directory, and then extract the files in your installation package, register, can call, specific call ask baidu has the complete code, visual your this sample picture can be better recognition by scanning picture is better,

CodePudding user response:

 VB realize the OCR character recognition 
Principle: use Microsoft OCR controls, takes less than 10 lines of code will be able to realize their own OCR character recognition software. 
1. Add controls, you need to install office2003, not installed office2003 can copy from the other machine related files, register regsvr32. Exe mdivwctl. DLL, 
Controls in the directory: C: \ Program Files \ Common Files \ Microsoft Shared \ MODI \ 11.0, have to do is related to several Files, this folder all documents about 21 m. 
Engineering - & gt; Components - & gt; Add this control: Microsoft Office Document Imaging 11.0 Type Library 

2. In button Click event: 
Dim strLayoutInfo As String, strLPN As String 

'initialization and load document 
The Set miDoc=CreateObject (" MODI. Document ") 'create objects 
MiDoc. Create "D: \ unnamed. Tif" 'loading image file (must be black and white binary chart) 

Screen. MousePointer set cursor=vbHourglass 'busy 
'recognition 
MiDoc. Images (0). The OCR miLANG_CHINESE_SIMPLIFIED, True, True 'useful in this way, identified as Chinese simplified 

Set modiLayout=miDoc. Images (0). The read data Layout '
StrLayoutInfo=_ 
"Language:" & amp; ModiLayout. Language & amp; VbCrLf & amp; _ 
"The Number of characters:" & amp; ModiLayout. NumChars & amp; VbCrLf & amp; _ 
"The Number of fonts:" & amp; ModiLayout. NumFonts & amp; VbCrLf & amp; _ 
"The Number of words:" & amp; ModiLayout. NumWords & amp; VbCrLf & amp; _ 
"The Beginning of the text:" & amp; Left (modiLayout. Text, 50) & amp; VbCrLf & amp; _ 
"The First word of the text:" & amp; ModiLayout. Words (0). The Text 
MsgBox strLayoutInfo vbInformation + vbOKOnly, "Layout Information", "
The Set modiLayout=Nothing 
The Set miDoc=Nothing 
Screen. MousePointer=vbDefault 

3. OK, is very simple