如何剔除相同文本

彼岸光年

文本一：0059 0580 0004 6006 7162 0803 6010 0029

文本二：0673 1208 6019 6006 5183 6037 6092 0029 0724 3380

例如这2组文本，如何剔除6006和0029，只保留其他不相同的文本？

需要留下的文本：
0059 0580 0004 7162 0803 6010 0673 1208 6019 5183 6037 6092 0724 3380

花间一壶酒

  

子程序名	返回值类型	公开	备 注
例子

变量名	类 型	静态	数组	备 注
文本一	文本型
文本二	文本型
文本一组	文本型		0
文本二组	文本型		0
i	整数型
正则	正则表达式类

文本一 ＝ “0059 0580 0004 6006 7162 0803 6010 0029”
文本二 ＝ “0673 1208 6019 6006 5183 6037 6092 0029 0724 3380”
文本_分割文本 (文本一, “ ”, , 文本一组)
文本_分割文本 (文本二, “ ”, , 文本二组)
判断 (取数组成员数 (文本一组) ≥ 取数组成员数 (文本二组))
计次循环首 (取数组成员数 (文本一组), i)
如果真 (文本_寻找文本 (文本二, 文本一组 [i], , ) ≠ -1)
正则.创建 (“\s?” ＋ 文本一组 [i] ＋ “\s?”, 文本二, , , , )
如果真 (正则.取匹配数量 () ＞ 0)
文本二 ＝ 正则.替换 (“ ”)
正则.创建 (“\s?” ＋ 文本一组 [i] ＋ “\s?”, 文本一, , , , )
如果真 (正则.取匹配数量 () ＞ 0)
文本一 ＝ 正则.替换 (“ ”)


计次循环尾 ()

判断 (取数组成员数 (文本一组) ＜ 取数组成员数 (文本二组))
计次循环首 (取数组成员数 (文本二组), i)
如果真 (文本_寻找文本 (文本一, 文本二组 [i], , ) ≠ -1)
正则.创建 (“\s?” ＋ 文本二组 [i] ＋ “\s?”, 文本二, , , , )
如果真 (正则.取匹配数量 () ＞ 0)
文本二 ＝ 正则.替换 (“ ”)
正则.创建 (“\s?” ＋ 文本二组 [i] ＋ “\s?”, 文本一, , , , )
如果真 (正则.取匹配数量 () ＞ 0)
文本一 ＝ 正则.替换 (“ ”)


计次循环尾 ()




调试输出 (文本一 ＋ 文本二)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 例子<br /> .局部变量 文本一, 文本型<br /> .局部变量 文本二, 文本型<br /> .局部变量 文本一组, 文本型, , "0"<br /> .局部变量 文本二组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 正则, 正则表达式类<br /> <br /> 文本一 ＝ “0059 0580 0004 6006 7162 0803 6010 0029”<br /> 文本二 ＝ “0673 1208 6019 6006 5183 6037 6092 0029 0724 3380”<br /> 文本_分割文本 (文本一, “ ”, , 文本一组)<br /> 文本_分割文本 (文本二, “ ”, , 文本二组)<br /> .判断开始 (取数组成员数 (文本一组) ≥ 取数组成员数 (文本二组))<br />     .计次循环首 (取数组成员数 (文本一组), i)<br />         .如果真 (文本_寻找文本 (文本二, 文本一组 <i>, , ) ≠ -1)<br />             正则.创建 (“\s?” ＋ 文本一组 <i> ＋ “\s?”, 文本二, , , , )<br />             .如果真 (正则.取匹配数量 () ＞ 0)<br />                 文本二 ＝ 正则.替换 (“ ”)<br />             .如果真结束<br />             正则.创建 (“\s?” ＋ 文本一组 <i> ＋ “\s?”, 文本一, , , , )<br />             .如果真 (正则.取匹配数量 () ＞ 0)<br />                 文本一 ＝ 正则.替换 (“ ”)<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> .判断 (取数组成员数 (文本一组) ＜ 取数组成员数 (文本二组))<br />     .计次循环首 (取数组成员数 (文本二组), i)<br />         .如果真 (文本_寻找文本 (文本一, 文本二组 <i>, , ) ≠ -1)<br />             正则.创建 (“\s?” ＋ 文本二组 <i> ＋ “\s?”, 文本二, , , , )<br />             .如果真 (正则.取匹配数量 () ＞ 0)<br />                 文本二 ＝ 正则.替换 (“ ”)<br />             .如果真结束<br />             正则.创建 (“\s?” ＋ 文本二组 <i> ＋ “\s?”, 文本一, , , , )<br />             .如果真 (正则.取匹配数量 () ＞ 0)<br />                 文本一 ＝ 正则.替换 (“ ”)<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> 调试输出 (文本一 ＋ 文本二)

为啥这么长  因为我判断了下长度  用长的对比短的

圆圈

  

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

