树形框的问题！大神的话很轻松小白的话可以参考！...

a11191489

主要实现的就是   树形框下遍历指定的文件夹和文件

就像是超级列表框搜索全部文件 或者 指定文件一样

明白的人 应该已经明白了   

就是 搜索指定路径下的    信息  然后里面显示了  所在的 1级索引  在有 2级索引 再有3级索引....

福仔

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

编辑框1.内容 ＝ 取特定目录 ( #系统桌面 )

子程序名	返回值类型	公开	备 注
子程序_测试

形成目录 (编辑框1.内容, -1)

子程序名	返回值类型	公开	备 注
形成目录
参数名	类 型	参考	可空	数组	备 注
文件目录	文本型
添加位置	整数型

变量名	类 型	静态	数组	备 注
文件名	文本型
索引	整数型
ii	整数型

如果真 (取文本右边 (文件目录, 1) ≠ “\”)
文件目录 ＝ 文件目录 ＋ “\”
文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, #子目录 )
判断循环首 (文件名 ≠ “”)
处理事件 ()
如果真 (取文本左边 (文件名, 1) ≠ “.”)
索引 ＝ 树型框1.加入项目 (添加位置, 文件目录 ＋ 文件名, 0, , 1, , )
如果真 (是否有子项 (文件目录 ＋ 文件名))
树型框1.加入项目 (索引, “...”, 0, , , , )

文件名 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()
文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, )
判断循环首 (文件名 ≠ “”)
树型框1.加入项目 (添加位置, 文件目录 ＋ 文件名, , , 2, , )
文件名 ＝ 寻找文件 (, )
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_树型框1_即将扩展	逻辑型
参数名	类 型	参考	可空	数组	备 注
项目索引	整数型

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

目录 ＝ 树型框1.取项目文本 (项目索引) ＋ “\” ＋ 目录
判断循环首 (树型框1.取父项目 (项目索引 ＋ 1) ≥ 项目索引)
树型框1.删除项目 (项目索引 ＋ 1)
判断循环尾 ()
形成目录 (目录, 项目索引)

子程序名	返回值类型	公开	备 注
是否有子项	逻辑型
参数名	类 型	参考	可空	数组	备 注
文件目录	文本型

变量名	类 型	静态	数组	备 注
文件名	文本型

如果真 (取文本右边 (文件目录, 1) ≠ “\”)
文件目录 ＝ 文件目录 ＋ “\”
文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, #子目录 )
判断循环首 (文件名 ≠ “”)
如果真 (取文本左边 (文件名, 1) ≠ “.”)
返回 (真)
文件名 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()
文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, )
判断循环首 (文件名 ≠ “”)
返回 (真)
文件名 ＝ 寻找文件 (, )
判断循环尾 ()
返回 (假)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

树型框1.项目 ＝ {  }
启动线程 (&子程序_测试, , )

i支持库列表	支持库注释
shell	操作系统界面功能支持库
iext	扩展界面支持库一
EThread	多线程支持库

