这个想法好不好搞

dwcq

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
变量1	整数型
变量2	整数型
数量1	整数型		-----
文本1	文本型		-----
分割1	文本型	0	-----
数量2	整数型		-----
文本2	文本型		-----
分割2	文本型	0	-----

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

' 数组 ＝ { “1”, “2”, “3”, “11”, “22”, “33”, “111”, “222”, “333”, “123”, “123123” }  ‘原数组  11个
' 数组 ＝ {  “111”, “222”, “333”,  “123123” } ’达到这个效果
' 数组 ＝ { “a”, “b”, “c”, “aa”, “bb”, “cc”, “aaa”, “bbb”, “ccc”, “abc”, “abcabc” }  ‘原数组 11个
' 数组 ＝ {  “aaa”, “bbb”, “ccc”,  “abcabc” } ’达到这个效果  

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

文本1 ＝ 编辑框1.内容
分割1 ＝ 分割文本 (文本1, #换行符, )
数量1 ＝ 取数组成员数 (分割1)
计次循环首 (数量1, 变量1)
编辑框2.加入文本 (分割1 [变量1] ＋ #换行符 )
计次循环尾 ()

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

文本2 ＝ 编辑框2.内容
分割2 ＝ 分割文本 (文本2, #换行符, )
数量2 ＝ 取数组成员数 (分割2)

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

变量名	类 型	静态	数组	备 注
A
B

变量循环首 (1, 数量1, 1, A)
变量循环首 (1, 数量2, 1, B)
如果 (寻找文本 (分割1 [A], 分割2 [B], , 真) ＝ -1)



跳出循环 ()

变量循环尾 ()
删除成员 (分割1, B, 1)
重定义数组 (分割1, 真, 数量1 － B)
删除成员 (分割2, B, 1)
重定义数组 (分割2, 真, 数量2 － B)
调试输出 (分割1)
变量循环尾 ()
' 调试出来 有一个成员没有被删掉 还老报错  循环的次数也不知道怎么减少合适 目前还是 循环 11 次   删了成员了都应该减少循环次数

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 变量1, 整数型<br /> .程序集变量 变量2, 整数型<br /> .程序集变量 数量1, 整数型, , , -----<br /> .程序集变量 文本1, 文本型, , , -----<br /> .程序集变量 分割1, 文本型, , "0", -----<br /> .程序集变量 数量2, 整数型, , , -----<br /> .程序集变量 文本2, 文本型, , , -----<br /> .程序集变量 分割2, 文本型, , "0", -----<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 数组 ＝ { “1”, “2”, “3”, “11”, “22”, “33”, “111”, “222”, “333”, “123”, “123123” }  ‘原数组  11个<br /> ' 数组 ＝ {  “111”, “222”, “333”,  “123123” } ’达到这个效果<br /> <br /> ' 数组 ＝ { “a”, “b”, “c”, “aa”, “bb”, “cc”, “aaa”, “bbb”, “ccc”, “abc”, “abcabc” }  ‘原数组 11个<br /> ' 数组 ＝ {  “aaa”, “bbb”, “ccc”,  “abcabc” } ’达到这个效果  <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> <br /> 文本1 ＝ 编辑框1.内容<br /> 分割1 ＝ 分割文本 (文本1, #换行符, )<br /> 数量1 ＝ 取数组成员数 (分割1)<br /> <br /> .计次循环首 (数量1, 变量1)<br />     编辑框2.加入文本 (分割1 [变量1] ＋ #换行符)<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 文本2 ＝ 编辑框2.内容<br /> 分割2 ＝ 分割文本 (文本2, #换行符, )<br /> 数量2 ＝ 取数组成员数 (分割2)<br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 A<br /> .局部变量 B<br /> <br /> .变量循环首 (1, 数量1, 1, A)<br /> <br />     .变量循环首 (1, 数量2, 1, B)<br /> <br />         .如果 (寻找文本 (分割1 [A], 分割2 [B], , 真) ＝ -1)<br /> <br />         .否则<br /> <br />             跳出循环 ()<br /> <br />         .如果结束<br /> <br />     .变量循环尾 ()<br /> <br />     删除成员 (分割1, B, 1)<br />     重定义数组 (分割1, 真, 数量1 － B)<br /> <br />     删除成员 (分割2, B, 1)<br />     重定义数组 (分割2, 真, 数量2 － B)<br /> <br />     调试输出 (分割1)<br /> .变量循环尾 ()<br /> <br /> ' 调试出来 有一个成员没有被删掉 还老报错  循环的次数也不知道怎么减少合适 目前还是 循环 11 次   删了成员了都应该减少循环次数

补充内容 (2023-3-15 23:05):
在数组内    成员A 被 成员B 的部分字符包含 就删除成员A

补充内容 (2023-3-16 01:38):
最佳答案→https://125.confly.eu.org/thread-14767644-1-1.html

真冬

  

变量名	类 型	静态	数组	备 注
数组	文本型		0

数组 ＝ { “1”, “2”, “3”, “11”, “22”, “33”, “111”, “222”, “333”, “123”, “123123” }  ' 原数组  11个
' 数组 ＝ {  “111”, “222”, “333”,  “123123” } ’达到这个效果
子程序1 (数组)
调试输出 (数组)
数组 ＝ { “a”, “b”, “c”, “aa”, “bb”, “cc”, “aaa”, “bbb”, “ccc”, “abc”, “abcabc” }  ' 原数组 11个
' 数组 ＝ {  “aaa”, “bbb”, “ccc”,  “abcabc” } ’达到这个效果
子程序1 (数组)
调试输出 (数组)

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
参数	文本型

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

变量循环首 (取数组成员数 (参数), 1, -1, i1)
变量循环首 (i1 － 1, 1, -1, i2)
如果真 (参数 [i1] ≈ 参数 [i2])
判断 (参数 [i1] ＜ 参数 [i2])
删除成员 (参数, i1, 1)
删除成员 (参数, i2, 1)
跳出循环 ()

变量循环尾 ()
变量循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 数组, 文本型, , "0"<br /> <br /> 数组 ＝ { “1”, “2”, “3”, “11”, “22”, “33”, “111”, “222”, “333”, “123”, “123123” }  ' 原数组  11个<br /> ' 数组 ＝ {  “111”, “222”, “333”,  “123123” } ’达到这个效果<br /> 子程序1 (数组)<br /> 调试输出 (数组)<br /> 数组 ＝ { “a”, “b”, “c”, “aa”, “bb”, “cc”, “aaa”, “bbb”, “ccc”, “abc”, “abcabc” }  ' 原数组 11个<br /> ' 数组 ＝ {  “aaa”, “bbb”, “ccc”,  “abcabc” } ’达到这个效果<br /> 子程序1 (数组)<br /> 调试输出 (数组)<br /> <br /> .子程序 子程序1<br /> .参数 参数, 文本型, 数组<br /> .局部变量 i1, 整数型<br /> .局部变量 i2, 整数型<br /> <br /> .变量循环首 (取数组成员数 (参数), 1, -1, i1)<br />     .变量循环首 (i1 － 1, 1, -1, i2)<br />         .如果真 (参数 [i1] ≈ 参数 [i2])<br />             .判断开始 (参数 [i1] ＜ 参数 [i2])<br />                 删除成员 (参数, i1, 1)<br />             .默认<br />                 删除成员 (参数, i2, 1)<br />             .判断结束<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> .变量循环尾 ()

补充内容 (2023-3-16 00:38):
实测，乱序下无法失效效果

补充内容 (2023-3-16 01:06):
实现乱序处理 代码
https://125.confly.eu.org/forum.php?mod=viewthread&tid=14767644

星星之夜

如源码即为所求

qcby

不要啥都程序变量啊。 能用局部变量就别用 程序和全局变量！

dwcq

qcby 发表于 2023-3-15 23:00
不要啥都程序变量啊。 能用局部变量就别用 程序和全局变量！

只是个列子 放下边 影响 观看效果

dwcq

dwcq 发表于 2023-3-15 23:01
只是个列子 放下边 影响 观看效果

忘记传源码了，补一下

菜鸟路过

把你的变量 下标 改成 倒叙就不会报错了...

补充内容 (2023-3-15 23:37):
而且可以更简单的... 稍等 我把代码敲出来

补充内容 (2023-3-15 23:56):
写出来你也采纳了，发不出来了

补充内容 (2023-3-16 00:13):
客气了！貌似之前的那篇也是你发的.. 下回记得把你想要的结果完全摆在面前，就好办了...