文本一 ＝ “0059 0580 0004 6006 7162 0803 6010 0029”
文本二 ＝ “0673 1208 6019 6006 5183 6037 6092 0029 0724 3380”
文本一数组 ＝ 分割文本 (文本一, “ ”, )
计次循环首 (取数组成员数 (文本一数组), i)
如果真 (寻找文本 (文本二, 文本一数组 [i], , 假) ≠ -1)
调试输出 (“重复文本”, 文本一数组 [i])
文本二 ＝ 子文本替换 (文本二, 文本一数组 [i], “”, , , 真)
文本一 ＝ 子文本替换 (文本一, 文本一数组 [i], “”, , , 真)

计次循环尾 ()
调试输出 (文本一 ＋ “ ” ＋ 文本二)

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 文本一, 文本型<br /> .局部变量 文本二, 文本型<br /> .局部变量 文本一数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 文本一 ＝ “0059 0580 0004 6006 7162 0803 6010 0029”<br /> 文本二 ＝ “0673 1208 6019 6006 5183 6037 6092 0029 0724 3380”<br /> 文本一数组 ＝ 分割文本 (文本一, “ ”, )<br /> <br /> .计次循环首 (取数组成员数 (文本一数组), i)<br />     .如果真 (寻找文本 (文本二, 文本一数组 <i>, , 假) ≠ -1)<br />         调试输出 (“重复文本”, 文本一数组 <i>)<br />         文本二 ＝ 子文本替换 (文本二, 文本一数组 <i>, “”, , , 真)<br />         文本一 ＝ 子文本替换 (文本一, 文本一数组 <i>, “”, , , 真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 调试输出 (文本一 ＋ “ ” ＋ 文本二)

fireandice

利用支持库中的数据结构，表的特性

山猫啊

  

变量名	类 型	静态	数组	备 注
文本1	文本型
文本2	文本型
分割1	文本型		0
i	整数型

文本1 ＝ “0059 0580 0004 6006 7162 0803 6010 0029”
文本2 ＝ “0673 1208 6019 6006 5183 6037 6092 0029 0724 3380”
分割1 ＝ 分割文本 (文本1, “ ”, )
计次循环首 (取数组成员数 (分割1), i)
如果真 (寻找文本 (文本2, 分割1 [i], , 假) ≠ -1)
调试输出 (“有重复”, 分割1 [i])
文本1 ＝ 子文本替换 (文本1, 分割1 [i] ＋ “ ”, , , , 真)
文本2 ＝ 子文本替换 (文本2, 分割1 [i] ＋ “ ”, , , , 真)

计次循环尾 ()
调试输出 (文本1)
调试输出 (文本2)

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 文本1, 文本型<br /> .局部变量 文本2, 文本型<br /> .局部变量 分割1, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 文本1 ＝ “0059 0580 0004 6006 7162 0803 6010 0029”<br /> 文本2 ＝ “0673 1208 6019 6006 5183 6037 6092 0029 0724 3380”<br /> <br /> 分割1 ＝ 分割文本 (文本1, “ ”, )<br /> .计次循环首 (取数组成员数 (分割1), i)<br />     .如果真 (寻找文本 (文本2, 分割1 <i>, , 假) ≠ -1)<br />         调试输出 (“有重复”, 分割1 <i>)<br />         文本1 ＝ 子文本替换 (文本1, 分割1 <i> ＋ “ ”, , , , 真)<br />         文本2 ＝ 子文本替换 (文本2, 分割1 <i> ＋ “ ”, , , , 真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (文本1)<br /> <br /> 调试输出 (文本2)

禁回忆

直接精易模块秒了得了

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

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

text1 ＝ “0059 0580 0004 6006 7162 0803 6010 0029”
text2 ＝ “0673 1208 6019 6006 5183 6037 6092 0029 0724 3380”
text1 ＝ text1 ＋ “ ” ＋ text2
text1arr ＝ 分割文本 (text1, “ ”, )
数组_去重复 (text1arr)
数组_输出 (text1arr)
返回 (0)  ' 可以根据您的需要返回任意数值

.版本 2<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 text1, 文本型<br /> .局部变量 text2, 文本型<br /> .局部变量 text1arr, 文本型, , "0"<br /> <br /> text1 ＝ “0059 0580 0004 6006 7162 0803 6010 0029”<br /> text2 ＝ “0673 1208 6019 6006 5183 6037 6092 0029 0724 3380”<br /> text1 ＝ text1 ＋ “ ” ＋ text2<br /> text1arr ＝ 分割文本 (text1, “ ”, )<br /> 数组_去重复 (text1arr)<br /> 数组_输出 (text1arr)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值

彼岸光年

禁回忆 发表于 2025-8-16 11:02
直接精易模块秒了得了

[e=0].版本 2

这个方法把重复项也保留了
我是要把重复的6006,0029删掉

熬夜

这答案清一色啊

彼岸光年

fireandice 发表于 2025-8-16 10:54
利用支持库中的数据结构，表的特性

能展开说说吗

山猫啊

禁回忆 发表于 2025-8-16 11:02
直接精易模块秒了得了

[e=0].版本 2

太还得拆分两个文本   没办法拆分了