.版本 2<br /> .支持库 shell<br /> .支持库 iext<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 编辑框1.内容 ＝ 取特定目录 (#系统桌面)<br /> <br /> .子程序 子程序_测试<br /> <br /> 形成目录 (编辑框1.内容, -1)<br /> <br /> .子程序 形成目录<br /> .参数 文件目录, 文本型<br /> .参数 添加位置, 整数型<br /> .局部变量 文件名, 文本型<br /> .局部变量 索引, 整数型<br /> .局部变量 ii, 整数型<br /> <br /> .如果真 (取文本右边 (文件目录, 1) ≠ “\”)<br />     文件目录 ＝ 文件目录 ＋ “\”<br /> .如果真结束<br /> 文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, #子目录)<br /> .判断循环首 (文件名 ≠ “”)<br />     处理事件 ()<br />     .如果真 (取文本左边 (文件名, 1) ≠ “.”)<br />         索引 ＝ 树型框1.加入项目 (添加位置, 文件目录 ＋ 文件名, 0, , 1, , )<br />         .如果真 (是否有子项 (文件目录 ＋ 文件名))<br />             树型框1.加入项目 (索引, “...”, 0, , , , )<br />         .如果真结束<br /> <br />     .如果真结束<br />     文件名 ＝ 寻找文件 (, #子目录)<br /> .判断循环尾 ()<br /> 文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, )<br /> .判断循环首 (文件名 ≠ “”)<br />     树型框1.加入项目 (添加位置, 文件目录 ＋ 文件名, , , 2, , )<br />     文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> <br /> .子程序 _树型框1_即将扩展, 逻辑型<br /> .参数 项目索引, 整数型<br /> .局部变量 目录, 文本型<br /> <br /> 目录 ＝ 树型框1.取项目文本 (项目索引) ＋ “\” ＋ 目录<br /> .判断循环首 (树型框1.取父项目 (项目索引 ＋ 1) ≥ 项目索引)<br />     树型框1.删除项目 (项目索引 ＋ 1)<br /> .判断循环尾 ()<br /> 形成目录 (目录, 项目索引)<br /> <br /> .子程序 是否有子项, 逻辑型<br /> .参数 文件目录, 文本型<br /> .局部变量 文件名, 文本型<br /> <br /> .如果真 (取文本右边 (文件目录, 1) ≠ “\”)<br />     文件目录 ＝ 文件目录 ＋ “\”<br /> .如果真结束<br /> 文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, #子目录)<br /> .判断循环首 (文件名 ≠ “”)<br />     .如果真 (取文本左边 (文件名, 1) ≠ “.”)<br />         返回 (真)<br />     .如果真结束<br />     文件名 ＝ 寻找文件 (, #子目录)<br /> .判断循环尾 ()<br /> 文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, )<br /> .判断循环首 (文件名 ≠ “”)<br />     返回 (真)<br />     文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> 返回 (假)<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 树型框1.项目 ＝ {  }<br /> 启动线程 (&子程序_测试, , )

a11191489

这里的 1 2  3 4 是 文件夹     文件夹套文件夹 所以需要扩展 谁会帮忙搞搞

呵呵仙

http://www.5a5x.com/06/201404/040710485.html

a11191489

福仔 发表于 2016-8-6 18:06
[e=1]
.版本 2
.支持库 shell

效果不是 我要的效果亲！  你这样写的 我内个一样可以写出来    我需要的效果 你看楼下你例子  差不多 但是！  只显示文件名 和 文件夹的名称  不是显示 中间的路径

a11191489

呵呵仙 发表于 2016-8-6 18:45
http://www.5a5x.com/06/201404/040710485.html

例子是好 我也改了 但是 有几个地方我看不懂  ！ 或者 你帮我回答 一下这个 问题

.版本 2
.支持库 iext

.子程序 _树型框1_即将扩展, 逻辑型
.参数 项目索引, 整数型
.局部变量 a1, 整数型
.局部变量 取项目的文本, 文本型
.局部变量 被搜索的项目文本, 文本型
.局部变量 a2, 整数型
.局部变量 x, 整数型
.局部变量 sz, 整数型, , "0"
.局部变量 存, 整数型
.局部变量 取, 整数型
.局部变量 xxx, 整数型, 静态

.判断循环首 (树型框1.取父项目 (项目索引 ＋ 1) ＝ 项目索引)
    树型框1.删除项目 (项目索引 ＋ 1)
.判断循环尾 ()
取项目的文本 ＝ 树型框1.取项目文本 (项目索引)
.如果真 (取文本右边 (取项目的文本, 1) ≠ “\”)
    取项目的文本 ＝ 取项目的文本 ＋ “\”
.如果真结束
被搜索的项目文本 ＝ 寻找文件 (取项目的文本 ＋ “*.*”, #存档文件 ＋ #子目录)

.判断循环首 (被搜索的项目文本 ≠ “”)
    .如果真 (取文本左边 (被搜索的项目文本, 1) ≠ “.”)
        路径 ＝ 取项目的文本 ＋ 被搜索的项目文本
        a1 ＝ a1 ＋ 1
        ' a2 ＝ 树型框1.加入项目 (项目索引, 路径, , , , 真, )
        文件搜索 (a1, 路径)
    .如果真结束


    被搜索的项目文本 ＝ 寻找文件 (, #存档文件 ＋ #子目录)
.判断循环尾 ()



这段里的 被注释的内句话  ' a2 ＝ 树型框1.加入项目 (项目索引, 路径, , , , 真, )
不用 加入项目就能取出 值 信息 路径...    因为这样取出来的  显示的是全路径下的

a11191489

这是我改版后的  比你们写的简单多了...... 但是  没法把路径给隐藏掉   还有！！  你们的效果真不是 -0 - 我想要的   这个 效果才是 如果你们帮我解决 这个 所谓的简单的问题  我就设置为最佳答案

福仔

a11191489 发表于 2016-8-8 19:42
效果不是 我要的效果亲！  你这样写的 我内个一样可以写出来    我需要的效果 你看楼下你例子  差不多 但 ...

不想要路径在加入树形框的时候不要加入路径就可以了,路径是参数  文件目录