简单但实用，希望加到精易模块，目录保留几层，去掉几层

airaz

福仔 发表于 2024-6-24 19:27
提供一个提高效率的方法
使用查找文本, 保留n层就找n次, 最后一个找到的就是层数, 然后取文本左边, 效率比 ...

查什么文本？ “\“  ？

笨来无一悟

调用系统API 提速4倍

  

子程序名	返回值类型	公开	备 注
上层目录	文本型
参数名	类 型	参考	可空	数组	备 注
完整目录	文本型
减去层数	整数型

计次循环首 (减去层数, )
如果真 (PathRemoveFileSpec (完整目录) ＝ 0)
跳出循环 ()

计次循环尾 ()
返回 (完整目录)

DLL命令名	返回值类型	公开	备 注
PathRemoveFileSpec	整数型		公开, 删除结尾的文件名和反斜杠路径，如果有他们。
DLL库文件名:
Shlwapi.dll
在DLL库中对应命令名:
PathRemoveFileSpecA
参数名	类 型	传址	数组	备 注
pszPath	文本型

.版本 2<br /> <br /> .子程序 上层目录, 文本型<br /> .参数 完整目录, 文本型<br /> .参数 减去层数, 整数型<br /> <br /> .计次循环首 (减去层数, )<br />     .如果真 (PathRemoveFileSpec (完整目录) ＝ 0)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (完整目录)<br /> .版本 2<br /> <br /> .DLL命令 PathRemoveFileSpec, 整数型, "Shlwapi.dll", "PathRemoveFileSpecA", , 公开, 删除结尾的文件名和反斜杠路径，如果有他们。<br />     .参数 pszPath, 文本型

笨来无一悟

b0y 发表于 2024-6-24 16:05
有个api好像也可以  忘了

精易模块里面有不过看介绍 是取文件的上层

福仔

提供一个提高效率的方法
使用查找文本, 保留n层就找n次, 最后一个找到的就是层数, 然后取文本左边, 效率比你这个要快很多

Suky

b0y 发表于 2024-6-24 16:05
有个api好像也可以  忘了

忘记的不算数

jtucar

支持开源~！感谢分享

笨来无一悟

这样就不怕用户乱搞了

  

子程序名	返回值类型	公开	备 注
目录_取上层目录	文本型		樊高科技
参数名	类 型	参考	可空	数组	备 注
完整目录	文本型
减去层数	整数型

变量名	类 型	静态	数组	备 注
计次	整数型
分割	文本型		0
返回	文本型

分割 ＝ 分割文本 (完整目录, “\”, )
如果真 (取数组成员数 (分割) － 减去层数 ＜ 1)
返回 (分割 [1] ＋ “\”)
计次循环首 (取数组成员数 (分割) － 减去层数, 计次)
返回 ＝ 返回 ＋ 分割 [计次] ＋ “\”
计次循环尾 ()
返回 (返回)

.版本 2<br /> <br /> .子程序 目录_取上层目录, 文本型, , 樊高科技<br /> .参数 完整目录, 文本型<br /> .参数 减去层数, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 返回, 文本型<br /> <br /> 分割 ＝ 分割文本 (完整目录, “\”, )<br /> .如果真 (取数组成员数 (分割) － 减去层数 ＜ 1)<br />     返回 (分割 [1] ＋ “\”)<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (分割) － 减去层数, 计次)<br />     返回 ＝ 返回 ＋ 分割 [计次] ＋ “\”<br /> .计次循环尾 ()<br /> 返回 (返回)

笨来无一悟

加了防呆设计 牺牲性能换取稳定

  

子程序名	返回值类型	公开	备 注
目录_保留几层目录	文本型		wndh8.com
参数名	类 型	参考	可空	数组	备 注
完整目录	文本型
保留层数	整数型

变量名	类 型	静态	数组	备 注
计次	整数型
分割	文本型		0
返回	文本型

分割 ＝ 分割文本 (完整目录, “\”, )
如果真 (取数组成员数 (分割) ≤ 保留层数)
返回 (完整目录)
计次循环首 (取数组成员数 (分割), 计次)
返回 ＝ 返回 ＋ 分割 [计次] ＋ “\”
如果真 (计次 ＝ 保留层数)
跳出循环 ()

计次循环尾 ()
返回 (返回)

.版本 2<br /> <br /> .子程序 目录_保留几层目录, 文本型, , wndh8.com<br /> .参数 完整目录, 文本型<br /> .参数 保留层数, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 返回, 文本型<br /> <br /> 分割 ＝ 分割文本 (完整目录, “\”, )<br /> .如果真 (取数组成员数 (分割) ≤ 保留层数)<br />     返回 (完整目录)<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (分割), 计次)<br />     返回 ＝ 返回 ＋ 分割 [计次] ＋ “\”<br />     .如果真 (计次 ＝ 保留层数)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (返回)

airaz

笨来无一悟 发表于 2024-6-24 16:39
我之前捣鼓了一个比精易模块更简洁的写法 但是存在一个问题 如果传入的目录本身就已经是根目录了 就会返回  ...

好吧在加个判断吧

笨来无一悟

我之前捣鼓了一个比精易模块更简洁的写法 但是存在一个问题 如果传入的目录本身就已经是根目录了 就会返回 C: D:这样的模块需要考虑用户有没有什么不正确的调用方式 不做防呆设计有可能因为用户乱用导致出错 一做防呆设计速度又慢了