今天小編就爲大家分享一篇關於易語言實現條形碼本地離線識別的代碼，小編覺得內容挺不錯的，現在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
DLL命令表
需要提前下載用到命令對應的庫
.版本 2 .DLL命令 OCR, 文本型, "AspriseVB.dll", "OCR" .參數 file, 文本型 .參數 imageType, 整數型 .DLL命令 OCRBarCodes, 文本型, "VBWrapper.dll", "OCRBarCodes" .參數 file, 文本型 .參數 imageType, 整數型 .DLL命令 OCRpart, 文本型, "VBWrapper.dll", "OCRpart" .參數 file, 文本型 .參數 imageType, 整數型 .參數 startX, 整數型 .參數 startY, 整數型 .參數 width, 整數型 .參數 height, 整數型
條形碼本地離線識別的代碼
.版本 2
.程序集 窗口程序集1
.子程序 _識別按鈕_被單擊
.局部變量 文件名, 文本型
.局部變量 識別結果, 文本型
.局部變量 分割, 文本型, , "0"
.局部變量 i, 整數型
.局部變量 二次分割, 文本型, , "0"
.如果 (通用對話框1.打開 ())
文件名 ＝ 通用對話框1.文件名
識別結果 ＝ OCR (文件名, -1)
.如果 (取文本長度 (識別結果) ＞ 3)
.如果 (尋找文本 (識別結果, “[”, , 假) ＞ -1)
分割 ＝ 分割文本 (識別結果, “[”, )
.計次循環首 (取數組成員數 (分割) － 1, i)
.如果 (尋找文本 (分割 [i ＋ 1], “]”, , 假) ＞ -1)
二次分割 ＝ 分割文本 (分割 [i ＋ 1], “]”, )
.如果 (二次分割 [1] ≠ “”)
.如果 (取文本長度 (二次分割 [1]) ＞ 8)
信息框 (二次分割 [1], 0, )
.否則
.如果結束
.否則
.如果結束
.否則
.如果結束
.計次循環尾 ()
.否則
.如果結束
.否則
.如果結束
.否則
.如果結束
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對神馬文庫的支持。如果你想了解更多相關內容請查看下面相關鏈接