.版本 2 .支持库 spec .程序集 程序集1, , , ' 本源码来自三叶资源网(www.sanye.cx) .程序集变量 字模库, 文本型, , "0" .程序集变量 字模库2, 字节集, , "0" .程序集变量 id, 整数型 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 .局部变量 t, 整数型 字模库 ＝ 分割文本 (到文本 (#图片1), #换行符, ) 字模库2 ＝ 分割字节集 (#图片1, 到字节集 (#换行符), ) id ＝ 0 t ＝ 取启动时间 () .计次循环首 (10, ) 识别失败测试 () 识别成功测试 () .计次循环尾 () 调试输出 (id, 取启动时间 () － t) .如果真 (识别失败测试 () ≠ “识别失败” 或 寻找文本 (识别成功测试 (), “识别失败”, , 假) ≠ -1) 调试输出 (“异常”) 结束 () .如果真结束 id ＝ 1 t ＝ 取启动时间 () .计次循环首 (10, ) 识别失败测试 () 识别成功测试 () .计次循环尾 () 调试输出 (id, 取启动时间 () － t) .如果真 (识别失败测试 () ≠ “识别失败” 或 寻找文本 (识别成功测试 (), “识别失败”, , 假) ≠ -1) 调试输出 (“异常”) 结束 () .如果真结束 id ＝ 2 t ＝ 取启动时间 () .计次循环首 (10, ) 识别失败测试 () 识别成功测试 () .计次循环尾 () 调试输出 (id, 取启动时间 () － t) .如果真 (识别失败测试 () ≠ “识别失败” 或 寻找文本 (识别成功测试 (), “识别失败”, , 假) ≠ -1) 调试输出 (“异常”) 结束 () .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 识别图片_原, 文本型 .参数 识别特征, 文本型 .参数 相似度定义, 整数型 .局部变量 s1 .局部变量 s2 .局部变量 字库分割, 文本型, , "0" .局部变量 待识别组, 文本型, , "0" .局部变量 识别结果, 文本型 .局部变量 识别相似度 .局部变量 识别逻辑, 逻辑型 重定义数组 (字库分割, 假, 0) 重定义数组 (待识别组, 假, 0) 识别相似度 ＝ 0 识别逻辑 ＝ 假 待识别组 ＝ 分割文本 (识别特征, “|”, ) .如果真 (取数组成员数 (待识别组) ＝ 2) .计次循环首 (取数组成员数 (字模库), s1) 字库分割 ＝ 分割文本 (字模库 [s1], “|”, ) .如果真 (取数组成员数 (字库分割) ＝ 3) .如果真 (待识别组 [1] ＝ 字库分割 [2]) ' 判断图片大小是否一致 .如果真 (取文本长度 (待识别组 [2]) ＝ 取文本长度 (字库分割 [3])) ' 判断文本长度是否一致 .计次循环首 (取文本长度 (字库分割 [3]), s2) ' 逐个匹配数据 .如果真 (取文本中间 (待识别组 [2], s2, 1) ＝ 取文本中间 (字库分割 [3], s2, 1)) 识别相似度 ＝ 识别相似度 ＋ 1 .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) .计次循环尾 () .如果真 (识别相似度 ÷ 取文本长度 (字库分割 [3]) × 100 ≥ 相似度定义) 识别逻辑 ＝ 真 识别结果 ＝ 字库分割 [1] 跳出循环 () .如果真结束 .如果真结束 .如果真结束 .如果真结束 重定义数组 (字库分割, 假, 0) 识别相似度 ＝ 0 .计次循环尾 () .如果真结束 .如果 (识别逻辑 ＝ 假) 返回 (“识别失败”) .否则 返回 (识别结果) .如果结束 返回 (“识别失败”) .子程序 识别图片_1, 文本型 .参数 识别特征, 文本型 .参数 相似度定义, 整数型 .局部变量 s1 .局部变量 s2 .局部变量 字库分割, 文本型, , "0" .局部变量 待识别组, 文本型, , "0" .局部变量 识别结果, 文本型 .局部变量 识别相似度 .局部变量 识别逻辑, 逻辑型 .局部变量 待识别组_字节数组, 字节型, , "0" .局部变量 字库分割_字节数组, 字节型, , "0" .局部变量 len, 整数型 重定义数组 (字库分割, 假, 0) 重定义数组 (待识别组, 假, 0) 识别相似度 ＝ 0 识别逻辑 ＝ 假 待识别组 ＝ 分割文本 (识别特征, “|”, ) .如果真 (取数组成员数 (待识别组) ＝ 2) .计次循环首 (取数组成员数 (字模库), s1) 字库分割 ＝ 分割文本 (字模库 [s1], “|”, ) .如果真 (取数组成员数 (字库分割) ＝ 3) .如果真 (待识别组 [1] ＝ 字库分割 [2]) ' 判断图片大小是否一致 .如果真 (取文本长度 (待识别组 [2]) ＝ 取文本长度 (字库分割 [3])) ' 判断文本长度是否一致 len ＝ 取文本长度 (字库分割 [3]) 重定义数组 (待识别组_字节数组, 假, len) 重定义数组 (字库分割_字节数组, 假, len) 写到内存 (待识别组 [2], 取变量数据地址 (待识别组_字节数组), len) 写到内存 (字库分割 [3], 取变量数据地址 (字库分割_字节数组), len) .计次循环首 (len, s2) ' 逐个匹配数据 .如果真 (待识别组_字节数组 [s2] ＝ 字库分割_字节数组 [s2]) 识别相似度 ＝ 识别相似度 ＋ 1 .如果真结束 .计次循环尾 () .如果真 (识别相似度 ÷ 取文本长度 (字库分割 [3]) × 100 ≥ 相似度定义) 识别逻辑 ＝ 真 识别结果 ＝ 字库分割 [1] 跳出循环 () .如果真结束 .如果真结束 .如果真结束 .如果真结束 重定义数组 (字库分割, 假, 0) 识别相似度 ＝ 0 .计次循环尾 () .如果真结束 .如果 (识别逻辑 ＝ 假) 返回 (“识别失败”) .否则 返回 (识别结果) .如果结束 返回 (“识别失败”) .子程序 识别图片_2, 文本型 .参数 识别特征, 文本型 .参数 相似度定义, 整数型 .局部变量 s1 .局部变量 s2 .局部变量 字库分割, 文本型, , "0" .局部变量 待识别组, 文本型, , "0" .局部变量 识别结果, 文本型 .局部变量 识别相似度 .局部变量 待识别组_字节数组, 字节型, , "0" .局部变量 字库分割_字节数组, 字节型, , "0" .局部变量 len, 整数型 待识别组 ＝ 分割文本 (识别特征, “|”, 2) .如果真 (取数组成员数 (待识别组) ＝ 2) len ＝ 取文本长度 (待识别组 [2]) 重定义数组 (待识别组_字节数组, 假, len) 写到内存 (待识别组 [2], 取变量数据地址 (待识别组_字节数组), len) .计次循环首 (取数组成员数 (字模库), s1) 字库分割 ＝ 分割文本 (字模库 [s1], “|”, 3) .如果真 (取数组成员数 (字库分割) ＝ 3) .如果真 (待识别组 [1] ＝ 字库分割 [2]) ' 判断图片大小是否一致 len ＝ 取文本长度 (字库分割 [3]) .如果真 (取文本长度 (待识别组 [2]) ＝ len) ' 判断文本长度是否一致 重定义数组 (字库分割_字节数组, 假, len) 写到内存 (字库分割 [3], 取变量数据地址 (字库分割_字节数组), len) 识别相似度 ＝ 0 .计次循环首 (len, s2) ' 逐个匹配数据 .如果真 (待识别组_字节数组 [s2] ＝ 字库分割_字节数组 [s2]) 识别相似度 ＝ 识别相似度 ＋ 1 .如果真结束 .计次循环尾 () .如果真 (识别相似度 ÷ 取文本长度 (字库分割 [3]) × 100 ≥ 相似度定义) 返回 (字库分割 [1]) .如果真结束 .如果真结束 .如果真结束 .如果真结束 .计次循环尾 () .如果真结束 返回 (“识别失败”) .子程序 识别图片_, 文本型 .参数 识别特征, 文本型 .参数 相似度定义, 整数型 .判断开始 (id ＝ 0) 返回 (识别图片_原 (识别特征, 相似度定义)) .判断 (id ＝ 1) 返回 (识别图片_1 (识别特征, 相似度定义)) .判断 (id ＝ 2) 返回 (识别图片_2 (识别特征, 相似度定义)) .默认 .判断结束 返回 (“”) .子程序 识别失败测试, 文本型 .局部变量 a, 文本型 a ＝ 识别图片_ (“11|0000010000000001110000000111100000110010000001000110000000001000000000010000000000110000000001000000000010000000000100000000001000000000010000000000110000000000000001111111111111111111111”, 95) .如果真 (a ＝ “识别失败”) 返回 (“识别失败”) .如果真结束 a ＝ a ＋ 识别图片_ (“13|00001111100000001111111100001100000110001000000001000100000000010110000000011001000000001100110000000111001110011011100011111000100000000000110000000000011000000000001100000000001100011100001110000111111110000000011100000”, 95) .如果真 (寻找文本 (a, “识别失败”, , 假) ≠ -1) 返回 (“识别失败”) .如果真结束 a ＝ a ＋ 识别图片_ (“12|000000011100000000011110000000011100000001101100000001001100000010001100000110001100001100001100001000001100011000001100110000001100111111111111111111111111000000001100000000001100000000001100000000001100”, 95) .如果真 (寻找文本 (a, “识别失败”, , 假) ≠ -1) 返回 (“识别失败”) .如果真结束 a ＝ a ＋ 识别图片_ (“13|0000000011000000000011110000000001111000000001011000000001100110000001100011000000100011000000100001100000110000110000010000001000010000000100011111111111111111111111111000000000100000000000010000000000001000”, 95) .如果真 (寻找文本 (a, “识别失败”, , 假) ≠ -1) 返回 (“识别失败”) .如果真结束 返回 (a) .子程序 识别成功测试, 文本型 .局部变量 a, 文本型 a ＝ 识别图片_ (“12|000001100000000011100000000111100000011101100000111001100000010001100000000001100000000001100000000001100000000001100000000001100000000001100000000001100000000001100000000001100000111111111111111111111111”, 95) .如果真 (a ＝ “识别失败”) 返回 (“识别失败”) .如果真结束 a ＝ a ＋ 识别图片_ (“13|00001111100000011111111100011100000111001100000001101110000000110111000000011011100000001110110000001111011110001101100111111100110000001000110000000000011000000000001100110000001110011100001110000111111110000000111100000”, 95) .如果真 (寻找文本 (a, “识别失败”, , 假) ≠ -1) 返回 (“识别失败”) .如果真结束 a ＝ a ＋ 识别图片_ (“12|111111111100111111111100010000000000010000000000110000000000110011111000011111111100111000001110010000000110000000000111000000000111000000000011000000000110110000000110111000001110011111111000000111100000”, 95) .如果真 (寻找文本 (a, “识别失败”, , 假) ≠ -1) 返回 (“识别失败”) .如果真结束 返回 (a)