'用Microsoft的组件.Option Explicit '注:要引用MIcrosoft Office Document Imageing 11.0 type '这个组件是安了office 2003 以后才有 Private Sub Command1_Click() TestOCR End SubSub TestOCR() Dim miDoc As MODI.Document
Set miDoc = New MODI.Document Dim OutText As MODI.Layout
miDoc.Create "C:\1.tif"
Screen.MousePointer = vbHourglass miDoc.OCR miLANG_CHINESE_SIMPLIFIED '语言为简体中文 'miDoc.OCR Set OutText = miDoc.Images(0).Layout '识别第一页的数据 Text1.Text = OutText.Text Screen.MousePointer = vbDefault miDoc.Close False Set OutText = Nothing Set miDoc = Nothing End Sub
小弟在查看Microsoft的资料时无意中发现了这个好东东. 可以识别汉字和字符的.识别率和效率都不错,现在拿出来,大伙一起研究研究. 代码如下:Option Explicit '注:要引用MIcrosoft Office Document Imageing 11.0 type '这个组件是安了office 2003 以后才有 Private Sub Command1_Click() TestOCR End SubSub TestOCR() Dim miDoc As MODI.Document
Set miDoc = New MODI.Document Dim OutText As MODI.Layout
'注:要引用MIcrosoft Office Document Imageing 11.0 type
'这个组件是安了office 2003 以后才有
Private Sub Command1_Click()
TestOCR
End SubSub TestOCR() Dim miDoc As MODI.Document
Set miDoc = New MODI.Document
Dim OutText As MODI.Layout
miDoc.Create "C:\1.tif"
Screen.MousePointer = vbHourglass
miDoc.OCR miLANG_CHINESE_SIMPLIFIED '语言为简体中文
'miDoc.OCR
Set OutText = miDoc.Images(0).Layout '识别第一页的数据
Text1.Text = OutText.Text
Screen.MousePointer = vbDefault
miDoc.Close False
Set OutText = Nothing
Set miDoc = Nothing
End Sub
可以识别汉字和字符的.识别率和效率都不错,现在拿出来,大伙一起研究研究.
代码如下:Option Explicit
'注:要引用MIcrosoft Office Document Imageing 11.0 type
'这个组件是安了office 2003 以后才有
Private Sub Command1_Click()
TestOCR
End SubSub TestOCR() Dim miDoc As MODI.Document
Set miDoc = New MODI.Document
Dim OutText As MODI.Layout
miDoc.Create "C:\1.tif" '打开文档
Screen.MousePointer = vbHourglass
miDoc.OCR miLANG_CHINESE_SIMPLIFIED '语言为简体中文
'miDoc.OCR
Set OutText = miDoc.Images(0).Layout '识别第一页的数据
msgbox "识别出为是字符如下:" & vbcrlf & OutText.Text
Screen.MousePointer = vbDefault
miDoc.Close False
Set OutText = Nothing
Set miDoc = NothingEnd Sub------------------------
哈哈,拿分来吧!! :)
看看这个程序,自动注册、自动登录,然后搜索注册用户邮件地址列表。
http://www.foyi.cn/bbs/UploadFile/2005-3/20053181803598.rar
建议下载后先行杀毒在打开!