枚举子目录的时候如何屏蔽一些不需要目录

fksdehfk778

局_子目录个数 ＝ 目录_枚举子目录 (局_父目录, 局_子目录数组, 真, 真)
比如这个命令。
我文件夹里面 的子目录，  正常子目录的名字 都是   1  2   3  4   5  6  7  这样数字目录。然后还有一个中文的目录，比如叫“已存在”
那么我用这个命令的时候，数组里面就包含所有的目录，
我现在的诉求是 只要数字名字的子目录， 中文名字或者字母名字的子目录  给他排除外
这个怎么写

从前的少年

如果不修改子程序源码就过滤

  

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

变量名	类 型	静态	数组	备 注
文件夹	文本型		0
文件夹1	文本型		0
i	整数型

目录_枚举子目录 (取运行目录 (), 文件夹, 真)
计次循环首 (取数组成员数 (文件夹), i)
如果真 (文本_是否为数字 (文件_取文件名 (文件夹 [i])))
加入成员 (文件夹1, 文件夹 [i])

计次循环尾 ()
调试输出 (文件夹1)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文件夹, 文本型, , "0"<br /> .局部变量 文件夹1, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 目录_枚举子目录 (取运行目录 (), 文件夹, 真)<br /> .计次循环首 (取数组成员数 (文件夹), i)<br />     .如果真 (文本_是否为数字 (文件_取文件名 (文件夹 <i>)))<br />         加入成员 (文件夹1, 文件夹 <i>)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (文件夹1)

从前的少年

．．．．．．．．．．．．．

b0y

自己处理掉啊,

钥匙key

改造枚举程序。或者使用枚举的另外两个。其中有个以回调方式的。在回调里面验证目录名称。符合就添加。不符合就过滤掉。

夏天吃了春天

  

变量名	类 型	静态	数组	备 注
子目录数组	文本型		0

如果真 (文本_是否为字母 (删全部空 (“文本字符[文本型]”)) ≠ 真 且 文本_是否为汉字 (删全部空 (“欲判断文本[文本型]”), ) ≠ 真)
目录_枚举子目录 (“父文件夹路径[文本型]”, 子目录数组, , )

.版本 2<br /> <br /> .局部变量 子目录数组, 文本型, , "0"<br /> <br /> .如果真 (文本_是否为字母 (删全部空 (“文本字符[文本型]”)) ≠ 真 且 文本_是否为汉字 (删全部空 (“欲判断文本[文本型]”), ) ≠ 真)<br />     目录_枚举子目录 (“父文件夹路径[文本型]”, 子目录数组, , )<br /> <br /> .如果真结束

从前的少年

  

子程序名	返回值类型	公开	备 注
目录_枚举子目录_数字	整数型		取一个文件夹下级子目录；成功返回子目录数量，失败返回0；
参数名	类 型	参考	可空	数组	备 注
父文件夹路径	文本型				如：D:\Program Files；目录分割符请用\，路径不以\结尾会自动添加
子目录数组	文本型				用来装载返回的子目录路径；
是否带路径	逻辑型				假=不带，真=带;
是否按字母排序	逻辑型				默认为假；真=按字母a-z排序  假=不排序

变量名	类 型	静态	数组	备 注
子目录名	文本型
局_目录	文本型

局_目录 ＝ 父文件夹路径
如果真 (取文本右边 (局_目录, 1) ≠ “\”)
局_目录 ＝ 局_目录 ＋ “\”
子目录名 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录 )
判断循环首 (子目录名 ≠ “”)
如果真 (子目录名 ≠ “.” 且 子目录名 ≠ “..”)
如果真 (文本_是否为数字 (子目录名))
如果 (是否带路径 ＝ 假)
加入成员 (子目录数组, 子目录名)
加入成员 (子目录数组, 局_目录 ＋ 子目录名)


子目录名 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()
如果真 (是否按字母排序)
数组_排序 (子目录数组, 0, )
返回 (取数组成员数 (子目录数组))

.版本 2<br /> <br /> .子程序 目录_枚举子目录_数字, 整数型, 公开, 取一个文件夹下级子目录；成功返回子目录数量，失败返回0；<br /> .参数 父文件夹路径, 文本型, , 如：D:\Program Files；目录分割符请用\，路径不以\结尾会自动添加<br /> .参数 子目录数组, 文本型, 参考 可空 数组, 用来装载返回的子目录路径；<br /> .参数 是否带路径, 逻辑型, 可空, 假=不带，真=带;<br /> .参数 是否按字母排序, 逻辑型, 可空, 默认为假；真=按字母a-z排序  假=不排序<br /> .局部变量 子目录名, 文本型<br /> .局部变量 局_目录, 文本型<br /> <br /> 局_目录 ＝ 父文件夹路径<br /> .如果真 (取文本右边 (局_目录, 1) ≠ “\”)<br />     局_目录 ＝ 局_目录 ＋ “\”<br /> .如果真结束<br /> 子目录名 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录)<br /> .判断循环首 (子目录名 ≠ “”)<br />     .如果真 (子目录名 ≠ “.” 且 子目录名 ≠ “..”)<br />         .如果真 (文本_是否为数字 (子目录名))<br />             .如果 (是否带路径 ＝ 假)<br />                 加入成员 (子目录数组, 子目录名)<br />             .否则<br />                 加入成员 (子目录数组, 局_目录 ＋ 子目录名)<br />             .如果结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br />     子目录名 ＝ 寻找文件 (, #子目录)<br /> .判断循环尾 ()<br /> .如果真 (是否按字母排序)<br />     数组_排序 (子目录数组, 0, )<br /> .如果真结束<br /> 返回 (取数组成员数 (子目录数组))