可以对比两个字节集的差异，且提取差异内容
.版本 2 .支持库 commobj .子程序 字节集比较, 整数型 .参数 字节集1, 字节集 .参数 字节集2, 字节集 .参数 比较结果, 文本型, 参考 .局部变量 结果, 快速文本对象 .局部变量 长度, 整数型 .局部变量 n, 整数型 .局部变量 count, 整数型 长度 ＝ 选择 (取字节集长度 (字节集1) ＜ 取字节集长度 (字节集2), 取字节集长度 (字节集1), 取字节集长度 (字节集2)) 结果.添加 (“偏移” ＋ 字符 (#Tab键) ＋ “字节集1” ＋ 字符 (#Tab键) ＋ “字节集2” ＋ #换行符) .计次循环首 (长度, n) .如果真 (字节集1 [n] ≠ 字节集2 [n]) count ＝ count ＋ 1 结果.添加 (到文本 (n) ＋ 字符 (#Tab键) ＋ 到文本 (字节集1 [n]) ＋ 字符 (#Tab键) ＋ 到文本 (字节集2 [n]) ＋ #换行符) .如果真结束 .计次循环尾 () 比较结果 ＝ 结果.取文本 (, ) 返回 (count)
隐藏内容需要回复可以看见