文本_文本比对（）快速定位不同参数

qcby

分享一个文本对比代码。快速定位不同位置，方便查看修改(特别是长篇幅json里找不同)

  

子程序名	返回值类型	公开	备 注
文本_文本对比
参数名	类 型	参考	可空	数组	备 注
超级编辑框1	超级编辑框
超级编辑框2	超级编辑框

变量名	类 型	静态	数组	备 注
字符数组1	文本型		0
字符数组2	文本型		0
长度1	整数型
长度2	整数型
格式_红	字符格式
格式_黑	字符格式
p1	整数型
p2	整数型
步长1	整数型
步长2	整数型
最佳步长1	整数型
最佳步长2	整数型
最大匹配数	整数型
当前匹配数	整数型
扫描范围	整数型
验证	整数型
实际步长1	双精度小数型
实际步长2	双精度小数型

' 1. 初始化字符格式（放大+加粗）
格式_红.文本颜色 ＝ #红色
格式_红.效果 ＝ 1
格式_红.字体大小 ＝ 12
格式_黑.文本颜色 ＝ #黑色
格式_黑.效果 ＝ 0
格式_黑.字体大小 ＝ 9
' 2. 全选恢复默认状态
超级编辑框1.起始选择位置 ＝ 0
超级编辑框1.被选择字符数 ＝ 取文本长度 (超级编辑框1.内容)
超级编辑框1.置选择区字符格式 (格式_黑)
超级编辑框2.起始选择位置 ＝ 0
超级编辑框2.被选择字符数 ＝ 取文本长度 (超级编辑框2.内容)
超级编辑框2.置选择区字符格式 (格式_黑)
' 3. 将文本打碎为精准的字符数组
文本_到字符数组 (超级编辑框1.内容, 字符数组1)
文本_到字符数组 (超级编辑框2.内容, 字符数组2)
长度1 ＝ 取数组成员数 (字符数组1)
长度2 ＝ 取数组成员数 (字符数组2)
p1 ＝ 1
p2 ＝ 1
扫描范围 ＝ 80  ' 扩大前瞻扫描深度，足以应付任何复杂的交错干扰
' 4. 二维矩阵最优路径交叉比对
判断循环首 (p1 ≤ 长度1 且 p2 ≤ 长度2)
' 如果当前字符完全相同，则安全跳过
如果 (字符数组1 [p1] ＝ 字符数组2 [p2])
p1 ＝ p1 ＋ 1
p2 ＝ p2 ＋ 1
' 核心：双向交叉矩阵探测，寻找最完美的对齐锚点
最大匹配数 ＝ 0
最佳步长1 ＝ -1
最佳步长2 ＝ -1
计次循环首 (扫描范围, 步长1)
' 减 1 是为了包含 0（即其中一边不动的情况）
' 局部变量 实际步长1, 整数型
实际步长1 ＝ 步长1 － 1
如果真 (p1 ＋ 实际步长1 ＞ 长度1)
跳出循环 ()

计次循环首 (扫描范围, 步长2)
' 局部变量 实际步长2, 整数型
实际步长2 ＝ 步长2 － 1
如果真 (p2 ＋ 实际步长2 ＞ 长度2)
跳出循环 ()

' 如果两边都不动，没有意义，跳过
如果真 (实际步长1 ＝ 0 且 实际步长2 ＝ 0)
到循环尾 ()

' 探测在此处对齐后，后续连续相同的字符数量
如果真 (字符数组1 [p1 ＋ 实际步长1] ＝ 字符数组2 [p2 ＋ 实际步长2])
当前匹配数 ＝ 0
' 向后验证 5 个字符，确保不是误判撞车
计次循环首 (5, 验证)
如果真 (p1 ＋ 实际步长1 ＋ 验证 － 1 ≤ 长度1 且 p2 ＋ 实际步长2 ＋ 验证 － 1 ≤ 长度2)
如果真 (字符数组1 [p1 ＋ 实际步长1 ＋ 验证 － 1] ＝ 字符数组2 [p2 ＋ 实际步长2 ＋ 验证 － 1])
当前匹配数 ＝ 当前匹配数 ＋ 1


计次循环尾 ()
' 寻找后续重合度最高、且增删跨度最小的黄金对齐点
如果真 (当前匹配数 ＞ 最大匹配数)
最大匹配数 ＝ 当前匹配数
最佳步长1 ＝ 实际步长1
最佳步长2 ＝ 实际步长2


