精易论坛

标题: ✅超级编辑框_查找差异/diff/文本对比 [打印本页]

作者: 莫小乐    时间: 昨天 18:43
标题: ✅超级编辑框_查找差异/diff/文本对比
本帖最后由 莫小乐 于 2026-7-15 18:54 编辑
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
超级编辑框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扩展界面支持库二





作者: chaio36    时间: 昨天 18:46
支持一个
作者: AMEN.@    时间: 昨天 18:48
加个diff 标题,估计懂的人更多
作者: 不苦小和尚    时间: 昨天 19:03
试试看看,以前有个人写的啊准
作者: AdGame    时间: 昨天 19:08
有个人写的啊准
作者: 网络注册络员    时间: 昨天 19:15

作者: q1015293832    时间: 昨天 19:56
RE: ✅超级编辑框_查找差异/diff/文本对比 [修改]
作者: zifeiyu    时间: 昨天 20:40
666666666666666666666
作者: wmv520    时间: 昨天 21:30
666666666666666666666
作者: 夏亿    时间: 昨天 21:53
感谢分享
作者: 283688410    时间: 昨天 22:16
谢谢分享
作者: 陈治勤    时间: 昨天 23:35
66666666666666666666
作者: libaideshi    时间: 6 小时前
6666666666666666666
作者: 瞎JB搞    时间: 5 小时前
感谢分享!
作者: 石榴熟了    时间: 5 小时前
不错拿走看看


作者: w3516330    时间: 3 小时前
感谢分享 支持一下
作者: yxl2008    时间: 2 小时前
感谢分享 支持一下
作者: brucelee0720    时间: 18 分钟前
谢谢分享




欢迎光临 精易论坛 (https://bbs.ijingyi.com/) Powered by Discuz! X3.4