条形码本地离线识别

部分代码：

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 文件名, 文本型
.局部变量 识别结果, 文本型
.局部变量 分割, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 二次分割, 文本型, , "0"

.如果 (通用对话框1.打开 ())
    文件名 ＝ 通用对话框1.文件名
    识别结果 ＝ OCR (文件名, -1)
    .如果 (取文本长度 (识别结果) ＞ 3)
        .如果 (寻找文本 (识别结果, “[”, , 假) ＞ -1)
            分割 ＝ 分割文本 (识别结果, “[”, )
            .计次循环首 (取数组成员数 (分割) － 1, i)
                .如果 (寻找文本 (分割 [i ＋ 1], “]”, , 假) ＞ -1)
                    二次分割 ＝ 分割文本 (分割 [i ＋ 1], “]”, )
                    .如果 (二次分割 [1] ≠ “”)
                        .如果 (取文本长度 (二次分割 [1]) ＞ 8)
                            信息框 (二次分割 [1], 0, , )
                        .否则

                        .如果结束

                    .否则

                    .如果结束

                .否则

                .如果结束

            .计次循环尾 ()
        .否则

        .如果结束

    .否则

    .如果结束

.否则

.如果结束


.子程序 __启动窗口_创建完毕

OCR (取运行目录 () ＋ “Start.bmp”, -1)  ' 初始化

@mrzcpo