计次循环尾 ()
计次循环尾 ()
' 5. 根据探测出的最佳黄金路径进行精准高亮
如果 (最佳步长1 ≠ -1 且 最佳步长2 ≠ -1)
' 左边有差异文本，标红
如果真 (最佳步长1 ＞ 0)
超级编辑框1.起始选择位置 ＝ p1 － 1
超级编辑框1.被选择字符数 ＝ 最佳步长1
超级编辑框1.置选择区字符格式 (格式_红)
p1 ＝ p1 ＋ 最佳步长1

' 右边有差异文本，标红
如果真 (最佳步长2 ＞ 0)
超级编辑框2.起始选择位置 ＝ p2 － 1
超级编辑框2.被选择字符数 ＝ 最佳步长2
超级编辑框2.置选择区字符格式 (格式_红)
p2 ＝ p2 ＋ 最佳步长2

' 如果后面全军覆没彻底无法对齐，说明两边当前字符被永久修改，各红一个字并推进一步
超级编辑框1.起始选择位置 ＝ p1 － 1
超级编辑框1.被选择字符数 ＝ 1
超级编辑框1.置选择区字符格式 (格式_红)
超级编辑框2.起始选择位置 ＝ p2 － 1
超级编辑框2.被选择字符数 ＝ 1
超级编辑框2.置选择区字符格式 (格式_红)
p1 ＝ p1 ＋ 1
p2 ＝ p2 ＋ 1


判断循环尾 ()
' 6. 处理末尾多出来的尾巴
如果真 (p1 ≤ 长度1)
超级编辑框1.起始选择位置 ＝ p1 － 1
超级编辑框1.被选择字符数 ＝ 长度1 － p1 ＋ 1
超级编辑框1.置选择区字符格式 (格式_红)

如果真 (p2 ≤ 长度2)
超级编辑框2.起始选择位置 ＝ p2 － 1
超级编辑框2.被选择字符数 ＝ 长度2 － p2 ＋ 1
超级编辑框2.置选择区字符格式 (格式_红)

' 7. 复位光标
超级编辑框1.起始选择位置 ＝ 0
超级编辑框1.被选择字符数 ＝ 0
超级编辑框2.起始选择位置 ＝ 0
超级编辑框2.被选择字符数 ＝ 0

子程序名	返回值类型	公开	备 注
文本_到字符数组
参数名	类 型	参考	可空	数组	备 注
源文本	文本型
结果数组	文本型

变量名	类 型	静态	数组	备 注
字节集数据	字节集
i	整数型
文本长度	整数型
单个字符	文本型

清除数组 (结果数组)
字节集数据 ＝ 到字节集 (源文本)
文本长度 ＝ 取字节集长度 (字节集数据)
i ＝ 1
判断循环首 (i ≤ 文本长度)
如果 (字节集数据 [i] ＞ 128)
如果真 (i ＋ 1 ≤ 文本长度)
单个字符 ＝ 字符 (字节集数据 [i]) ＋ 字符 (字节集数据 [i ＋ 1])
加入成员 (结果数组, 单个字符)
i ＝ i ＋ 2

单个字符 ＝ 字符 (字节集数据 [i])
加入成员 (结果数组, 单个字符)  ' <--- 修正了上版本的笔误
i ＝ i ＋ 1

