✅超级编辑框_查找差异/diff/文本对比

莫小乐

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

超级编辑框1.内容 ＝ “X=78.92&k=0.047#[3,19,-5.6,√81]” ＋ #换行符 ＋ “|v≈店淘旧书，货架摆” ＋ #换行符 ＋ “着散文、老杂志与” ＋ #换行符 ＋ “绝版小说，标价多在十几元02。” ＋ #换行符 ＋ “26.3m/s,T≥90A9$8g_!x86572”
超级编辑框2.内容 ＝ “X=78.29&k=0.049#[3,19,-5.8,√64]” ＋ #换行符 ＋ “|v≈店淘旧书，货架摆” ＋ #换行符 ＋ “着散无、老杂志与” ＋ #换行符 ＋ “绝版大说，标价多在无几元01。” ＋ #换行符 ＋ “23.6m/s,T≥88A9$7g_!x86s72”
文本_超级编辑框_查找差异 (超级编辑框1, 超级编辑框2)

子程序名	返回值类型	公开	备 注
文本_超级编辑框_查找差异			博乐助手
参数名	类 型	参考	可空	数组	备 注
超级编辑框A	超级编辑框				所对比的超级编辑框 里面的文本1
超级编辑框V	超级编辑框				所对比的超级编辑框 里面的文本2

变量名	类 型	静态	数组	备 注
x	整数型

' 第一次对比：以A为基准，标记A中与V不同的字符
计次循环首 (超级编辑框A.取行数 (), x)
文本_超级编辑框_处理差异行 (超级编辑框A, 超级编辑框A.取行文本 (x － 1), 超级编辑框V.取行文本 (x － 1), x － 1)
计次循环尾 ()
' 第二次对比：以V为基准，标记V中与A不同的字符
计次循环首 (超级编辑框V.取行数 (), x)
文本_超级编辑框_处理差异行 (超级编辑框V, 超级编辑框V.取行文本 (x － 1), 超级编辑框A.取行文本 (x － 1), x － 1)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
文本_超级编辑框_处理差异行			博乐助手
参数名	类 型	参考	可空	数组	备 注
超级编辑框	超级编辑框
内容	文本型
对比	文本型
第几行	整数型

变量名	类 型	静态	数组	备 注
内容数组	文本型		0
对比数组	文本型		0
最大长度	整数型
i	整数型
j	整数型
当前位置	整数型
行起始	整数型
红色字符格式	字符格式
黑色字符格式	字符格式

' 初始化字符格式
黑色字符格式.字体大小 ＝ 12
黑色字符格式.文本颜色 ＝ #黑色
黑色字符格式.效果 ＝ 0
红色字符格式.字体大小 ＝ 12
红色字符格式.文本颜色 ＝ #红色
红色字符格式.效果 ＝ 0
' 计算当前行的起始位置（累计前面所有行的字符长度）
行起始 ＝ 0
变量循环首 (0, 第几行 － 1, 1, j)
行起始 ＝ 行起始 ＋ 文本_取字符长度 (超级编辑框.取行文本 (j))
变量循环尾 ()
' 如果两行内容完全相同，整行设为黑色并返回
如果真 (内容 ＝ 对比)
超级编辑框.起始选择位置 ＝ 行起始
超级编辑框.被选择字符数 ＝ 文本_取字符长度 (内容)
超级编辑框.置选择区字符格式 (黑色字符格式)
返回 ()

' 将文本分割成单个字符数组
文本_分割逐字 (内容, 内容数组)
文本_分割逐字 (对比, 对比数组)
' 取两个数组中较长的长度作为循环次数
最大长度 ＝ 取数组成员数 (内容数组)
如果真 (取数组成员数 (对比数组) ＞ 最大长度)
最大长度 ＝ 取数组成员数 (对比数组)

' 先将整行统一设为黑色
超级编辑框.起始选择位置 ＝ 行起始
超级编辑框.被选择字符数 ＝ 文本_取字符长度 (内容)
超级编辑框.置选择区字符格式 (黑色字符格式)
' 逐字符对比，不同的字符标记为红色
当前位置 ＝ 行起始
计次循环首 (最大长度, i)
' 判断当前字符是否超出两个数组的范围
如果 (i ≤ 取数组成员数 (内容数组) 且 i ≤ 取数组成员数 (对比数组))
' 两个数组都有该位置字符，比较是否相同
如果真 (内容数组 [i] ≠ 对比数组 [i])
超级编辑框.起始选择位置 ＝ 当前位置
超级编辑框.被选择字符数 ＝ 1
超级编辑框.置选择区字符格式 (红色字符格式)

' 其中一个数组已结束，内容数组还有字符则标记为红色
如果真 (i ≤ 取数组成员数 (内容数组))
超级编辑框.起始选择位置 ＝ 当前位置
超级编辑框.被选择字符数 ＝ 1
超级编辑框.置选择区字符格式 (红色字符格式)

