文件取所有父目录

pyms

因为写软件需要，找了论坛只有获取文件上一级父目录，不能获取所有父目录，所以就写了一个，就当给自己备份一下吧。

  

子程序名	返回值类型	公开	备 注
取路径所有目录			自编取路径所有目录
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型				例如：D:\试验曲线xx\202004\20200426\202000_1_016_20200426114452.txt
返回所有子目录	文本型				用一个文本数组装载

变量名	类 型	静态	数组	备 注
文本	文本型		0
i	整数型
文本数组成员数	整数型
临时存储1	文本型

文本 ＝ 分割文本 (文件路径, “\”, )
判断 (取数组成员数 (文本) ＝ 2)
加入成员 (返回所有子目录, 文件路径)
文本数组成员数 ＝ 取数组成员数 (文本) － 1
加入成员 (返回所有子目录, 文本 [1])
计次循环首 (文本数组成员数 － 1, i)
临时存储1 ＝ 文本 [i ＋ 1]
加入成员 (返回所有子目录, 返回所有子目录 [i] ＋ “\” ＋ 临时存储1)
计次循环尾 ()
删除成员 (返回所有子目录, 1, 1)

.版本 2<br /> <br /> .子程序 取路径所有目录, , , 自编取路径所有目录<br /> .参数 文件路径, 文本型, , 例如：D:\试验曲线xx\202004\20200426\202000_1_016_20200426114452.txt<br /> .参数 返回所有子目录, 文本型, 参考 数组, 用一个文本数组装载<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 文本数组成员数, 整数型<br /> .局部变量 临时存储1, 文本型<br /> <br /> 文本 ＝ 分割文本 (文件路径, “\”, )<br /> .判断开始 (取数组成员数 (文本) ＝ 2)<br />     加入成员 (返回所有子目录, 文件路径)<br /> .默认<br />     文本数组成员数 ＝ 取数组成员数 (文本) － 1<br />     加入成员 (返回所有子目录, 文本 [1])<br />     .计次循环首 (文本数组成员数 － 1, i)<br />         临时存储1 ＝ 文本 [i ＋ 1]<br />         加入成员 (返回所有子目录, 返回所有子目录 <i> ＋ “\” ＋ 临时存储1)<br />     .计次循环尾 ()<br />     删除成员 (返回所有子目录, 1, 1)

newlegou

支持精易论坛支持精易论坛支持精易论坛

外星星人

不错不错

pyms

奇亿Reno 发表于 2020-4-27 18:46
你这个写的有问题，加入成员 (返回所有子目录, 返回所有子目录  ＋ “\” ＋ 临时存储1)中的改成。其他还有 ...

只是复制粘贴会出现这样

pyms

奇亿Reno 发表于 2020-4-27 18:46
你这个写的有问题，加入成员 (返回所有子目录, 返回所有子目录  ＋ “\” ＋ 临时存储1)中的改成。其他还有 ...

我这就是

一尘不染

你这个写的有问题，加入成员 (返回所有子目录, 返回所有子目录 <i> ＋ “\” ＋ 临时存储1)中的<i>改成[i]。其他还有没有问题你们去调试一下看看