判断循环尾 ()

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> .子程序 文本_文本对比, , 公开<br /> .参数 超级编辑框1, 超级编辑框<br /> .参数 超级编辑框2, 超级编辑框<br /> .局部变量 字符数组1, 文本型, , "0"<br /> .局部变量 字符数组2, 文本型, , "0"<br /> .局部变量 长度1, 整数型<br /> .局部变量 长度2, 整数型<br /> .局部变量 格式_红, 字符格式<br /> .局部变量 格式_黑, 字符格式<br /> .局部变量 p1, 整数型<br /> .局部变量 p2, 整数型<br /> .局部变量 步长1, 整数型<br /> .局部变量 步长2, 整数型<br /> .局部变量 最佳步长1, 整数型<br /> .局部变量 最佳步长2, 整数型<br /> .局部变量 最大匹配数, 整数型<br /> .局部变量 当前匹配数, 整数型<br /> .局部变量 扫描范围, 整数型<br /> .局部变量 验证, 整数型<br /> .局部变量 实际步长1, 双精度小数型<br /> .局部变量 实际步长2, 双精度小数型<br /> <br /> ' 1. 初始化字符格式（放大+加粗）<br /> 格式_红.文本颜色 ＝ #红色<br /> <br /> 格式_红.效果 ＝ 1<br /> <br /> 格式_红.字体大小 ＝ 12<br /> <br /> 格式_黑.文本颜色 ＝ #黑色<br /> <br /> 格式_黑.效果 ＝ 0<br /> <br /> 格式_黑.字体大小 ＝ 9<br /> <br /> ' 2. 全选恢复默认状态<br /> 超级编辑框1.起始选择位置 ＝ 0<br /> <br /> 超级编辑框1.被选择字符数 ＝ 取文本长度 (超级编辑框1.内容)<br /> 超级编辑框1.置选择区字符格式 (格式_黑)<br /> <br /> 超级编辑框2.起始选择位置 ＝ 0<br /> 超级编辑框2.被选择字符数 ＝ 取文本长度 (超级编辑框2.内容)<br /> 超级编辑框2.置选择区字符格式 (格式_黑)<br /> <br /> ' 3. 将文本打碎为精准的字符数组<br /> 文本_到字符数组 (超级编辑框1.内容, 字符数组1)<br /> 文本_到字符数组 (超级编辑框2.内容, 字符数组2)<br /> 长度1 ＝ 取数组成员数 (字符数组1)<br /> 长度2 ＝ 取数组成员数 (字符数组2)<br /> <br /> p1 ＝ 1<br /> p2 ＝ 1<br /> 扫描范围 ＝ 80  ' 扩大前瞻扫描深度，足以应付任何复杂的交错干扰<br /> <br /> ' 4. 二维矩阵最优路径交叉比对<br /> .判断循环首 (p1 ≤ 长度1 且 p2 ≤ 长度2)<br /> <br />     ' 如果当前字符完全相同，则安全跳过<br />     .如果 (字符数组1 [p1] ＝ 字符数组2 [p2])<br />         p1 ＝ p1 ＋ 1<br />         p2 ＝ p2 ＋ 1<br />     .否则<br />         ' 核心：双向交叉矩阵探测，寻找最完美的对齐锚点<br />         最大匹配数 ＝ 0<br />         最佳步长1 ＝ -1<br />         最佳步长2 ＝ -1<br /> <br />         .计次循环首 (扫描范围, 步长1)<br />             ' 减 1 是为了包含 0（即其中一边不动的情况）<br />             ' 局部变量 实际步长1, 整数型<br />             实际步长1 ＝ 步长1 － 1<br /> <br />             .如果真 (p1 ＋ 实际步长1 ＞ 长度1)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />             .计次循环首 (扫描范围, 步长2)<br />                 ' 局部变量 实际步长2, 整数型<br />                 实际步长2 ＝ 步长2 － 1<br /> <br />                 .如果真 (p2 ＋ 实际步长2 ＞ 长度2)<br />                     跳出循环 ()<br />                 .如果真结束<br /> <br />                 ' 如果两边都不动，没有意义，跳过<br />                 .如果真 (实际步长1 ＝ 0 且 实际步长2 ＝ 0)<br />                     到循环尾 ()<br />                 .如果真结束<br /> <br />                 ' 探测在此处对齐后，后续连续相同的字符数量<br />                 .如果真 (字符数组1 [p1 ＋ 实际步长1] ＝ 字符数组2 [p2 ＋ 实际步长2])<br />                     当前匹配数 ＝ 0<br />                     ' 向后验证 5 个字符，确保不是误判撞车<br />                     .计次循环首 (5, 验证)<br />                         .如果真 (p1 ＋ 实际步长1 ＋ 验证 － 1 ≤ 长度1 且 p2 ＋ 实际步长2 ＋ 验证 － 1 ≤ 长度2)<br />                             .如果真 (字符数组1 [p1 ＋ 实际步长1 ＋ 验证 － 1] ＝ 字符数组2 [p2 ＋ 实际步长2 ＋ 验证 － 1])<br />                                 当前匹配数 ＝ 当前匹配数 ＋ 1<br />                             .如果真结束<br /> <br />                         .如果真结束<br /> <br />                     .计次循环尾 ()<br /> <br />                     ' 寻找后续重合度最高、且增删跨度最小的黄金对齐点<br />                     .如果真 (当前匹配数 ＞ 最大匹配数)<br />                         最大匹配数 ＝ 当前匹配数<br />                         最佳步长1 ＝ 实际步长1<br />                         最佳步长2 ＝ 实际步长2<br />                     .如果真结束<br /> <br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />         .计次循环尾 ()<br /> <br />         ' 5. 根据探测出的最佳黄金路径进行精准高亮<br />         .如果 (最佳步长1 ≠ -1 且 最佳步长2 ≠ -1)<br /> <br />             ' 左边有差异文本，标红<br />             .如果真 (最佳步长1 ＞ 0)<br />                 超级编辑框1.起始选择位置 ＝ p1 － 1<br /> <br />                 超级编辑框1.被选择字符数 ＝ 最佳步长1<br /> <br />                 超级编辑框1.置选择区字符格式 (格式_红)<br /> <br />                 p1 ＝ p1 ＋ 最佳步长1<br />             .如果真结束<br /> <br />             ' 右边有差异文本，标红<br />             .如果真 (最佳步长2 ＞ 0)<br />                 超级编辑框2.起始选择位置 ＝ p2 － 1<br /> <br />                 超级编辑框2.被选择字符数 ＝ 最佳步长2<br /> <br />                 超级编辑框2.置选择区字符格式 (格式_红)<br /> <br />                 p2 ＝ p2 ＋ 最佳步长2<br />             .如果真结束<br /> <br />         .否则<br />             ' 如果后面全军覆没彻底无法对齐，说明两边当前字符被永久修改，各红一个字并推进一步<br />             超级编辑框1.起始选择位置 ＝ p1 － 1<br /> <br />             超级编辑框1.被选择字符数 ＝ 1<br /> <br />             超级编辑框1.置选择区字符格式 (格式_红)<br /> <br />             超级编辑框2.起始选择位置 ＝ p2 － 1<br /> <br />             超级编辑框2.被选择字符数 ＝ 1<br /> <br />             超级编辑框2.置选择区字符格式 (格式_红)<br /> <br />             p1 ＝ p1 ＋ 1<br />             p2 ＝ p2 ＋ 1<br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> <br /> ' 6. 处理末尾多出来的尾巴<br /> .如果真 (p1 ≤ 长度1)<br />     超级编辑框1.起始选择位置 ＝ p1 － 1<br /> <br />     超级编辑框1.被选择字符数 ＝ 长度1 － p1 ＋ 1<br /> <br />     超级编辑框1.置选择区字符格式 (格式_红)<br /> <br /> .如果真结束<br /> <br /> .如果真 (p2 ≤ 长度2)<br />     超级编辑框2.起始选择位置 ＝ p2 － 1<br /> <br />     超级编辑框2.被选择字符数 ＝ 长度2 － p2 ＋ 1<br /> <br />     超级编辑框2.置选择区字符格式 (格式_红)<br /> <br /> .如果真结束<br /> <br /> ' 7. 复位光标<br /> 超级编辑框1.起始选择位置 ＝ 0<br /> <br /> 超级编辑框1.被选择字符数 ＝ 0<br /> <br /> 超级编辑框2.起始选择位置 ＝ 0<br /> <br /> 超级编辑框2.被选择字符数 ＝ 0<br /> <br /> <br /> .子程序 文本_到字符数组<br /> .参数 源文本, 文本型<br /> .参数 结果数组, 文本型, 参考 数组<br /> .局部变量 字节集数据, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 文本长度, 整数型<br /> .局部变量 单个字符, 文本型<br /> <br /> 清除数组 (结果数组)<br /> 字节集数据 ＝ 到字节集 (源文本)<br /> 文本长度 ＝ 取字节集长度 (字节集数据)<br /> i ＝ 1<br /> <br /> .判断循环首 (i ≤ 文本长度)<br />     .如果 (字节集数据 <i> ＞ 128)<br />         .如果真 (i ＋ 1 ≤ 文本长度)<br />             单个字符 ＝ 字符 (字节集数据 <i>) ＋ 字符 (字节集数据 [i ＋ 1])<br />             加入成员 (结果数组, 单个字符)<br />             i ＝ i ＋ 2<br />         .如果真结束<br /> <br />     .否则<br />         单个字符 ＝ 字符 (字节集数据 <i>)<br />         加入成员 (结果数组, 单个字符)  ' <--- 修正了上版本的笔误<br />         i ＝ i ＋ 1<br />     .如果结束<br /> <br /> .判断循环尾 ()

1347379245

感谢分享