当前位置 ＝ 当前位置 ＋ 1
计次循环尾 ()

子程序名	返回值类型	公开	备 注
文本_取字符长度	整数型		博乐助手
参数名	类 型	参考	可空	数组	备 注
文本	文本型

置入代码 ({ 139, 125, 8, 139, 63, 49, 192, 138, 31, 128, 251, 0, 116, 10, 128, 251, 127, 118, 1, 71, 71, 64, 235, 239, 201, 194, 4, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
文本_分割逐字	整数型		博乐助手
参数名	类 型	参考	可空	数组	备 注
参_内容	文本型
参_文本数组	文本型

变量名	类 型	静态	数组	备 注
返回值	文本型

' 例程收录自：[url=https://bbs.125.la/forum.php?mod=viewthread&tid=14228410]https://bbs.125.la/forum.php?mod=viewthread&tid=14228410[/url]
如果真 (参_内容 ＝ “”)
返回 (0)
返回值 ＝ 取空白文本 (取文本长度 (参_内容) × 2)
置入代码 ({ 139, 69, 8, 139, 48, 139, 125, 252, 172, 168, 128, 117, 26, 60, 32, 116, 247, 60, 9, 116, 243, 60, 13, 116, 239, 60, 10, 116, 235, 132, 192, 116, 28, 170, 176, 9, 170, 235, 225, 60, 161, 117, 10, 134, 224, 172, 60, 161, 116, 214, 134, 224, 78, 170, 172, 170, 176, 9, 170, 235, 203, 49, 192, 170 })
参_文本数组 ＝ 分割文本 (返回值, 到文本 ({ 9 }), )
返回 (取数组成员数 (参_文本数组))

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

.版本 2<br /> .支持库 iext2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 超级编辑框1.内容 ＝ “X=78.92&k=0.047#[3,19,-5.6,√81]” ＋ #换行符 ＋ “|v≈店淘旧书，货架摆” ＋ #换行符 ＋ “着散文、老杂志与” ＋ #换行符 ＋ “绝版小说，标价多在十几元02。” ＋ #换行符 ＋ “26.3m/s,T≥90A9$8g_!x86572”<br /> 超级编辑框2.内容 ＝ “X=78.29&k=0.049#[3,19,-5.8,√64]” ＋ #换行符 ＋ “|v≈店淘旧书，货架摆” ＋ #换行符 ＋ “着散无、老杂志与” ＋ #换行符 ＋ “绝版大说，标价多在无几元01。” ＋ #换行符 ＋ “23.6m/s,T≥88A9$7g_!x86s72”<br /> <br /> <br /> 文本_超级编辑框_查找差异 (超级编辑框1, 超级编辑框2)<br /> <br /> .子程序 文本_超级编辑框_查找差异, , , 博乐助手<br /> .参数 超级编辑框A, 超级编辑框, , 所对比的超级编辑框 里面的文本1<br /> .参数 超级编辑框V, 超级编辑框, , 所对比的超级编辑框 里面的文本2<br /> .局部变量 x, 整数型<br /> <br /> ' 第一次对比：以A为基准，标记A中与V不同的字符<br /> .计次循环首 (超级编辑框A.取行数 (), x)<br />     文本_超级编辑框_处理差异行 (超级编辑框A, 超级编辑框A.取行文本 (x － 1), 超级编辑框V.取行文本 (x － 1), x － 1)<br /> .计次循环尾 ()<br /> <br /> ' 第二次对比：以V为基准，标记V中与A不同的字符<br /> .计次循环首 (超级编辑框V.取行数 (), x)<br />     文本_超级编辑框_处理差异行 (超级编辑框V, 超级编辑框V.取行文本 (x － 1), 超级编辑框A.取行文本 (x － 1), x － 1)<br /> .计次循环尾 ()<br /> <br /> .子程序 文本_超级编辑框_处理差异行, , , 博乐助手<br /> .参数 超级编辑框, 超级编辑框<br /> .参数 内容, 文本型<br /> .参数 对比, 文本型<br /> .参数 第几行, 整数型<br /> .局部变量 内容数组, 文本型, , "0"<br /> .局部变量 对比数组, 文本型, , "0"<br /> .局部变量 最大长度, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 当前位置, 整数型<br /> .局部变量 行起始, 整数型<br /> .局部变量 红色字符格式, 字符格式<br /> .局部变量 黑色字符格式, 字符格式<br /> <br /> ' 初始化字符格式<br /> 黑色字符格式.字体大小 ＝ 12<br /> 黑色字符格式.文本颜色 ＝ #黑色<br /> 黑色字符格式.效果 ＝ 0<br /> 红色字符格式.字体大小 ＝ 12<br /> 红色字符格式.文本颜色 ＝ #红色<br /> 红色字符格式.效果 ＝ 0<br /> <br /> ' 计算当前行的起始位置（累计前面所有行的字符长度）<br /> 行起始 ＝ 0<br /> .变量循环首 (0, 第几行 － 1, 1, j)<br />     行起始 ＝ 行起始 ＋ 文本_取字符长度 (超级编辑框.取行文本 (j))<br /> .变量循环尾 ()<br /> <br /> ' 如果两行内容完全相同，整行设为黑色并返回<br /> .如果真 (内容 ＝ 对比)<br />     超级编辑框.起始选择位置 ＝ 行起始<br />     超级编辑框.被选择字符数 ＝ 文本_取字符长度 (内容)<br />     超级编辑框.置选择区字符格式 (黑色字符格式)<br />     返回 ()<br /> .如果真结束<br /> <br /> ' 将文本分割成单个字符数组<br /> 文本_分割逐字 (内容, 内容数组)<br /> 文本_分割逐字 (对比, 对比数组)<br /> <br /> ' 取两个数组中较长的长度作为循环次数<br /> 最大长度 ＝ 取数组成员数 (内容数组)<br /> .如果真 (取数组成员数 (对比数组) ＞ 最大长度)<br />     最大长度 ＝ 取数组成员数 (对比数组)<br /> .如果真结束<br /> <br /> ' 先将整行统一设为黑色<br /> 超级编辑框.起始选择位置 ＝ 行起始<br /> 超级编辑框.被选择字符数 ＝ 文本_取字符长度 (内容)<br /> 超级编辑框.置选择区字符格式 (黑色字符格式)<br /> <br /> ' 逐字符对比，不同的字符标记为红色<br /> 当前位置 ＝ 行起始<br /> .计次循环首 (最大长度, i)<br />     ' 判断当前字符是否超出两个数组的范围<br />     .如果 (i ≤ 取数组成员数 (内容数组) 且 i ≤ 取数组成员数 (对比数组))<br />         ' 两个数组都有该位置字符，比较是否相同<br />         .如果真 (内容数组 <i> ≠ 对比数组 <i>)<br />             超级编辑框.起始选择位置 ＝ 当前位置<br />             超级编辑框.被选择字符数 ＝ 1<br />             超级编辑框.置选择区字符格式 (红色字符格式)<br />         .如果真结束<br /> <br />     .否则<br />         ' 其中一个数组已结束，内容数组还有字符则标记为红色<br />         .如果真 (i ≤ 取数组成员数 (内容数组))<br />             超级编辑框.起始选择位置 ＝ 当前位置<br />             超级编辑框.被选择字符数 ＝ 1<br />             超级编辑框.置选择区字符格式 (红色字符格式)<br />         .如果真结束<br /> <br />     .如果结束<br />     当前位置 ＝ 当前位置 ＋ 1<br /> .计次循环尾 ()<br /> <br /> .子程序 文本_取字符长度, 整数型, , 博乐助手<br /> .参数 文本, 文本型<br /> <br /> 置入代码 ({ 139, 125, 8, 139, 63, 49, 192, 138, 31, 128, 251, 0, 116, 10, 128, 251, 127, 118, 1, 71, 71, 64, 235, 239, 201, 194, 4, 0 })<br /> 返回 (0)<br /> <br /> .子程序 文本_分割逐字, 整数型, , 博乐助手<br /> .参数 参_内容, 文本型<br /> .参数 参_文本数组, 文本型, 数组<br /> .局部变量 返回值, 文本型<br /> <br /> ' 例程收录自：<a href="https://bbs.125.la/forum.php?mod=viewthread&tid=14228410" rel="nofollow" target="_blank">https://bbs.125.la/forum.php?mod=viewthread&tid=14228410</a><br /> .如果真 (参_内容 ＝ “”)<br />     返回 (0)<br /> .如果真结束<br /> 返回值 ＝ 取空白文本 (取文本长度 (参_内容) × 2)<br /> 置入代码 ({ 139, 69, 8, 139, 48, 139, 125, 252, 172, 168, 128, 117, 26, 60, 32, 116, 247, 60, 9, 116, 243, 60, 13, 116, 239, 60, 10, 116, 235, 132, 192, 116, 28, 170, 176, 9, 170, 235, 225, 60, 161, 117, 10, 134, 224, 172, 60, 161, 116, 214, 134, 224, 78, 170, 172, 170, 176, 9, 170, 235, 203, 49, 192, 170 })<br /> 参_文本数组 ＝ 分割文本 (返回值, 到文本 ({ 9 }), )<br /> 返回 (取数组成员数 (参_文本数组))

游客，如果您要查看本帖隐藏内容请回复

yxl2008

感谢分享 支持一下

w3516330

感谢分享 支持一下

石榴熟了

不错拿走看看

瞎JB搞

感谢分享！

libaideshi

6666666666666666666

陈治勤

66666666666666666666

283688410

谢谢分享

夏亿

感谢分享

wmv520

666666666666666666666