精易论坛

标题: 文本找不同-帮我完善 [打印本页]

作者: 敷敷衍衍小生活    时间: 2025-2-20 21:15
标题: 文本找不同-帮我完善
软件的排版弄好了

1:左边为原始文本

2:中间为新的文本(用来和左边文本对比的)

3:右边的文本和左边的文本如果多了一个或者少了一个,分别显示到右边的2个编辑框中



[attach]1360692[/attach]

作者: aipca    时间: 2025-2-20 21:15
界面你自己重新套一下吧。
使用了精易模块

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

子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
文本1文本型0
文本2文本型0
i整数型 
s整数型 
a整数型 
b整数型 
t整数型 
n整数型 
m整数型 
清除数组 (文本1)
清除数组 (文本2)
编辑框1.内容 = 文本_删除空行_汇编 (编辑框1.内容)
编辑框2.内容 = 文本_删除空行_汇编 (编辑框2.内容)
文本1 = 分割文本 (编辑框1.内容, #换行符, )
文本2 = 分割文本 (编辑框2.内容, #换行符, )
变量循环首 (取数组成员数 (文本1), 1, -1, i)
变量循环首 (取数组成员数 (文本2), 1, -1, s)
判断 (文本2 [s] = 文本1 [i])
删除成员 (文本2, s, )



变量循环尾 ()
变量循环尾 ()
计次循环首 (取数组成员数 (文本2), a)
编辑框3.加入文本 (文本2 [a]#换行符 )
计次循环尾 ()
清除数组 (文本1)
清除数组 (文本2)
文本1 = 分割文本 (编辑框1.内容, #换行符, )
文本2 = 分割文本 (编辑框2.内容, #换行符, )
变量循环首 (取数组成员数 (文本2), 1, -1, n)
变量循环首 (取数组成员数 (文本1), 1, -1, t)
判断 (文本1 [t] = 文本2 [n])
删除成员 (文本1, t, )



变量循环尾 ()
变量循环尾 ()
计次循环首 (取数组成员数 (文本1), m)
编辑框4.加入文本 (文本1 [m]#换行符 )
计次循环尾 ()
子程序名返回值类型公开备 注
_按钮2_被单击  
编辑框1.内容 = “”
编辑框2.内容 = “”
编辑框3.内容 = “”
编辑框4.内容 = “”

文本打不同.E

959.63 KB, 下载次数: 6


作者: cunanhai    时间: 2025-2-20 21:26
https://125.confly.eu.org/forum.php?mod ... B%E4%B8%8D%E5%90%8C
作者: 大漠小鸟    时间: 2025-2-20 21:36
你排版源码也上传啊
作者: samll88    时间: 2025-2-20 21:44
  
子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
文本文本型0
节点节点 
n整数型 
a整数型 
文本型0
b文本型 
合并文本型 
合并 = 编辑框1.内容 + #换行符 + 编辑框2.内容
调试输出 (合并)
文本 = 分割文本 (合并, #换行符, )
计次循环首 (取数组成员数 (文本), n)
如果真 (节点.加入属性 (文本 [n], 1))
节点.取数值 (文本 [n], a)
a = a + 1
节点.修改属性 (文本 [n], a)

计次循环尾 ()
节点.取全部属性名 ()
计次循环首 (取数组成员数 (), n)
节点.取数值 ([n], a)
如果真 (a = 1)
编辑框3.内容 = 编辑框3.内容 + 名 [n]#换行符
如果真 (a > 1)
编辑框4.内容 = 编辑框4.内容 + 名 [n]#换行符

计次循环尾 ()


i支持库列表   支持库注释   
EDataStructure数据结构支持库
spec特殊功能支持库




作者: 敷敷衍衍小生活    时间: 2025-2-20 22:02
samll88 发表于 2025-2-20 21:44
[e=0].版本 2
.支持库 EDataStructure
.支持库 spec

多了的没有问题,下面的少了的不准
作者: cunanhai    时间: 2025-2-20 22:13
  
子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
节点节点 
文本1数组文本型0
文本2数组文本型0
n整数型 
m整数型 
文本1数组 = 分割文本 (编辑框1.内容, #换行符, )
文本2数组 = 分割文本 (编辑框2.内容, #换行符, )
计次循环首 (取数组成员数 (文本1数组), n)
节点.加入属性 (文本1数组 [n], “”)
计次循环尾 ()
计次循环首 (取数组成员数 (文本2数组), m)
如果 (节点.加入属性 (文本2数组 [m], “”))
编辑框4.加入文本 (文本2数组 [m]#换行符 )
编辑框3.加入文本 (文本2数组 [m]#换行符 )

计次循环尾 ()


i支持库列表   支持库注释   
EDataStructure数据结构支持库



补充内容 (2025-2-20 22:14):
看错要求了....哈哈哈哈哈




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4