提取目录树、恢复目录树

伐木堆0

  

子程序名	返回值类型	公开	备 注
_提取目录树按钮_被单击

变量名	类 型	静态	数组	备 注
目录路径	文本型
保存路径	文本型

目录路径 ＝ 目录_浏览 (“请选择要提取目录树的文件夹”, , , , , )
如果真 (目录路径 ＝ “”)
返回 ()

当前目录 ＝ 目录路径
编辑框1.加入文本 (“正在提取目录树...” ＋ #换行符 )
保存路径 ＝ 取当前目录 () ＋ “\目录树_” ＋ 取现行时间戳 () ＋ “.txt”
如果 (提取目录树 (目录路径, 保存路径))
编辑框1.加入文本 (“目录树提取成功！” ＋ #换行符 )
编辑框1.加入文本 (“保存路径：” ＋ 保存路径 ＋ #换行符 )
编辑框1.加入文本 (“目录树提取失败！” ＋ #换行符 )

子程序名	返回值类型	公开	备 注
_恢复目录树按钮_被单击

变量名	类 型	静态	数组	备 注
文件路径	文本型
目标目录	文本型

通用对话框1.过滤器 ＝ “文本文件(*.txt)|*.txt”
通用对话框1.默认文件后缀 ＝ “txt”
如果 (通用对话框1.打开 ())
文件路径 ＝ 通用对话框1.文件名
返回 ()

目标目录 ＝ 目录_浏览 (“请选择要恢复目录结构的目标文件夹”, , , , , )
如果真 (目标目录 ＝ “”)
返回 ()

编辑框1.加入文本 (“正在恢复目录结构...” ＋ #换行符 )
如果 (恢复目录结构 (文件路径, 目标目录))
编辑框1.加入文本 (“目录结构恢复成功！” ＋ #换行符 )
编辑框1.加入文本 (“目标路径：” ＋ 目标目录 ＋ #换行符 )
编辑框1.加入文本 (“目录结构恢复失败！” ＋ #换行符 )

子程序名	返回值类型	公开	备 注
提取目录树	逻辑型
参数名	类 型	参考	可空	数组	备 注
目录路径	文本型
保存路径	文本型

变量名	类 型	静态	数组	备 注
文件号	整数型
深度	整数型

深度 ＝ 0
文件号 ＝ 打开文件 (保存路径, #重写, )
如果真 (文件号 ＝ 0)
返回 (假)

写文本行 (文件号, “目录树提取时间：” ＋ 到文本 (取现行时间 ()))
写文本行 (文件号, “根目录：” ＋ 目录路径)
写文本行 (文件号, “”)
写文本行 (文件号, “目录结构如下：”)
写文本行 (文件号, “”)
遍历目录结构1 (目录路径, 文件号, 深度)
关闭文件 (文件号)
返回 (真)

子程序名	返回值类型	公开	备 注
遍历目录结构1
参数名	类 型	参考	可空	数组	备 注
当前路径	文本型
文件号	整数型
深度	整数型

变量名	类 型	静态	数组	备 注
文件名	文本型
完整路径	文本型
属性	整数型
缩进	文本型
i	整数型
目录列表	文本型		0
文件列表	文本型		0
j	整数型

' 生成缩进字符串
缩进 ＝ “”
计次循环首 (深度, i)
缩进 ＝ 缩进 ＋ “│   ”
计次循环尾 ()
' 先收集所有目录
文件名 ＝ 寻找文件 (当前路径 ＋ “\*.*”, #子目录 )
判断循环首 (文件名 ≠ “”)
如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
完整路径 ＝ 当前路径 ＋ “\” ＋ 文件名
属性 ＝ 取文件属性 (完整路径)
如果真 (位与 (属性, #子目录 ) ≠ 0)
' 如果是目录，添加到目录列表
加入成员 (目录列表, 文件名)

文件名 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()
如果真 (提取文件选择框.选中)
' 再收集所有文件
文件名 ＝ 寻找文件 (当前路径 ＋ “\*.*”, 33)
判断循环首 (文件名 ≠ “”)
如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
完整路径 ＝ 当前路径 ＋ “\” ＋ 文件名
属性 ＝ 取文件属性 (完整路径)
如果真 (位与 (属性, #子目录 ) ＝ 0)
' 如果是文件，添加到文件列表
加入成员 (文件列表, 文件名)

文件名 ＝ 寻找文件 (, 33)
判断循环尾 ()

' 先输出所有目录（保持同一深度）
计次循环首 (取数组成员数 (目录列表), j)
完整路径 ＝ 当前路径 ＋ “\” ＋ 目录列表 [j]
' 输出目录信息
写文本行 (文件号, 缩进 ＋ “├─ ” ＋ 目录列表 [j] ＋ “ [目录]”)
' 递归遍历子目录
遍历目录结构1 (完整路径, 文件号, 深度 ＋ 1)
计次循环尾 ()
如果真 (提取文件选择框.选中)
' 再输出所有文件（保持同一深度）
计次循环首 (取数组成员数 (文件列表), j)
完整路径 ＝ 当前路径 ＋ “\” ＋ 文件列表 [j]
' 输出文件信息
写文本行 (文件号, 缩进 ＋ “├─ ” ＋ 文件列表 [j] ＋ “ [文件]”)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
恢复目录结构	逻辑型
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
目标目录	文本型

变量名	类 型	静态	数组	备 注
文件号	整数型
行内容	文本型
目录堆栈	文本型		0
当前深度	整数型
新深度	整数型
目录名	文本型
完整路径	文本型
根目录路径	文本型

文件号 ＝ 打开文件 (文件路径, #读入, )
如果真 (文件号 ＝ 0)
返回 (假)

' 清空堆栈
重定义数组 (目录堆栈, 假, 0)
' 将目标目录作为根目录
加入成员 (目录堆栈, 目标目录)
移到文件首 (文件号)
判断循环首 (是否在文件尾 (文件号, ) ＝ 假)
行内容 ＝ 读入一行 (文件号)
' 跳过说明行和空行
如果真 (寻找文本 (行内容, “目录树提取时间：”, , 假) ≠ -1)
到循环尾 ()
如果真 (寻找文本 (行内容, “根目录：”, , 假) ≠ -1)
' 提取原始根目录路径，用于后续处理
根目录路径 ＝ 取文本右边 (行内容, 取文本长度 (行内容) － 7)
到循环尾 ()
如果真 (寻找文本 (行内容, “目录结构如下：”, , 假) ≠ -1)
到循环尾 ()
如果真 (删首尾空 (行内容) ＝ “”)
到循环尾 ()

' 处理目录行
如果真 (寻找文本 (行内容, “[目录]”, , 假) ≠ -1)
新深度 ＝ 计算目录深度 (行内容)
调试输出 (新深度)
目录名 ＝ 提取目录名称 (行内容)
' 调整目录堆栈
如果真 (新深度 ＜ 取数组成员数 (目录堆栈) － 1)
' 如果新深度小于当前深度，需要回退堆栈
重定义数组 (目录堆栈, 真, 新深度 ＋ 1)

' 构建完整路径
完整路径 ＝ 目录堆栈 [新深度 ＋ 1] ＋ “\” ＋ 目录名
' 创建目录
如果真 (取反 (目录是否存在 (完整路径)))
创建目录 (完整路径)

' 更新目录堆栈
如果 (新深度 ＋ 1 ＝ 取数组成员数 (目录堆栈))
' 如果是新层级，添加到堆栈
加入成员 (目录堆栈, 完整路径)
' 如果是同层级，替换当前层
目录堆栈 [新深度 ＋ 2] ＝ 完整路径


判断循环尾 ()
关闭文件 (文件号)
返回 (真)

子程序名	返回值类型	公开	备 注
计算目录深度	整数型
参数名	类 型	参考	可空	数组	备 注
行内容	文本型

变量名	类 型	静态	数组	备 注
深度	整数型
位置	整数型
缩进单位	文本型

' 深度 ＝ 0
' 位置 ＝ 1
缩进单位 ＝ “│   ”
深度 ＝ 文本_取出现次数 (行内容, 缩进单位, 假)
返回 (深度)

子程序名	返回值类型	公开	备 注
提取目录名称	文本型
参数名	类 型	参考	可空	数组	备 注
行内容	文本型

变量名	类 型	静态	数组	备 注
开始位置	整数型
结束位置	整数型
目录名	文本型

' 查找 "├─ " 的位置
开始位置 ＝ 寻找文本 (行内容, “├─ ”, , 假)
如果真 (开始位置 ＝ -1)
返回 (“”)

开始位置 ＝ 开始位置 ＋ 4  ' 跳过 "├─ "
' 查找 " [目录]" 的位置
结束位置 ＝ 寻找文本 (行内容, “ [目录]”, 开始位置, 假)
如果真 (结束位置 ＝ -1)
返回 (“”)

目录名 ＝ 取文本中间 (行内容, 开始位置, 结束位置 － 开始位置)
目录名 ＝ 删首尾空 (目录名)
返回 (目录名)

子程序名	返回值类型	公开	备 注
取现行时间戳	文本型

变量名	类 型	静态	数组	备 注
时间	日期时间型

时间 ＝ 取现行时间 ()
返回 (到文本 (取年份 (时间)) ＋ 到文本 (取月份 (时间)) ＋ 到文本 (取日 (时间)) ＋ “_” ＋ 到文本 (取小时 (时间)) ＋ 到文本 (取分钟 (时间)) ＋ 到文本 (取秒 (时间)))

子程序名	返回值类型	公开	备 注
目录是否存在	逻辑型
参数名	类 型	参考	可空	数组	备 注
目录路径	文本型

变量名	类 型	静态	数组	备 注
属性	整数型

属性 ＝ 取文件属性 (目录路径)
如果 (属性 ＝ -1)
返回 (假)
返回 (位与 (属性, #子目录 ) ≠ 0)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _提取目录树按钮_被单击<br /> .局部变量 目录路径, 文本型<br /> .局部变量 保存路径, 文本型<br /> <br /> 目录路径 ＝ 目录_浏览 (“请选择要提取目录树的文件夹”, , , , , )<br /> .如果真 (目录路径 ＝ “”)<br />     返回 ()<br /> .如果真结束<br /> <br /> 当前目录 ＝ 目录路径<br /> 编辑框1.加入文本 (“正在提取目录树...” ＋ #换行符)<br /> <br /> 保存路径 ＝ 取当前目录 () ＋ “\目录树_” ＋ 取现行时间戳 () ＋ “.txt”<br /> .如果 (提取目录树 (目录路径, 保存路径))<br />     编辑框1.加入文本 (“目录树提取成功！” ＋ #换行符)<br />     编辑框1.加入文本 (“保存路径：” ＋ 保存路径 ＋ #换行符)<br /> .否则<br />     编辑框1.加入文本 (“目录树提取失败！” ＋ #换行符)<br /> .如果结束<br /> <br /> <br /> .子程序 _恢复目录树按钮_被单击<br /> .局部变量 文件路径, 文本型<br /> .局部变量 目标目录, 文本型<br /> <br /> 通用对话框1.过滤器 ＝ “文本文件(*.txt)|*.txt”<br /> 通用对话框1.默认文件后缀 ＝ “txt”<br /> <br /> .如果 (通用对话框1.打开 ())<br />     文件路径 ＝ 通用对话框1.文件名<br /> .否则<br />     返回 ()<br /> .如果结束<br /> <br /> 目标目录 ＝ 目录_浏览 (“请选择要恢复目录结构的目标文件夹”, , , , , )<br /> <br /> <br /> .如果真 (目标目录 ＝ “”)<br />     返回 ()<br /> .如果真结束<br /> <br /> 编辑框1.加入文本 (“正在恢复目录结构...” ＋ #换行符)<br /> .如果 (恢复目录结构 (文件路径, 目标目录))<br />     编辑框1.加入文本 (“目录结构恢复成功！” ＋ #换行符)<br />     编辑框1.加入文本 (“目标路径：” ＋ 目标目录 ＋ #换行符)<br /> .否则<br />     编辑框1.加入文本 (“目录结构恢复失败！” ＋ #换行符)<br /> .如果结束<br /> <br /> <br /> .子程序 提取目录树, 逻辑型<br /> .参数 目录路径, 文本型<br /> .参数 保存路径, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 深度, 整数型<br /> <br /> 深度 ＝ 0<br /> 文件号 ＝ 打开文件 (保存路径, #重写, )<br /> .如果真 (文件号 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> <br /> 写文本行 (文件号, “目录树提取时间：” ＋ 到文本 (取现行时间 ()))<br /> 写文本行 (文件号, “根目录：” ＋ 目录路径)<br /> 写文本行 (文件号, “”)<br /> 写文本行 (文件号, “目录结构如下：”)<br /> 写文本行 (文件号, “”)<br /> <br /> 遍历目录结构1 (目录路径, 文件号, 深度)<br /> <br /> 关闭文件 (文件号)<br /> 返回 (真)<br /> <br /> <br /> <br /> .子程序 遍历目录结构1<br /> .参数 当前路径, 文本型<br /> .参数 文件号, 整数型<br /> .参数 深度, 整数型<br /> .局部变量 文件名, 文本型<br /> .局部变量 完整路径, 文本型<br /> .局部变量 属性, 整数型<br /> .局部变量 缩进, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 目录列表, 文本型, , "0"<br /> .局部变量 文件列表, 文本型, , "0"<br /> .局部变量 j, 整数型<br /> <br /> ' 生成缩进字符串<br /> 缩进 ＝ “”<br /> .计次循环首 (深度, i)<br />     缩进 ＝ 缩进 ＋ “│   ”<br /> .计次循环尾 ()<br /> <br /> ' 先收集所有目录<br /> 文件名 ＝ 寻找文件 (当前路径 ＋ “\*.*”, #子目录)<br /> .判断循环首 (文件名 ≠ “”)<br />     .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)<br />         完整路径 ＝ 当前路径 ＋ “\” ＋ 文件名<br />         属性 ＝ 取文件属性 (完整路径)<br />         .如果真 (位与 (属性, #子目录) ≠ 0)<br />             ' 如果是目录，添加到目录列表<br />             加入成员 (目录列表, 文件名)<br />         .如果真结束<br /> <br />     .如果真结束<br />     文件名 ＝ 寻找文件 (, #子目录)<br /> .判断循环尾 ()<br /> <br /> .如果真 (提取文件选择框.选中)<br />     ' 再收集所有文件<br />     文件名 ＝ 寻找文件 (当前路径 ＋ “\*.*”, 33)<br />     .判断循环首 (文件名 ≠ “”)<br />         .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)<br />             完整路径 ＝ 当前路径 ＋ “\” ＋ 文件名<br />             属性 ＝ 取文件属性 (完整路径)<br />             .如果真 (位与 (属性, #子目录) ＝ 0)<br />                 ' 如果是文件，添加到文件列表<br />                 加入成员 (文件列表, 文件名)<br />             .如果真结束<br /> <br />         .如果真结束<br />         文件名 ＝ 寻找文件 (, 33)<br />     .判断循环尾 ()<br /> <br /> <br /> .如果真结束<br /> <br /> ' 先输出所有目录（保持同一深度）<br /> .计次循环首 (取数组成员数 (目录列表), j)<br />     完整路径 ＝ 当前路径 ＋ “\” ＋ 目录列表 [j]<br />     ' 输出目录信息<br />     写文本行 (文件号, 缩进 ＋ “├─ ” ＋ 目录列表 [j] ＋ “ [目录]”)<br />     ' 递归遍历子目录<br />     遍历目录结构1 (完整路径, 文件号, 深度 ＋ 1)<br /> .计次循环尾 ()<br /> <br /> .如果真 (提取文件选择框.选中)<br />     ' 再输出所有文件（保持同一深度）<br />     .计次循环首 (取数组成员数 (文件列表), j)<br />         完整路径 ＝ 当前路径 ＋ “\” ＋ 文件列表 [j]<br />         ' 输出文件信息<br />         写文本行 (文件号, 缩进 ＋ “├─ ” ＋ 文件列表 [j] ＋ “ [文件]”)<br />     .计次循环尾 ()<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 恢复目录结构, 逻辑型<br /> .参数 文件路径, 文本型<br /> .参数 目标目录, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 行内容, 文本型<br /> .局部变量 目录堆栈, 文本型, , "0"<br /> .局部变量 当前深度, 整数型<br /> .局部变量 新深度, 整数型<br /> .局部变量 目录名, 文本型<br /> .局部变量 完整路径, 文本型<br /> .局部变量 根目录路径, 文本型<br /> <br /> 文件号 ＝ 打开文件 (文件路径, #读入, )<br /> .如果真 (文件号 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> <br /> ' 清空堆栈<br /> 重定义数组 (目录堆栈, 假, 0)<br /> ' 将目标目录作为根目录<br /> 加入成员 (目录堆栈, 目标目录)<br /> <br /> 移到文件首 (文件号)<br /> <br /> .判断循环首 (是否在文件尾 (文件号, ) ＝ 假)<br />     行内容 ＝ 读入一行 (文件号)<br /> <br />     ' 跳过说明行和空行<br />     .如果真 (寻找文本 (行内容, “目录树提取时间：”, , 假) ≠ -1)<br />         到循环尾 ()<br />     .如果真结束<br />     .如果真 (寻找文本 (行内容, “根目录：”, , 假) ≠ -1)<br />         ' 提取原始根目录路径，用于后续处理<br />         根目录路径 ＝ 取文本右边 (行内容, 取文本长度 (行内容) － 7)<br />         到循环尾 ()<br />     .如果真结束<br />     .如果真 (寻找文本 (行内容, “目录结构如下：”, , 假) ≠ -1)<br />         到循环尾 ()<br />     .如果真结束<br />     .如果真 (删首尾空 (行内容) ＝ “”)<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     ' 处理目录行<br />     .如果真 (寻找文本 (行内容, “[目录]”, , 假) ≠ -1)<br />         新深度 ＝ 计算目录深度 (行内容)<br />         调试输出 (新深度)<br />         目录名 ＝ 提取目录名称 (行内容)<br /> <br />         ' 调整目录堆栈<br />         .如果真 (新深度 ＜ 取数组成员数 (目录堆栈) － 1)<br />             ' 如果新深度小于当前深度，需要回退堆栈<br />             重定义数组 (目录堆栈, 真, 新深度 ＋ 1)<br />         .如果真结束<br /> <br />         ' 构建完整路径<br />         完整路径 ＝ 目录堆栈 [新深度 ＋ 1] ＋ “\” ＋ 目录名<br /> <br />         ' 创建目录<br />         .如果真 (取反 (目录是否存在 (完整路径)))<br />             创建目录 (完整路径)<br />         .如果真结束<br /> <br />         ' 更新目录堆栈<br />         .如果 (新深度 ＋ 1 ＝ 取数组成员数 (目录堆栈))<br />             ' 如果是新层级，添加到堆栈<br />             加入成员 (目录堆栈, 完整路径)<br />         .否则<br />             ' 如果是同层级，替换当前层<br />             目录堆栈 [新深度 ＋ 2] ＝ 完整路径<br />         .如果结束<br /> <br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> 关闭文件 (文件号)<br /> 返回 (真)<br /> <br /> .子程序 计算目录深度, 整数型<br /> .参数 行内容, 文本型<br /> .局部变量 深度, 整数型<br /> .局部变量 位置, 整数型<br /> .局部变量 缩进单位, 文本型<br /> <br /> ' 深度 ＝ 0<br /> ' 位置 ＝ 1<br /> 缩进单位 ＝ “│   ”<br /> 深度 ＝ 文本_取出现次数 (行内容, 缩进单位, 假)<br /> <br /> <br /> 返回 (深度)<br /> <br /> .子程序 提取目录名称, 文本型<br /> .参数 行内容, 文本型<br /> .局部变量 开始位置, 整数型<br /> .局部变量 结束位置, 整数型<br /> .局部变量 目录名, 文本型<br /> <br /> ' 查找 "├─ " 的位置<br /> 开始位置 ＝ 寻找文本 (行内容, “├─ ”, , 假)<br /> .如果真 (开始位置 ＝ -1)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> 开始位置 ＝ 开始位置 ＋ 4  ' 跳过 "├─ "<br /> <br /> ' 查找 " [目录]" 的位置<br /> 结束位置 ＝ 寻找文本 (行内容, “ [目录]”, 开始位置, 假)<br /> .如果真 (结束位置 ＝ -1)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> 目录名 ＝ 取文本中间 (行内容, 开始位置, 结束位置 － 开始位置)<br /> 目录名 ＝ 删首尾空 (目录名)<br /> <br /> 返回 (目录名)<br /> <br /> .子程序 取现行时间戳, 文本型<br /> .局部变量 时间, 日期时间型<br /> <br /> 时间 ＝ 取现行时间 ()<br /> 返回 (到文本 (取年份 (时间)) ＋ 到文本 (取月份 (时间)) ＋ 到文本 (取日 (时间)) ＋ “_” ＋ 到文本 (取小时 (时间)) ＋ 到文本 (取分钟 (时间)) ＋ 到文本 (取秒 (时间)))<br /> <br /> .子程序 目录是否存在, 逻辑型<br /> .参数 目录路径, 文本型<br /> .局部变量 属性, 整数型<br /> <br /> 属性 ＝ 取文件属性 (目录路径)<br /> .如果 (属性 ＝ -1)<br />     返回 (假)<br /> .否则<br />     返回 (位与 (属性, #子目录) ≠ 0)<br /> .如果结束

kyo9766

贴代码 省币子  ，感谢楼主分享

临安

附件附上.e源码最好了

胖子葛格

感谢大神分享~！

佛学e语言

谢谢分享

year1970

感谢分享

一指温柔

支持开源~！感谢分享

qqmqqg

666666666666666666666

cqcc

感谢分享

1184798949

感谢分享