afd 发表于 2021-8-3 18:16
这代码没问题啊,哪里判断两次了

嗯，今天来测试有正常了，可能是遇到易语言了暗装了

顶一个..666

  

子程序名	返回值类型	公开	备 注
文件_搜索1			搜索指定的文件路径中的指定后缀的文件并加入到列表框中  在一个子程序中多次调用此命令需清除文件数组后再调用
参数名	类 型	参考	可空	数组	备 注
欲寻找的目录	文本型				如：C:,表示C盘,记得C字后面两点一定要写
欲寻找的文件名	文本型				如果寻找全部文件可以填入*.*或*.txt只找txt文件
加入的列表框	列表框				把搜到的加到列表框中
是否带路径	逻辑型				默认为假； 真=带目录路径，如C:\012.txt； 假=不带，如 012.txt；
文件数组	文本型

变量名	类 型	静态	数组	备 注
局_子目录	文本型
局_文件名	文本型
加入列表	逻辑型
src	文本型
i	整数型

如果真 (取文本右边 (欲寻找的目录, 1) ≠ “\”)
欲寻找的目录 ＝ 欲寻找的目录 ＋ “\”
局_文件名 ＝ 寻找文件 (欲寻找的目录 ＋ 欲寻找的文件名, )
加入列表 ＝ 取反 (是否为空 (加入的列表框))
判断循环首 (局_文件名 ≠ “”)
判断 (是否带路径 ＝ 真)
src ＝ 欲寻找的目录 ＋ 局_文件名
src ＝ 局_文件名
i ＝ 取数组成员数 (文件数组) ＋ 1
重定义数组 (文件数组, 真, i)
文件数组 [i] ＝ src
如果真 (加入列表)
加入的列表框.加入项目 (src, )
处理事件 ()
局_文件名 ＝ 寻找文件 (, )
判断循环尾 ()
局_子目录 ＝ 寻找文件 (欲寻找的目录 ＋ “*.*”, #子目录 )
判断循环首 (局_子目录 ≠ “”)
如果真 (取文本左边 (局_子目录, 1) ≠ “.”)
处理事件 ()
如果 (是否为空 (加入的列表框) ＝ 假)
文件_搜索1 (欲寻找的目录 ＋ 局_子目录 ＋ “\”, 欲寻找的文件名, 加入的列表框, 是否带路径, 文件数组)
文件_搜索1 (欲寻找的目录 ＋ 局_子目录 ＋ “\”, 欲寻找的文件名, , 是否带路径, 文件数组)

局_子目录 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()

.版本 2<br /> <br /> .子程序 文件_搜索1, , 公开, 搜索指定的文件路径中的指定后缀的文件并加入到列表框中  在一个子程序中多次调用此命令需清除文件数组后再调用<br /> .参数 欲寻找的目录, 文本型, , 如：C:,表示C盘,记得C字后面两点一定要写<br /> .参数 欲寻找的文件名, 文本型, , 如果寻找全部文件可以填入*.*或*.txt只找txt文件<br /> .参数 加入的列表框, 列表框, 可空, 把搜到的加到列表框中<br /> .参数 是否带路径, 逻辑型, 可空, 默认为假； 真=带目录路径，如C:\012.txt； 假=不带，如 012.txt；<br /> .参数 文件数组, 文本型, 可空 数组<br /> .局部变量 局_子目录, 文本型<br /> .局部变量 局_文件名, 文本型<br /> .局部变量 加入列表, 逻辑型<br /> .局部变量 src, 文本型<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (取文本右边 (欲寻找的目录, 1) ≠ “\”)<br />     欲寻找的目录 ＝ 欲寻找的目录 ＋ “\”<br /> .如果真结束<br /> 局_文件名 ＝ 寻找文件 (欲寻找的目录 ＋ 欲寻找的文件名, )<br /> 加入列表 ＝ 取反 (是否为空 (加入的列表框))<br /> .判断循环首 (局_文件名 ≠ “”)<br />     .判断开始 (是否带路径 ＝ 真)<br />         src ＝ 欲寻找的目录 ＋ 局_文件名<br />     .默认<br />         src ＝ 局_文件名<br />     .判断结束<br />     i ＝ 取数组成员数 (文件数组) ＋ 1<br />     重定义数组 (文件数组, 真, i)<br />     文件数组 <i> ＝ src<br />     .如果真 (加入列表)<br />         加入的列表框.加入项目 (src, )<br />     .如果真结束<br />     处理事件 ()<br />     局_文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> 局_子目录 ＝ 寻找文件 (欲寻找的目录 ＋ “*.*”, #子目录)<br /> .判断循环首 (局_子目录 ≠ “”)<br />     .如果真 (取文本左边 (局_子目录, 1) ≠ “.”)<br />         处理事件 ()<br />         .如果 (是否为空 (加入的列表框) ＝ 假)<br />             文件_搜索1 (欲寻找的目录 ＋ 局_子目录 ＋ “\”, 欲寻找的文件名, 加入的列表框, 是否带路径, 文件数组)<br />         .否则<br />             文件_搜索1 (欲寻找的目录 ＋ 局_子目录 ＋ “\”, 欲寻找的文件名, , 是否带路径, 文件数组)<br />         .如果结束<br /> <br />     .如果真结束<br />     局_子目录 ＝ 寻找文件 (, #子目录)<br /> .判断循环尾 ()

这代码没问题啊,哪里判断两次了