精易培训 13、使用树形框组件来完善文件浏览器 第十三课.

金星大王

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
程序集_找到文件	文本型
程序集_文件大小	双精度小数型
程序集_文件时间	日期时间型

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

树型框1.清空 ()
按钮1.禁止 ＝ 真
子程序1查找 (编辑框1.内容, )
状态条1.置文本 (1, “”)
按钮1.禁止 ＝ 假

子程序名	返回值类型	公开	备 注
子程序1查找
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
父项目索引	整数型

变量名	类 型	静态	数组	备 注
临时索引	整数型

如果真 (取文本右边 (文件路径, 1) ≠ “\”)
文件路径 ＝ 文件路径 ＋ “\”
如果真 (是否为空 (父项目索引) ＝ 真)
父项目索引 ＝ -1
程序集_找到文件 ＝ 寻找文件 (文件路径 ＋ “*.*”, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
状态条1.置文本 (1, 文件路径 ＋ 程序集_找到文件)
判断循环首 (程序集_找到文件 ≠ “”)
如果真 (程序集_找到文件 ＝ “.” 或 程序集_找到文件 ＝ “..”)
程序集_找到文件 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
到循环尾 ()
临时索引 ＝ 树型框1.加入项目 (父项目索引, 程序集_找到文件, , , , , )
如果真 (取文件属性 (文件路径 ＋ 程序集_找到文件) ＝ #子目录 )
子程序1查找 (文件路径 ＋ 程序集_找到文件, 临时索引)
程序集_找到文件 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
到循环尾 ()
处理事件 ()
程序集_找到文件 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
判断循环尾 ()

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

列表框1.清空 ()
子程序1获取选中信息 ()

子程序名	返回值类型	公开	备 注
子程序1获取选中信息
参数名	类 型	参考	可空	数组	备 注
参数_选中	整数型

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

文件路径 ＝ 编辑框1.内容 ＋ “\”
参数_选中 ＝ 树型框1.取父项目 (树型框1.现行选中项)
判断循环首 (参数_选中 ≠ -1)
加入成员 (数组, 树型框1.取项目文本 (参数_选中) ＋ “\”)
参数_选中 ＝ 树型框1.取父项目 (参数_选中)
判断循环尾 ()
计次循环首 (取数组成员数 (数组), i)
文件路径 ＝ 文件路径 ＋ 数组 [i]
计次循环尾 ()
程序集_找到文件 ＝ 树型框1.取项目文本 (树型框1.现行选中项)
程序集_文件大小 ＝ 四舍五入 (取文件尺寸 (文件路径 ＋ 树型框1.取项目文本 (树型框1.现行选中项)) ÷ 1024, 1)
程序集_文件时间 ＝ 取文件时间 (文件路径 ＋ 树型框1.取项目文本 (树型框1.现行选中项))
列表框1.加入项目 (“标题:” ＋ 程序集_找到文件, 0)
列表框1.加入项目 (“大小:” ＋ 到文本 (程序集_文件大小), 1)
列表框1.加入项目 (“时间:” ＋ 到文本 (程序集_文件时间), 2)
列表框1.加入项目 (“路径:” ＋ 文件路径, 0)

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

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 程序集_找到文件, 文本型<br /> .程序集变量 程序集_文件大小, 双精度小数型<br /> .程序集变量 程序集_文件时间, 日期时间型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 树型框1.清空 ()<br /> 按钮1.禁止 ＝ 真<br /> 子程序1查找 (编辑框1.内容, )<br /> 状态条1.置文本 (1, “”)<br /> 按钮1.禁止 ＝ 假<br /> <br /> .子程序 子程序1查找<br /> .参数 文件路径, 文本型<br /> .参数 父项目索引, 整数型, 可空<br /> .局部变量 临时索引, 整数型<br /> <br /> .如果真 (取文本右边 (文件路径, 1) ≠ “\”)<br />     文件路径 ＝ 文件路径 ＋ “\”<br /> .如果真结束<br /> .如果真 (是否为空 (父项目索引) ＝ 真)<br />     父项目索引 ＝ -1<br /> .如果真结束<br /> 程序集_找到文件 ＝ 寻找文件 (文件路径 ＋ “*.*”, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)<br /> 状态条1.置文本 (1, 文件路径 ＋ 程序集_找到文件)<br /> .判断循环首 (程序集_找到文件 ≠ “”)<br />     .如果真 (程序集_找到文件 ＝ “.” 或 程序集_找到文件 ＝ “..”)<br />         程序集_找到文件 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)<br />         到循环尾 ()<br />     .如果真结束<br />     临时索引 ＝ 树型框1.加入项目 (父项目索引, 程序集_找到文件, , , , , )<br />     .如果真 (取文件属性 (文件路径 ＋ 程序集_找到文件) ＝ #子目录)<br />         子程序1查找 (文件路径 ＋ 程序集_找到文件, 临时索引)<br />         程序集_找到文件 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)<br />         到循环尾 ()<br />     .如果真结束<br />     处理事件 ()<br />     程序集_找到文件 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)<br /> .判断循环尾 ()<br /> <br /> .子程序 _树型框1_项目被选择<br /> .参数 选择方式, 整数型<br /> <br /> 列表框1.清空 ()<br /> 子程序1获取选中信息 ()<br /> <br /> <br /> .子程序 子程序1获取选中信息<br /> .参数 参数_选中, 整数型, 可空<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 文件路径, 文本型<br /> <br /> 文件路径 ＝ 编辑框1.内容 ＋ “\”<br /> 参数_选中 ＝ 树型框1.取父项目 (树型框1.现行选中项)<br /> .判断循环首 (参数_选中 ≠ -1)<br />     加入成员 (数组, 树型框1.取项目文本 (参数_选中) ＋ “\”)<br />     参数_选中 ＝ 树型框1.取父项目 (参数_选中)<br /> .判断循环尾 ()<br /> .计次循环首 (取数组成员数 (数组), i)<br />     文件路径 ＝ 文件路径 ＋ 数组 <i><br /> .计次循环尾 ()<br /> 程序集_找到文件 ＝ 树型框1.取项目文本 (树型框1.现行选中项)<br /> 程序集_文件大小 ＝ 四舍五入 (取文件尺寸 (文件路径 ＋ 树型框1.取项目文本 (树型框1.现行选中项)) ÷ 1024, 1)<br /> 程序集_文件时间 ＝ 取文件时间 (文件路径 ＋ 树型框1.取项目文本 (树型框1.现行选中项))<br /> 列表框1.加入项目 (“标题:” ＋ 程序集_找到文件, 0)<br /> 列表框1.加入项目 (“大小:” ＋ 到文本 (程序集_文件大小), 1)<br /> 列表框1.加入项目 (“时间:” ＋ 到文本 (程序集_文件时间), 2)<br /> 列表框1.加入项目 (“路径:” ＋ 文件路径, 0)

cam1992

感谢分享，很给力！~

h1003591791

感谢分享

真IKUN

感谢分享，很给力！~

qq977352880

这个就像一盏指路灯，帮我指明了方向。

原始世界

谢谢分享

ynygu

支持一波,了解一下

Front锋

支持一波,了解一下

金星大王

还有一个简单的

金星大王

.版本 2
.支持库 iext

.子程序 _树型框1_项目被选择
.参数 选择方式, 整数型
.局部变量 选中, 整数型
.局部变量 数组, 文本型, , "0"
.局部变量 完整路径, 文本型
.局部变量 记录, 整数型

完整路径 ＝ 编辑框1.内容 ＋ “\”
选中 ＝ 树型框1.取父项目 (树型框1.现行选中项)
.判断循环首 (选中 ≠ -1)
    加入成员 (数组, 树型框1.取项目文本 (选中) ＋ “\”)
    选中 ＝ 树型框1.取父项目 (选中)
.判断循环尾 ()
.计次循环首 (取数组成员数 (数组), 记录)
    完整路径 ＝ 完整路径 ＋ 数组 [记录]
.计次循环尾 ()
程序集_文件名 ＝ 树型框1.取项目文本 (树型框1.现行选中项)