.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 _端口1_数据到达
.参数 数据字节值, 整数型
调试输出 (数据字节值)
函数_装载 (数据字节值)
' 调试输出 (“数据:” + 到文本 (数据字节值) + “定位:” + 到文本 (变量_定位))
.子程序 __启动窗口_创建完毕
变量_数据 = 到字节集 (“AAAAABBBBBCCCCCDDDDDEEEEEFFFFFGGGGG”)
变量_定位 = 0
变量_开始位 [1] = 0
变量_开始位 [2] = 0
变量_开始位 [3] = 0
变量_开始位 [4] = 0
变量_开始位 [5] = 0
变量_长度位 = 0
变量_校验高 = 0
.子程序 函数_装载, 整数型, , 审查成功 0 失败 12345 开始 6 长度 7。。数据
.参数 参数_1, 整数型
.如果 (参数_1 = 66)
变量_定位 = 0
.否则
.如果结束
变量_定位 = 变量_定位 + 1
' 判断开始,并装载数据
' 并不对开始位进行检查
.判断开始 (变量_定位 = 1)
变量_开始位 [1] = 参数_1
.判断 (变量_定位 = 2)
变量_开始位 [2] = 参数_1
.判断 (变量_定位 = 3)
变量_开始位 [3] = 参数_1
.判断 (变量_定位 = 4)
变量_开始位 [4] = 参数_1
.判断 (变量_定位 = 5)
变量_开始位 [5] = 参数_1
.默认
.判断结束
' BEGIN
.判断开始 (变量_定位 = 6)
变量_长度位 = 参数_1
.默认
.判断结束
' 长度
.判断开始 (变量_定位 = 5 + 1 + 变量_长度位 + 1)
变量_校验高 = 参数_1
.默认
.判断结束
.判断开始 (变量_定位 = 5 + 1 + 变量_长度位 + 1 + 1)
变量_校验低 = 参数_1
.默认
.判断结束
.判断开始 (字符 (变量_开始位 [1]) + 字符 (变量_开始位 [2]) + 字符 (变量_开始位 [3]) + 字符 (变量_开始位 [4]) + 字符 (变量_开始位 [5]) = “BEGIN”)
.判断开始 (变量_定位 > 5 + 1 且 变量_定位 < 5 + 1 + 变量_长度位 + 1)
变量_数据 [变量_定位] = 到字节 (参数_1)
' 调试输出 (“装载数据:” + 到文本 (到字节 (参数_1)) + “ ” + 到文本 (变量_定位))
.默认
.判断结束
.默认
.判断结束
返回 (变量_定位)
.子程序 _按钮1_被单击
.局部变量 i, 整数型
编辑框BEGIN.内容 = 字符 (变量_开始位 [1]) + 字符 (变量_开始位 [2]) + 字符 (变量_开始位 [3]) + 字符 (变量_开始位 [4]) + 字符 (变量_开始位 [5])
编辑框长度.内容 = 到文本 (变量_长度位)
编辑框校验.内容 = “”
编辑框校验.内容 = 到文本 (变量_校验高)
编辑框校验.内容 = 编辑框校验.内容 + “|”
编辑框校验.内容 = 编辑框校验.内容 + 到文本 (变量_校验低)
编辑框内容.内容 = “”
.计次循环首 (变量_长度位, i)
编辑框内容.内容 = 编辑框内容.内容 + “|”
编辑框内容.内容 = 编辑框内容.内容 + 到文本 (变量_数据 [i + 6])
.计次循环尾 ()
编辑框汉字显示.内容 = 到文本 (取字节集中间 (变量_数据, 7, 变量_长度位))
|