树形框路径全取问题

KD飞飞

树形框1
希望左键点击一下 取出
sop\新建文件夹\开开ka.pdf
这一串文本
就是最下层文件的向下路径




补充内容 (2025-11-21 15:39):
以自行解决，在二楼 悬赏 找个人抽了 自己回复，随机抽

补充内容 (2025-11-21 15:55):
啊二楼源码不对，还没解决~ 在多个项目时，下面的项目会显示异常

补充内容 (2025-11-21 16:09):
5楼写对了

baitso

有这么好的事

KD飞飞

问题已解决

楼下找个人抽了

  

子程序名	返回值类型	公开	备 注
_树型框1_左键单击项目
参数名	类 型	参考	可空	数组	备 注
项目句柄	整数型

变量名	类 型	静态	数组	备 注
选中文本	文本型
a	整数型
n	整数型
主目录	文本型
全文件路径	文本型

选中文本 ＝ 树型框1.取项目文本 (树型框1.现行选中项)
如果 (寻找文本 (选中文本, “.”, , 假) ≠ -1)
编辑框4.内容 ＝ 选中文本
主目录 ＝ 取出目录 (树型框1.现行选中项)
全文件路径 ＝ 主目录 ＋ 选中文本
调试输出 (全文件路径)



编辑框4.内容 ＝ “”

子程序名	返回值类型	公开	备 注
取出目录	文本型
参数名	类 型	参考	可空	数组	备 注
索引

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

变量循环首 (树型框1.取父项目 (索引), 0, -1, i)
目录 ＝ 树型框1.取项目文本 (i) ＋ “\” ＋ 目录
变量循环尾 ()
返回 (目录)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _树型框1_左键单击项目<br /> .参数 项目句柄, 整数型<br /> .局部变量 选中文本, 文本型<br /> .局部变量 a, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 主目录, 文本型<br /> .局部变量 全文件路径, 文本型<br /> <br /> 选中文本 ＝ 树型框1.取项目文本 (树型框1.现行选中项)<br /> .如果 (寻找文本 (选中文本, “.”, , 假) ≠ -1)<br />     编辑框4.内容 ＝ 选中文本<br />     主目录 ＝ 取出目录 (树型框1.现行选中项)<br />     全文件路径 ＝ 主目录 ＋ 选中文本<br />     调试输出 (全文件路径)<br /> <br /> .否则<br /> <br />     编辑框4.内容 ＝ “”<br /> .如果结束<br /> <br /> <br /> .子程序 取出目录, 文本型<br /> .参数 索引<br /> .局部变量 i<br /> .局部变量 目录, 文本型<br /> <br /> .变量循环首 (树型框1.取父项目 (索引), 0, -1, i)<br />     目录 ＝ 树型框1.取项目文本 (i) ＋ “\” ＋ 目录<br /> .变量循环尾 ()<br /> 返回 (目录)

圆圈

你最棒

KD飞飞

这下对了

  

子程序名	返回值类型	公开	备 注
_树型框1_项目被选择
参数名	类 型	参考	可空	数组	备 注
选择方式	整数型

变量名	类 型	静态	数组	备 注
选中文本	文本型
当前项目文本	文本型
父项目文本	文本型
项目索引	整数型
完整项目文本	文本型
去头路径	文本型

判断 (选择方式 ＝ 1)
项目索引 ＝ 树型框1.取父项目 (树型框1.现行选中项)
当前项目文本 ＝ 树型框1.取项目文本 (树型框1.现行选中项)
如果真 (项目索引 ≠ -1)
判断循环首 (项目索引 ≠ -1)
父项目文本 ＝ 树型框1.取项目文本 (项目索引) ＋ “/” ＋ 父项目文本
项目索引 ＝ 树型框1.取父项目 (项目索引)
判断循环尾 ()
完整项目文本 ＝ 父项目文本 ＋ 当前项目文本




选中文本 ＝ 树型框1.取项目文本 (树型框1.现行选中项)
如果 (寻找文本 (选中文本, “.”, , 假) ≠ -1)
编辑框4.内容 ＝ 选中文本
去头路径 ＝ 取文本右边 (完整项目文本, 取文本长度 (完整项目文本) － 寻找文本 (完整项目文本, “/”, , 假))
编辑框2.内容 ＝ 编辑框14.内容 ＋ 去头路径



编辑框4.内容 ＝ “”
编辑框2.内容 ＝ “”

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _树型框1_项目被选择<br /> .参数 选择方式, 整数型<br /> .局部变量 选中文本, 文本型<br /> .局部变量 当前项目文本, 文本型<br /> .局部变量 父项目文本, 文本型<br /> .局部变量 项目索引, 整数型<br /> .局部变量 完整项目文本, 文本型<br /> .局部变量 去头路径, 文本型<br /> <br /> .判断开始 (选择方式 ＝ 1)<br />     项目索引 ＝ 树型框1.取父项目 (树型框1.现行选中项)<br />     当前项目文本 ＝ 树型框1.取项目文本 (树型框1.现行选中项)<br />     .如果真 (项目索引 ≠ -1)<br />         .判断循环首 (项目索引 ≠ -1)<br />             父项目文本 ＝ 树型框1.取项目文本 (项目索引) ＋ “/” ＋ 父项目文本<br />             项目索引 ＝ 树型框1.取父项目 (项目索引)<br />         .判断循环尾 ()<br />     .如果真结束<br />     完整项目文本 ＝ 父项目文本 ＋ 当前项目文本<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> 选中文本 ＝ 树型框1.取项目文本 (树型框1.现行选中项)<br /> .如果 (寻找文本 (选中文本, “.”, , 假) ≠ -1)<br />     编辑框4.内容 ＝ 选中文本<br />     去头路径 ＝ 取文本右边 (完整项目文本, 取文本长度 (完整项目文本) － 寻找文本 (完整项目文本, “/”, , 假))<br />     编辑框2.内容 ＝ 编辑框14.内容 ＋ 去头路径<br /> <br /> <br /> .否则<br /> <br />     编辑框4.内容 ＝ “”<br />     编辑框2.内容 ＝ “”<br /> .如果结束

KD飞飞

5楼写对了