谁有只搜索本地无拓展名文件的代码？

fjsystem · 发表于 2026-1-6 00:43:02

谁有只搜索无拓展名文件的代码？有拓展名的排除。列表显示出来。everything这个不会用。

z573277679 · 发表于 2026-1-6 00:43:03

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

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

变量名	类型	静态	数组	备注
目标路径	文本型

' -------------------------------------------------------------
' 请在这里修改你要搜索的路径，例如 “C:\Windows\” 或 “D:\”
' -------------------------------------------------------------
目标路径＝ “D:\”
调试输出 (“====== 开始搜索 ======”)
查找无扩展名文件_纯调试 (目标路径)
调试输出 (“====== 搜索结束 ======”)

子程序名	返回值类型	公开	备注
查找无扩展名文件_纯调试
参数名	类型	参考	可空	数组	备注
搜索目录	文本型

变量名	类型	静态	数组	备注
文件名	文本型
目录数组	文本型		0
i	整数型
完整路径	文本型
文件大小	整数型

' 1. 规范路径：如果没有斜杠，补齐斜杠

如果真 (取文本右边 (搜索目录, 1) ≠ “\”)

' 2. 第一阶段：先把当前层级的所有【子目录】存入数组
' (易语言特性：递归时如果同时寻找文件，句柄会冲突，所以必须先存文件夹)
文件名＝寻找文件 (搜索目录＋ “*.*”, #子目录 )

判断循环首 (文件名 ≠ “”)

如果真 (取文本左边 (文件名, 1) ≠ “.”) ' 排除 . 和 ..

如果真 (取文件属性 (搜索目录＋文件名) ＝ #子目录 )

加入成员 (目录数组, 搜索目录＋文件名)

文件名＝寻找文件 (, #子目录 )

判断循环尾 ()
' 3. 第二阶段：查找当前层级的所有【无后缀文件】
文件名＝寻找文件 (搜索目录＋ “*.*”, )

判断循环首 (文件名 ≠ “”)

如果真 (文件名 ≠ “.” 且文件名 ≠ “..”)

如果真 (文件_取扩展名 (文件名) ＝ “”)

完整路径＝搜索目录＋文件名

文件大小＝取文件尺寸 (完整路径)

' 直接输出到下方的调试窗口

调试输出 (“[文件]: ” ＋完整路径, “ [大小]: ” ＋到文本 (文件大小) ＋ “ 字节”)

文件名＝寻找文件 (, )

判断循环尾 ()
' 4. 第三阶段：递归进入子目录继续搜

计次循环首 (取数组成员数 (目录数组), i)

处理事件 () ' 防止目录太多卡死

查找无扩展名文件_纯调试 (目录数组 [i])

计次循环尾 ()
* “====== 开始搜索 ======”
* “[文件]: D:\mingw32\bin\gdb-add-index” | “ [大小]: 4662 字节”
* “[文件]: D:\mingw32\bin\gstack” | “ [大小]: 3082 字节”

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

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
.局部变量 目标路径, 文本型<br />
<br />
' -------------------------------------------------------------<br />
' 请在这里修改你要搜索的路径，例如 “C:\Windows\” 或 “D:\”<br />
' -------------------------------------------------------------<br />
目标路径 ＝ “D:\”<br />
<br />
调试输出 (“====== 开始搜索 ======”)<br />
查找无扩展名文件_纯调试 (目标路径)<br />
调试输出 (“====== 搜索结束 ======”)<br />
<br />
.子程序 查找无扩展名文件_纯调试<br />
.参数 搜索目录, 文本型<br />
.局部变量 文件名, 文本型<br />
.局部变量 目录数组, 文本型, , "0"<br />
.局部变量 i, 整数型<br />
.局部变量 完整路径, 文本型<br />
.局部变量 文件大小, 整数型<br />
<br />
' 1. 规范路径：如果没有斜杠，补齐斜杠<br />
.如果真 (取文本右边 (搜索目录, 1) ≠ “\”)<br />
    搜索目录 ＝ 搜索目录 ＋ “\”<br />
.如果真结束<br />
<br />
' 2. 第一阶段：先把当前层级的所有【子目录】存入数组<br />
' (易语言特性：递归时如果同时寻找文件，句柄会冲突，所以必须先存文件夹)<br />
文件名 ＝ 寻找文件 (搜索目录 ＋ “*.*”, #子目录)<br />
.判断循环首 (文件名 ≠ “”)<br />
    .如果真 (取文本左边 (文件名, 1) ≠ “.”)  ' 排除 . 和 ..<br />
        .如果真 (取文件属性 (搜索目录 ＋ 文件名) ＝ #子目录)<br />
            加入成员 (目录数组, 搜索目录 ＋ 文件名)<br />
        .如果真结束<br />
<br />
    .如果真结束<br />
    文件名 ＝ 寻找文件 (, #子目录)<br />
.判断循环尾 ()<br />
<br />
' 3. 第二阶段：查找当前层级的所有【无后缀文件】<br />
文件名 ＝ 寻找文件 (搜索目录 ＋ “*.*”, )<br />
.判断循环首 (文件名 ≠ “”)<br />
    .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)<br />
        .如果真 (文件_取扩展名 (文件名) ＝ “”)<br />
            完整路径 ＝ 搜索目录 ＋ 文件名<br />
            文件大小 ＝ 取文件尺寸 (完整路径)<br />
<br />
            ' 直接输出到下方的调试窗口<br />
            调试输出 (“[文件]: ” ＋ 完整路径, “  [大小]: ” ＋ 到文本 (文件大小) ＋ “ 字节”)<br />
        .如果真结束<br />
<br />
    .如果真结束<br />
    文件名 ＝ 寻找文件 (, )<br />
.判断循环尾 ()<br />
<br />
' 4. 第三阶段：递归进入子目录继续搜<br />
.计次循环首 (取数组成员数 (目录数组), i)<br />
    处理事件 ()  ' 防止目录太多卡死<br />
    查找无扩展名文件_纯调试 (目录数组 <i>)<br />
.计次循环尾 ()<br />
* “====== 开始搜索 ======”<br />
* “[文件]: D:\mingw32\bin\gdb-add-index” | “  [大小]: 4662 字节”<br />
* “[文件]: D:\mingw32\bin\gstack” | “  [大小]: 3082 字节”

补充内容 (2026-1-6 01:06):
Everything只需在搜索框输入
file: !.*