部分代码:
.版本 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) ' 初始化