.版本 2
.DLL命令 OCR, 文本型, "AspriseVB.dll", "OCR"
  .參數(shù) file, 文本型
  .參數(shù) imageType, 整數(shù)型
.DLL命令 OCRBarCodes, 文本型, "VBWrapper.dll", "OCRBarCodes"
  .參數(shù) file, 文本型
  .參數(shù) imageType, 整數(shù)型
.DLL命令 OCRpart, 文本型, "VBWrapper.dll", "OCRpart"
  .參數(shù) file, 文本型
  .參數(shù) imageType, 整數(shù)型
  .參數(shù) startX, 整數(shù)型
  .參數(shù) startY, 整數(shù)型
  .參數(shù) width, 整數(shù)型
  .參數(shù) height, 整數(shù)型

條形碼本地離線識別的代碼

.版本 2
.程序集 窗口程序集1
.子程序 _識別按鈕_被單擊
.局部變量 文件名, 文本型
.局部變量 識別結果, 文本型
.局部變量 分割, 文本型, , "0"
.局部變量 i, 整數(shù)型
.局部變量 二次分割, 文本型, , "0"
.如果 (通用對話框1.打開 ())
  文件名 ＝ 通用對話框1.文件名
  識別結果 ＝ OCR (文件名, -1)
  .如果 (取文本長度 (識別結果) ＞ 3)
    .如果 (尋找文本 (識別結果, “[”, , 假) ＞ -1)
      分割 ＝ 分割文本 (識別結果, “[”, )
      .計次循環(huán)首 (取數(shù)組成員數(shù) (分割) － 1, i)
        .如果 (尋找文本 (分割 [i ＋ 1], “]”, , 假) ＞ -1)
          二次分割 ＝ 分割文本 (分割 [i ＋ 1], “]”, )
          .如果 (二次分割 [1] ≠ “”)
            .如果 (取文本長度 (二次分割 [1]) ＞ 8)
              信息框 (二次分割 [1], 0, )
            .否則
            .如果結束
          .否則
          .如果結束
        .否則
        .如果結束
      .計次循環(huán)尾 ()
    .否則
    .如果結束
  .否則
  .如果結束
.否則
.如果結束

運行結果：