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