ACCESS实现文字识别（OCR）有哪些网友做过？

admin

ACCESS实现文字识别（OCR）有哪些网友做过？
可交流或跟贴回复下

风中漫步

没做过

风中漫步

自带的那个不理想?

wangling

You should to have fill version of Acrobat (not reader)

Take look on this procedure:
Sub test_with_PDF()
Dim objApp As Object
Dim objPDDoc As Object
Dim objjso As Object
Dim wordsCount As Long
Dim page As Long
Dim i As Long
Dim strData As String
Dim strFileName As String

strFileName = "C:\Temp\File.pdf"

Set objApp = CreateObject("AcroExch.App")
Set objPDDoc = CreateObject("AcroExch.PDDoc")
'AD.1 open file, if =false file is damage
If objPDDoc.Open(strFileName) Then
    Set objjso = objPDDoc.GetJSObject
    For page = 0 To objPDDoc.GetNumPages - 1
        wordsCount = objjso.GetPageNumWords(page)
        For i = 0 To wordsCount
            'AD.2 Set text to variable strData
            strData = strData & " " & objjso.getPageNthWord(page, i)
        Next i
    Next
    MsgBox strData
Else
    MsgBox "error!"
End If
End Sub

wangling

Using the Microsoft Office Document Imaging


https://msdn.microsoft.com/en-us/library/office/aa167607(v=office.11).aspx

2007以後的版本已不支援此法

wangling

不知王版的使用細節 一般都是采硬件 如名片扫描儀所附的API去寫CODE
我用過 QR CODE的扫描儀 它就附有相關的應用如下
http://www.morovia.com/manuals/qrcode-font-encoder/ch06.php

admin

谢谢，你这个是二维 码识别哦，我要的是类似你说 的名片王，但也要扫描 其它数据，如发票扫描等

wangling

那王版你需要的是 類似此種的硬件
http://mt.sohu.com/20150402/n410732611.shtml
可多方比價 但一定要附有sdk 接口的機型

wangling

這有些平價型的資料 但一定要實際試用
我買過大廠 卻問題重重的不愉快經驗

https://www.baidu.com/s?ie=utf-8&f=8&rsv_bp=1&wd=%E6%80%A7%E4%BB%B7%E6%AF%94%E6%9C%80%E5%A5%BD%E7%9A%84%E6%89%AB%E6%8F%8F%E4%BB%AA%20ocr&oq=%E6%80%A7%E4%BB%B7%E6%AF%94%E6%9C%80%E5%A5%BD%E7%9A%84%E6%89%AB%E6%8F%8F%E4%BB%AA&rsv_pq=ea3b65f000004e29&rsv_t=d0702M1iG%2BOWnrUnIVuBUKQVLnQNsdYVt1XN9%2FZxMgh6culQqWDaCZ3bYhMAwuPeEs5g67g0Gvtw&rsv_enter=0&rsv_sug3=9&inputT=15216&rsv_sug4=15694

风中漫步

关注了下,有个tesseract貌似不错,免费的.不过看着比较复杂.本身有个控制台,shell下应该省劲,大家试试来
别忘了报告下成果哦{:soso_e120:}