谁能帮我改下，好多命令没用过。

yuheng8888

谁能帮我改下， 改成同时搜索多种格式文件？  



补充内容 (2021-4-13 19:02):
指定  几个格式   同时搜索，   不是搜索全部格式文件，  搜索全部文件我知道改哪.

   

补充内容 (2021-4-13 19:07):
比如搜索组合框1里的内容，   组合框里的内容=   mp3 OR docx OR mp4 OR  txt

zainex

在下面代码的 后缀集合 里添加你的要的后缀名就可以了。

  

子程序名	返回值类型	公开	备 注
全盘搜索文件2
参数名	类 型	参考	可空	数组	备 注
目录	文本型

变量名	类 型	静态	数组	备 注
队列	队列
节点	节点
节点1	节点
路径	文本型
文件夹名称	文本型
文件名	文本型
文件数目	整数型
加入表项	整数型
文件大小	文本型
创建日期	日期时间型
数	整数型
后缀	文本型
后缀集合	文本型		0

后缀集合 ＝ { “mp3”, “docx”, “mp4”, “txt” }
节点.加入属性 (“path”, 目录)
' 把初始目录加到队列
队列.压入 (节点)
判断循环首 (队列.是否为空 () ＝ 假)
' 弹出队列最前一个元素作为目录,对该目录进行文件夹枚举和文件枚举
队列.弹出 (节点1)
节点1.取文本值 (“path”, 路径)
路径 ＝ 选择 (取文本右边 (路径, 1) ≠ “\”, 路径 ＋ “\”, 路径)
文件夹名称 ＝ 寻找文件 (路径 ＋ “*.*”, #子目录 )
判断循环首 (文件夹名称 ≠ “”)
如果真 (文件夹名称 ≠ “.” 且 文件夹名称 ≠ “..”)
' 如果在当前目录下找到了文件夹,则把该文件夹压入到队列,等待扫描该文件夹的下一级目录和文件名
节点.修改属性 (“path”, 路径 ＋ 文件夹名称)
队列.压入 (节点)
文件夹名称 ＝ 寻找文件 (, #子目录 )
状态条1.置文本 (0, 路径 ＋ 文件夹名称)
判断循环尾 ()
处理事件 ()
' 寻找当前目录的所有文件
计次循环首 (取数组成员数 (后缀集合), 数)
后缀 ＝ 删全部空 (后缀集合 [数])
如果真 (后缀 ＝ “”)
到循环尾 ()
文件名 ＝ 寻找文件 (路径 ＋ “*.” ＋ 后缀, )
判断循环首 (文件名 ≠ “”)
如果真 (待搜索的目录 ≠ 65530)
进入许可区 (许可区_写)
序号 ＝ 超级列表框1.取表项数 () ＋ 1
文件大小 ＝ 到文本 (四舍五入 (取文件尺寸 (路径 ＋ 文件名) ÷ 1024, 2)) ＋ “KB”
创建日期 ＝ 取文件时间 (路径 ＋ 文件名)
加入表项 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (加入表项, 0, 到文本 (序号))
超级列表框1.置标题 (加入表项, 1, 文件名)
超级列表框1.置标题 (加入表项, 2, 路径 ＋ 文件名)
超级列表框1.置标题 (加入表项, 3, 文件大小)
超级列表框1.置标题 (加入表项, 4, 到文本 (创建日期))
超级列表框1.发送信息 (277, 7, 0)
如果真 (待搜索的目录 ≠ 65530)
退出许可区 (许可区_写)

文件名 ＝ 寻找文件 (, )
判断循环尾 ()
计次循环尾 ()
判断循环尾 ()
状态条1.置文本 (0, “搜索完毕！！！”)

i支持库列表	支持库注释
EDataStructure	数据结构支持库
iext	扩展界面支持库一
EThread	多线程支持库

.版本 2<br /> .支持库 EDataStructure<br /> .支持库 iext<br /> .支持库 EThread<br /> <br /> .子程序 全盘搜索文件2<br /> .参数 目录, 文本型<br /> .局部变量 队列, 队列<br /> .局部变量 节点, 节点<br /> .局部变量 节点1, 节点<br /> .局部变量 路径, 文本型<br /> .局部变量 文件夹名称, 文本型<br /> .局部变量 文件名, 文本型<br /> .局部变量 文件数目, 整数型<br /> .局部变量 加入表项, 整数型<br /> .局部变量 文件大小, 文本型<br /> .局部变量 创建日期, 日期时间型<br /> .局部变量 数, 整数型<br /> .局部变量 后缀, 文本型<br /> .局部变量 后缀集合, 文本型, , "0"<br /> <br /> 后缀集合 ＝ { “mp3”, “docx”, “mp4”, “txt” }<br /> 节点.加入属性 (“path”, 目录)<br /> ' 把初始目录加到队列<br /> 队列.压入 (节点)<br /> .判断循环首 (队列.是否为空 () ＝ 假)<br />     ' 弹出队列最前一个元素作为目录,对该目录进行文件夹枚举和文件枚举<br />     队列.弹出 (节点1)<br />     节点1.取文本值 (“path”, 路径)<br />     路径 ＝ 选择 (取文本右边 (路径, 1) ≠ “\”, 路径 ＋ “\”, 路径)<br />     文件夹名称 ＝ 寻找文件 (路径 ＋ “*.*”, #子目录)<br />     .判断循环首 (文件夹名称 ≠ “”)<br />         .如果真 (文件夹名称 ≠ “.” 且 文件夹名称 ≠ “..”)<br />             ' 如果在当前目录下找到了文件夹,则把该文件夹压入到队列,等待扫描该文件夹的下一级目录和文件名<br />             节点.修改属性 (“path”, 路径 ＋ 文件夹名称)<br />             队列.压入 (节点)<br />         .如果真结束<br />         文件夹名称 ＝ 寻找文件 (, #子目录)<br />         状态条1.置文本 (0, 路径 ＋ 文件夹名称)<br />     .判断循环尾 ()<br />     处理事件 ()<br />     ' 寻找当前目录的所有文件<br />     .计次循环首 (取数组成员数 (后缀集合), 数)<br />         后缀 ＝ 删全部空 (后缀集合 [数])<br />         .如果真 (后缀 ＝ “”)<br />             到循环尾 ()<br />         .如果真结束<br />         文件名 ＝ 寻找文件 (路径 ＋ “*.” ＋ 后缀, )<br />         .判断循环首 (文件名 ≠ “”)<br />             .如果真 (待搜索的目录 ≠ 65530)<br />                 进入许可区 (许可区_写)<br />             .如果真结束<br />             序号 ＝ 超级列表框1.取表项数 () ＋ 1<br />             文件大小 ＝ 到文本 (四舍五入 (取文件尺寸 (路径 ＋ 文件名) ÷ 1024, 2)) ＋ “KB”<br />             创建日期 ＝ 取文件时间 (路径 ＋ 文件名)<br />             加入表项 ＝ 超级列表框1.插入表项 (, , , , , )<br />             超级列表框1.置标题 (加入表项, 0, 到文本 (序号))<br />             超级列表框1.置标题 (加入表项, 1, 文件名)<br />             超级列表框1.置标题 (加入表项, 2, 路径 ＋ 文件名)<br />             超级列表框1.置标题 (加入表项, 3, 文件大小)<br />             超级列表框1.置标题 (加入表项, 4, 到文本 (创建日期))<br />             超级列表框1.发送信息 (277, 7, 0)<br />             .如果真 (待搜索的目录 ≠ 65530)<br />                 退出许可区 (许可区_写)<br />             .如果真结束<br /> <br />             文件名 ＝ 寻找文件 (, )<br />         .判断循环尾 ()<br />     .计次循环尾 ()<br /> .判断循环尾 ()<br /> 状态条1.置文本 (0, “搜索完毕！！！”)

yuheng8888

zainex 发表于 2021-4-13 19:47
在下面代码的 后缀集合 里添加你的要的后缀名就可以了。

[e=1].版本 2

大哥， 怎么能在组合框里输入
比如组合框内容=mp3 OR mp4 OR  txt  后点缀集合就等于  后点缀={“mp3”， “ mp4 ”O，  “txt”}

补充内容 (2021-4-13 22:17):
大哥， 怎么能在组合框里输入
比如组合框内容=mp3 OR mp4 OR  txt  后点缀集合就等于  后点缀={“mp3”， “ mp4 ”，  “txt”}

yuheng8888

zainex 发表于 2021-4-13 19:47
在下面代码的 后缀集合 里添加你的要的后缀名就可以了。

[e=1].版本 2

大哥， 怎么能在组合框里输入
比如组合框内容=mp3 OR mp4 OR  txt  后点缀集合就等于  后点缀={“mp3”， “ mp4 ”O，  “txt”}

yuheng8888

zainex 发表于 2021-4-13 19:47
在下面代码的 后缀集合 里添加你的要的后缀名就可以了。

[e=1].版本 2

我好像  懂了 我去试试    用数组合并  然后去除重复  我去试试