这样的文本怎么去重复

冷眸藐视

就是名字重复的，只保留排在上面的。




例子.e (2.19 KB, 下载次数: 6)

2024-9-2 11:27 上传

点击文件名下载附件

LEOONL

冷眸藐视 发表于 2024-9-2 12:37
我要是有这样的名称的呢
黄葵（14黄葵）（6%）

  

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

变量名	类 型	静态	数组	备 注
文本	文本型		0
n	整数型
处理文本	文本型

文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (文本), n)
如果真 (寻找文本 (处理文本, 取文本左边 (文本 [n], 寻找文本 (文本 [n], “%”, , 假) － 2), , 假) ＝ -1)
处理文本 ＝ 处理文本 ＋ 文本 [n] ＋ #换行符

计次循环尾 ()
编辑框2.内容 ＝ 处理文本

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 处理文本, 文本型<br /> <br /> 文本 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (文本), n)<br />     .如果真 (寻找文本 (处理文本, 取文本左边 (文本 [n], 寻找文本 (文本 [n], “%”, , 假) － 2), , 假) ＝ -1)<br />         处理文本 ＝ 处理文本 ＋ 文本 [n] ＋ #换行符<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 编辑框2.内容 ＝ 处理文本

蟹黄憨包

换行符分割为本存到数组里，然后去重

补充内容 (2024-9-2 11:30):
https://bbs.125.la/forum.php?mod ... 4%E5%8E%BB%E9%87%8D

LEOONL

例子.e (3.27 KB, 下载次数: 2)

2024-9-2 11:30 上传

点击文件名下载附件

  

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

变量名	类 型	静态	数组	备 注
文本	文本型		0
n	整数型
处理文本	文本型

文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (文本), n)
如果真 (寻找文本 (处理文本, 取文本左边 (文本 [n], 寻找文本 (文本 [n], “(”, , 假)), , 假) ＝ -1)
处理文本 ＝ 处理文本 ＋ 文本 [n] ＋ #换行符

计次循环尾 ()
编辑框2.内容 ＝ 处理文本

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 处理文本, 文本型<br /> <br /> 文本 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (文本), n)<br />     .如果真 (寻找文本 (处理文本, 取文本左边 (文本 [n], 寻找文本 (文本 [n], “(”, , 假)), , 假) ＝ -1)<br />         处理文本 ＝ 处理文本 ＋ 文本 [n] ＋ #换行符<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 编辑框2.内容 ＝ 处理文本

冷眸藐视

LEOONL 发表于 2024-9-2 11:30
[e=0].版本 2

.子程序 _按钮1_被单击

我要是有这样的名称的呢
黄葵（14黄葵）（6%）

鹏书

https://www.bilibili.com/video/BV1NY411U7Mc/  把名字取出来过滤就好了

真冬

  

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

编辑框2.内容 ＝ 子程序1这样的文本去重复 (编辑框1.内容)

子程序名	返回值类型	公开	备 注
子程序1这样的文本去重复	文本型
参数名	类 型	参考	可空	数组	备 注
参数_来源文	文本型

变量名	类 型	静态	数组	备 注
正则	对象
新文本	文本型
旧文本	文本型

正则.写属性 (“Global”, 正则.写属性 (“Multiline”, 正则.创建 (“VBScript.RegExp”, )), 正则.写属性 (“Pattern”, “(^[^\r\n]+$)([\s\S]*?)^\1$\s*”))
新文本 ＝ 参数_来源文
循环判断首 ()
旧文本 ＝ 新文本
新文本 ＝ 正则.文本方法 (“Replace”, 新文本, “$1$2”)
循环判断尾 (旧文本 ≠ 新文本)
返回 (新文本)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框2.内容 ＝ 子程序1这样的文本去重复 (编辑框1.内容)<br /> <br /> .子程序 子程序1这样的文本去重复, 文本型<br /> .参数 参数_来源文, 文本型<br /> .局部变量 正则, 对象<br /> .局部变量 新文本, 文本型<br /> .局部变量 旧文本, 文本型<br /> <br /> 正则.写属性 (“Global”, 正则.写属性 (“Multiline”, 正则.创建 (“VBScript.RegExp”, )), 正则.写属性 (“Pattern”, “(^[^\r\n]+$)([\s\S]*?)^\1$\s*”))<br /> 新文本 ＝ 参数_来源文<br /> .循环判断首 ()<br />     旧文本 ＝ 新文本<br />     新文本 ＝ 正则.文本方法 (“Replace”, 新文本, “$1$2”)<br /> .循环判断尾 (旧文本 ≠ 新文本)<br /> 返回 (新文本)

[JavaScript] 纯文本查看 复制代码

.版本 2

.子程序 _按钮1_被单击

编辑框2.内容 ＝ 子程序1这样的文本去重复 (编辑框1.内容)

.子程序 子程序1这样的文本去重复, 文本型
.参数 参数_来源文, 文本型
.局部变量 正则, 对象
.局部变量 新文本, 文本型
.局部变量 旧文本, 文本型

正则.写属性 (“Global”, 正则.写属性 (“Multiline”, 正则.创建 (“VBScript.RegExp”, )), 正则.写属性 (“Pattern”, “(^[^\r\n]+$)([\s\S]*?)^\1$\s*”))
新文本 ＝ 参数_来源文
.循环判断首 ()
    旧文本 ＝ 新文本
    新文本 ＝ 正则.文本方法 (“Replace”, 新文本, “$1$2”)
.循环判断尾 (旧文本 ≠ 新文本)
返回 (新文本)