请修改e源文件确保能用就可以 属于文本对比比对类型

临沂互联

两个文本对比  点击按钮得到结果  请修改源文件谢谢

补充内容 (2022-4-26 18:11):
不行  还是不行  请帮修复 谢谢 不能运行  谢谢

Ls60

文本对比.e (7.67 KB, 下载次数: 15)

2022-4-26 18:12 上传

点击文件名下载附件


补充内容 (2022-4-26 18:12):
懒得录屏了，自己将就看看吧

hanson1025

懒得写那么多，第一个写出来了，你应该差不多就知道了吧，都是一个道理

  

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

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
arry01	文本型		0
i	整数型
ary01txt	文本型

文本_分割文本 (编辑框1.context, #换行符, , arry01)
数组_去重复 (arry01, )
编辑框2.context ＝ “”
.counter (GetAryElementCount (arry01), i)
.ife (GetAryElementCount (arry01) ＝ i)
编辑框2.AddText (arry01 [i])
编辑框2.AddText (arry01 [i] ＋ #换行符 )

.CounterLoop ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 arry01, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 ary01txt, 文本型<br /> <br /> 文本_分割文本 (编辑框1.context, #换行符, , arry01)<br /> 数组_去重复 (arry01, )<br /> 编辑框2.context ＝ “”<br /> .counter (GetAryElementCount (arry01), i)<br />     .ife (GetAryElementCount (arry01) ＝ i)<br />         编辑框2.AddText (arry01 <i>)<br />     .否则<br />         编辑框2.AddText (arry01 <i> ＋ #换行符)<br />     .如果结束<br /> <br /> .CounterLoop ()

临沂互联

大哥请修改源码吗   谢谢  我需要完成可用的源码   本人就一个小白  谢谢

临沂互联

是本文一和文本二对比 之后才有结果

Ls60

文本一和文本二，它自己会有重复的文本吗，有的话怎么处理

临沂互联

一开始就只有   文本一 内容  和文本二内容   点开始比对后才有哪些 结果

hanson1025

正好，把前面两个都做出来了，再应该没错了。

  

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

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
arry01	文本型		0
i	整数型
arry02	文本型		0

文本_分割文本 (编辑框1.context, #换行符, , arry01)
数组_去重复 (arry01, )
文本_分割文本 (编辑框5.context, #换行符, , arry02)
AddElement (arry02, arry01)
数组_去重复 (arry02, )
编辑框2.context ＝ “”
编辑框3.context ＝ “”
.counter (GetAryElementCount (arry01), i)
.ife (GetAryElementCount (arry01) ＝ i)
编辑框2.AddText (arry01 [i])
编辑框2.AddText (arry01 [i] ＋ #换行符 )

.CounterLoop ()
.counter (GetAryElementCount (arry02), i)
.ife (GetAryElementCount (arry02) ＝ i)
编辑框3.AddText (arry02 [i])
编辑框3.AddText (arry02 [i] ＋ #换行符 )

.CounterLoop ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 arry01, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 arry02, 文本型, , "0"<br /> <br /> 文本_分割文本 (编辑框1.context, #换行符, , arry01)<br /> 数组_去重复 (arry01, )<br /> 文本_分割文本 (编辑框5.context, #换行符, , arry02)<br /> AddElement (arry02, arry01)<br /> 数组_去重复 (arry02, )<br /> 编辑框2.context ＝ “”<br /> 编辑框3.context ＝ “”<br /> .counter (GetAryElementCount (arry01), i)<br />     .ife (GetAryElementCount (arry01) ＝ i)<br />         编辑框2.AddText (arry01 <i>)<br />     .否则<br />         编辑框2.AddText (arry01 <i> ＋ #换行符)<br />     .如果结束<br /> <br /> .CounterLoop ()<br /> <br /> .counter (GetAryElementCount (arry02), i)<br />     .ife (GetAryElementCount (arry02) ＝ i)<br />         编辑框3.AddText (arry02 <i>)<br />     .否则<br />         编辑框3.AddText (arry02 <i> ＋ #换行符)<br />     .如果结束<br /> <br /> .CounterLoop ()

临沂互联

也就说中间的那三个编辑框内容是空白的  点击开始后才出现的

hanson1025

所有功能，你复制进去就可以用了

  

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

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
arry01	文本型		0
i1	整数型
i2	整数型
i3	整数型
arry02	文本型		0
arry03	文本型		0

文本_分割文本 (编辑框1.context, #换行符, , arry01)
数组_去重复 (arry01, )
文本_分割文本 (编辑框5.context, #换行符, , arry02)
AddElement (arry02, arry01)
数组_去重复 (arry02, )
编辑框2.context ＝ “”
编辑框3.context ＝ “”
.counter (GetAryElementCount (arry01), i1)
.ife (GetAryElementCount (arry01) ＝ i1)
编辑框2.AddText (arry01 [i1])
编辑框2.AddText (arry01 [i1] ＋ #换行符 )

.CounterLoop ()
.counter (GetAryElementCount (arry02), i2)
.ife (GetAryElementCount (arry02) ＝ i2)
编辑框3.AddText (arry02 [i2])
编辑框3.AddText (arry02 [i2] ＋ #换行符 )

.CounterLoop ()
文本_分割文本 (编辑框5.context, #换行符, , arry03)
数组_去重复 (arry03, )
编辑框4.context ＝ “”
.counter (GetAryElementCount (arry03), i3)
.ife (GetAryElementCount (arry03) ＝ i3)
编辑框4.AddText (arry03 [i3])
编辑框4.AddText (arry03 [i3] ＋ #换行符 )

.CounterLoop ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 arry01, 文本型, , "0"<br /> .局部变量 i1, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 i3, 整数型<br /> .局部变量 arry02, 文本型, , "0"<br /> .局部变量 arry03, 文本型, , "0"<br /> <br /> 文本_分割文本 (编辑框1.context, #换行符, , arry01)<br /> 数组_去重复 (arry01, )<br /> 文本_分割文本 (编辑框5.context, #换行符, , arry02)<br /> AddElement (arry02, arry01)<br /> 数组_去重复 (arry02, )<br /> 编辑框2.context ＝ “”<br /> 编辑框3.context ＝ “”<br /> .counter (GetAryElementCount (arry01), i1)<br />     .ife (GetAryElementCount (arry01) ＝ i1)<br />         编辑框2.AddText (arry01 [i1])<br />     .否则<br />         编辑框2.AddText (arry01 [i1] ＋ #换行符)<br />     .如果结束<br /> <br /> .CounterLoop ()<br /> <br /> .counter (GetAryElementCount (arry02), i2)<br />     .ife (GetAryElementCount (arry02) ＝ i2)<br />         编辑框3.AddText (arry02 [i2])<br />     .否则<br />         编辑框3.AddText (arry02 [i2] ＋ #换行符)<br />     .如果结束<br /> <br /> .CounterLoop ()<br /> <br /> 文本_分割文本 (编辑框5.context, #换行符, , arry03)<br /> 数组_去重复 (arry03, )<br /> 编辑框4.context ＝ “”<br /> .counter (GetAryElementCount (arry03), i3)<br />     .ife (GetAryElementCount (arry03) ＝ i3)<br />         编辑框4.AddText (arry03 [i3])<br />     .否则<br />         编辑框4.AddText (arry03 [i3] ＋ #换行符)<br />     .如果结束<br /> <br /> .CounterLoop ()