文本排列问题

我有宝物

文本1不变 如何让文本2的对应排列和文本1相同
有成品软件最好
来个大佬


补充内容 (2024-11-22 02:37):
比如文本1多一个数字888 文本2没有888 怎么过滤出来

补充内容 (2024-11-22 02:39):
2.文本2多出数字888 文本1没有 如何过滤出来

chenboss

我有宝物 发表于 2024-11-22 15:05
有成品吗？

AB文本排序成品.rar (303.28 KB, 下载次数: 1, 售价: 2 枚 精币)

6 小时前 上传

点击文件名下载附件

Lovezyl

chenboss

文本排序过滤.e (3.01 KB, 下载次数: 0, 售价: 3 枚 精币)

20 小时前 上传

点击文件名下载附件

我有宝物

有懂的吗？？

chenboss

  

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

变量名	类 型	静态	数组	备 注
文本A	文本型		0
文本B	文本型		0
i	整数型
j	整数型
最终	文本型		0
tmp	文本型

文本A ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\1.txt”)), #换行符, )
文本B ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\2.txt”)), #换行符, )
计次循环首 (取数组成员数 (文本A), i)
计次循环首 (取数组成员数 (文本B), j)
如果真 (寻找文本 (删首尾空 (文本A [i]), 删首尾空 (文本B [j]), , 假) ＞ 0)
加入成员 (最终, 文本B [j])

计次循环尾 ()
计次循环尾 ()
计次循环首 (取数组成员数 (最终), i)
tmp ＝ tmp ＋ 最终 [i] ＋ #换行符
计次循环尾 ()
调试输出 (tmp)
写到文件 (取运行目录 () ＋ “\最终.txt”, 到字节集 (tmp))

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本A, 文本型, , "0"<br /> .局部变量 文本B, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 最终, 文本型, , "0"<br /> .局部变量 tmp, 文本型<br /> <br /> <br /> 文本A ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\1.txt”)), #换行符, )<br /> 文本B ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\2.txt”)), #换行符, )<br /> <br /> .计次循环首 (取数组成员数 (文本A), i)<br />     .计次循环首 (取数组成员数 (文本B), j)<br />         .如果真 (寻找文本 (删首尾空 (文本A <i>), 删首尾空 (文本B [j]), , 假) ＞ 0)<br />             加入成员 (最终, 文本B [j])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (最终), i)<br />     tmp ＝ tmp ＋ 最终 <i> ＋ #换行符<br /> .计次循环尾 ()<br /> 调试输出 (tmp)<br /> 写到文件 (取运行目录 () ＋ “\最终.txt”, 到字节集 (tmp))

补充内容 (2024-11-22 03:52):
复制乱码的去下载

xiaoSeven

文本1做成数组，文本2做成数据，挨个匹配，匹配不到的跳过就是了

mytiger

  

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

变量名	类 型	静态	数组	备 注
文件1	文本型		0
文件2	文本型		0
新文件	文本型		0
m	整数型
n	整数型
ret	文本型
文件	整数型

文件1 ＝ 分割文本 (UTF8到文本 (读入文件 (“1.txt”)), #换行符, )
文件2 ＝ 分割文本 (UTF8到文本 (读入文件 (“2.txt”)), #换行符, )
判断循环首 (m ＜ 取数组成员数 (文件1))
m ＝ m ＋ 1
判断循环首 (n ＜ 取数组成员数 (文件2))
n ＝ n ＋ 1
如果真 (文件1 [m] ＝ 文件2 [n])
加入成员 (新文件, 文件2 [n])
删除成员 (文件1, m, )
删除成员 (文件2, n, )
连续赋值 (0, m, n)
跳出循环 ()

判断循环尾 ()
判断循环尾 ()
文件 ＝ 打开内存文件 ()
计次循环首 (取数组成员数 (新文件), n)
写文本行 (文件, 新文件 [n])
计次循环尾 ()
写文本行 (文件, “文件2中无:”)
计次循环首 (取数组成员数 (文件1), n)
写文本行 (文件, 文件1 [n])
计次循环尾 ()
写文本行 (文件, “文件1中无:”)
计次循环首 (取数组成员数 (文件2), n)
写文本行 (文件, 文件2 [n])
计次循环尾 ()
移到文件首 (文件)
调试输出 (读入文本 (文件, ))
关闭文件 (文件)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 文件1, 文本型, , "0"<br /> .局部变量 文件2, 文本型, , "0"<br /> .局部变量 新文件, 文本型, , "0"<br /> .局部变量 m, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 ret, 文本型<br /> .局部变量 文件, 整数型<br /> <br /> 文件1 ＝ 分割文本 (UTF8到文本 (读入文件 (“1.txt”)), #换行符, )<br /> 文件2 ＝ 分割文本 (UTF8到文本 (读入文件 (“2.txt”)), #换行符, )<br /> .判断循环首 (m ＜ 取数组成员数 (文件1))<br />     m ＝ m ＋ 1<br />     .判断循环首 (n ＜ 取数组成员数 (文件2))<br />         n ＝ n ＋ 1<br />         .如果真 (文件1 [m] ＝ 文件2 [n])<br />             加入成员 (新文件, 文件2 [n])<br />             删除成员 (文件1, m, )<br />             删除成员 (文件2, n, )<br />             连续赋值 (0, m, n)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .判断循环尾 ()<br /> .判断循环尾 ()<br /> 文件 ＝ 打开内存文件 ()<br /> .计次循环首 (取数组成员数 (新文件), n)<br />     写文本行 (文件, 新文件 [n])<br /> .计次循环尾 ()<br /> 写文本行 (文件, “文件2中无:”)<br /> .计次循环首 (取数组成员数 (文件1), n)<br />     写文本行 (文件, 文件1 [n])<br /> .计次循环尾 ()<br /> 写文本行 (文件, “文件1中无:”)<br /> .计次循环首 (取数组成员数 (文件2), n)<br />     写文本行 (文件, 文件2 [n])<br /> .计次循环尾 ()<br /> 移到文件首 (文件)<br /> 调试输出 (读入文本 (文件, ))<br /> 关闭文件 (文件)

补充内容 (2024-11-22 10:15):
* “12
23
39
45
51
68
70
89
92
103
文件2中无:
666
文件1中无:
888
”

LEOONL

排序并筛选出不同.e (4.2 KB, 下载次数: 1)

12 小时前 上传

点击文件名下载附件

我有宝物

chenboss 发表于 2024-11-22 02:55

有成品吗？