去除重复文本

kagari

带参数寻找文件源码.e (9.5 KB, 下载次数: 3)

2022-9-29 19:40 上传

点击文件名下载附件 知道一般的重复文本怎么去除，但是我搜索出来除了文件名字不一样之外，后缀名，文件夹名，路径都是一样的，所以求助前辈可以帮我修改一下，例如排除类型有.jpg,.log,.cue,.wav,.png,.db,.rar,.7z,.xls,.txt,.ape,.tak,.ini,.doc，需要枚举的类型是*.flac。那么搜索出来就是一大堆，就如同开头所说重复的文本太多了，这是搜索出来的例子1=D:\111\OneDrive\123\1234\02.flac
2=D:\111\OneDrive\123\1234\03.flac
3=D:\111\OneDrive\123\1234\04.flac
4=D:\111\OneDrive\123\1234\05.flac
5=D:\111\OneDrive\123\1234\06.flac
6=D:\111\OneDrive\123\1234\07.flac
7=D:\111\OneDrive\123\1234\08.flac
8=D:\111\OneDrive\123\1234\09.flac
9=D:\111\OneDrive\123\1234\10.flac
10=D:\111\OneDrive\123\1234\11.flac
11=D:\111\OneDrive\123\1234\12.flac
12=D:\111\OneDrive\123\1234\13.flac
13=D:\111\OneDrive\123\1234\14.flac

14=D:\111\OneDrive\123\12345\01.flac
15=D:\111\OneDrive\123\12345\012.flac
16=D:\111\OneDrive\123\12345\015.flac
17=D:\111\OneDrive\123\12345\018.flac
18=D:\111\OneDrive\123\12345\019.flac

搜索出来的结果就是类似这样的，只需要保留第一个目录就行，麻烦各位前辈帮忙了

伊人独醉

  

子程序名	返回值类型	公开	备 注
取目录父路径	文本型
参数名	类 型	参考	可空	数组	备 注
文件或目录名	文本型

变量名	类 型	静态	数组	备 注
局_位置	整数型
局_文本	文本型

局_文本 ＝ 文件或目录名
如果真 (取文本右边 (局_文本, 1) ＝ “\”)
局_文本 ＝ 取文本左边 (局_文本, 取文本长度 (局_文本) － 1)
局_位置 ＝ 倒找文本 (局_文本, “\”, , 假)
返回 (取文本左边 (局_文本, 局_位置))

.版本 2<br /> <br /> .子程序 取目录父路径, 文本型<br /> .参数 文件或目录名, 文本型<br /> .局部变量 局_位置, 整数型<br /> .局部变量 局_文本, 文本型<br /> <br /> 局_文本 ＝ 文件或目录名<br /> .如果真 (取文本右边 (局_文本, 1) ＝ “\”)<br />     局_文本 ＝ 取文本左边 (局_文本, 取文本长度 (局_文本) － 1)<br /> .如果真结束<br /> 局_位置 ＝ 倒找文本 (局_文本, “\”, , 假)<br /> 返回 (取文本左边 (局_文本, 局_位置))

不是很明白你的需求，我猜是多个文件在同一个文件夹只显示一个目录，所以给你一个取目录父路径，然后加入数组判断就行了

kagari

1=D:\111\OneDrive\123\1234\02.flac
2=D:\111\OneDrive\123\1234\03.flac
3=D:\111\OneDrive\123\1234\04.flac
4=D:\111\OneDrive\123\1234\05.flac
5=D:\111\OneDrive\123\1234\06.flac
6=D:\111\OneDrive\123\1234\07.flac
7=D:\111\OneDrive\123\1234\08.flac
8=D:\111\OneDrive\123\1234\09.flac
9=D:\111\OneDrive\123\1234\10.flac
10=D:\111\OneDrive\123\1234\11.flac
11=D:\111\OneDrive\123\1234\12.flac
12=D:\111\OneDrive\123\1234\13.flac
13=D:\111\OneDrive\123\1234\14.flac
14=D:\111\OneDrive\123\12345\01.flac
15=D:\111\OneDrive\123\12345\012.flac
16=D:\111\OneDrive\123\12345\015.flac
17=D:\111\OneDrive\123\12345\018.flac
18=D:\111\OneDrive\123\12345\019.flac

我狠慌i

可以添加进数组里，然后数组去重复

kagari

我狠慌i 发表于 2022-9-29 19:53
可以添加进数组里，然后数组去重复

加数组知道，但是不知道具体写法怎么写，就是加个选项，选择后才去重复，不选择就不去除，可以请前辈帮忙一下吗谢谢

我狠慌i

kagari 发表于 2022-9-29 19:58
加数组知道，但是不知道具体写法怎么写，就是加个选项，选择后才去重复，不选择就不去除，可以请前辈帮忙 ...

.版本 2

.子程序 __启动窗口_创建完毕
.局部变量 数组, 文本型, , "0"
.局部变量 计次, 整数型

加入成员 (数组, “1”)
加入成员 (数组, “12”)
加入成员 (数组, “123”)
加入成员 (数组, “1234”)
加入成员 (数组, “1”)
加入成员 (数组, “123”)
加入成员 (数组, “1234”)

输出调试文本 (“去重前”)
.计次循环首 (取数组成员数 (数组), 计次)
    输出调试文本 (数组 [计次])
.计次循环尾 ()


输出调试文本 (“去重指定文本”)
.计次循环首 (取数组成员数 (数组), 计次)
    .如果真 (寻找文本 (数组 [计次], “1234”, , 假) ≠ -1)
        到循环尾 ()
    .如果真结束
    输出调试文本 (数组 [计次])
.计次循环尾 ()



数组_去重复 (数组)
输出调试文本 (“去重后”)
.计次循环首 (取数组成员数 (数组), 计次)
    输出调试文本 (数组 [计次])
.计次循环尾 ()

我狠慌i

我狠慌i 发表于 2022-9-29 20:05
.版本 2

.子程序 __启动窗口_创建完毕

此处用了精易模块

kagari

我狠慌i 发表于 2022-9-29 20:06
此处用了精易模块

上面那些路径只是例子，实际不止这么多

补充内容 (2022-9-29 20:10):
至少有2万行

我狠慌i

kagari 发表于 2022-9-29 20:09
上面那些路径只是例子，实际不止这么多

补充内容 (2022-9-29 20:10):

我生成2万个1-10的随机数出来加入数组再去重 前后耗时3秒

kagari

我狠慌i 发表于 2022-9-29 20:18
我生成2万个1-10的随机数出来加入数组再去重 前后耗时3秒

我私聊给你搜索出来的文本了，意思是比如每个文件夹有很多flac，那么只需要保留第一行的就行