枚举子目录问题

莫小夏

最后一层目录的文件获取不到
多个目录的时候只能获取到一个


改了好久里面代码改的有些乱了，大神们给看一下

牛bi的阿三

搞定

牛bi的阿三

我这好像是正常的,没发现问题

莫小夏

牛bi的阿三 发表于 2022-7-16 00:20
我这好像是正常的,没发现问题

是精易模块版本的问题么

莫小夏

{:3_50:}{:3_50:}{:3_50:}

牛bi的阿三

我用的 这 精易模块[v9.0.0].ec

莫小夏

牛bi的阿三 发表于 2022-7-16 12:24
我用的 这 精易模块[v9.0.0].ec

也是不行找不到问题出在哪

牛bi的阿三

加我 远程帮你看看

企鹅号525150138

.版本 2
.计次循环首 (目录_枚举子目录1 (取运行目录 () ＋ “\FileSer\Tool”, 数组_文件夹, 真, 真), i1)
    写到文件 (取运行目录 () ＋ “\FileSer\Tool” ＋ 写文件1 ＋ “index.html”, 到字节集 (数组_文件夹 [i1]))
.计次循环尾 ()
这种写法会覆盖之前写出的文件 只最后一个写出文件夹

caoljie

  

子程序名	返回值类型	公开	备 注
枚举

变量名	类 型	静态	数组	备 注
数组_文件夹	文本型		0
i	整数型
数量	整数型
写文件	文本型			\
写文件1	文本型
写文件2	文本型
局_文件名	文本型		0
循环	整数型
n	整数型
暂存列_文件	文本型
写文件web	文本型
列_文件	文本型
写文件web_wj	文本型
暂存列_文件夹	文本型
目录_upload_暂存	文本型
目录_upload	文本型
替换输出	文本型

数量 ＝ 目录_枚举子目录1 (取运行目录 () ＋ “\FileSer\Tool”, 数组_文件夹, 真, 真)
计次循环首 (数量, i)
写文件 ＝ 取文本中间 (数组_文件夹 [i], 1, 倒找文本 (数组_文件夹 [i], “\”, , 假))
写文件1 ＝ 文本_取右边 (写文件, “\FileSer\Tool”)
写文件2 ＝ 文本_取右边 (数组_文件夹 [i], “\FileSer\Tool”, , )
' 调试输出 (写文件, 写文件1, 写文件2, 取运行目录 () ＋ “\FileSer\Tool” ＋ 写文件1)
文件_枚举 (取运行目录 () ＋ “\FileSer\Tool” ＋ 写文件1, “*.*”, 局_文件名, , , )
循环 ＝ 取数组成员数 (局_文件名)
计次循环首 (循环, n)
如果真 (到文本 (局_文件名 [n]) ≠ “index.html”)
写文件web ＝ 子文本替换 (写文件1, “\”, “/”, , , 真)
暂存列_文件 ＝ 暂存列_文件 ＋ “[url=”]” ＋ 到文本 (局_文件名 [n]) ＋ “[/url]” ＋ #换行符
列_文件 ＝ 列_文件 ＋ 暂存列_文件 ＋ #换行符

计次循环尾 ()
如果真 (暂存列_文件 ＝ “”)
暂存列_文件 ＝ “Directory empty”
写文件web_wj ＝ 子文本替换 (写文件2, “\”, “/”, , , 真)
暂存列_文件夹 ＝ 暂存列_文件夹 ＋ “ [url=”]” ＋ 到文本 (写文件web_wj) ＋ “[/url]” ＋ #换行符
' 调试输出 (暂存列_文件夹)
目录_upload_暂存 ＝ 子文本替换 ( #目录_upload_源文本, “替换的位置”, 到文本 (目录_upload), , , 真)
目录_upload ＝ 目录_upload ＋ “../”
计次循环尾 ()
替换输出 ＝ 子文本替换 ( #目录刷新替换_文件, “替换的位置”, 暂存列_文件, , , 真) ＋ 子文本替换 ( #目录刷新替换_文件夹, “目录替换的位置”, 暂存列_文件夹, , , 真) ＋ 目录_upload_暂存 ＋ #目录刷新替换_尾部
暂存列_文件 ＝ “”
暂存列_文件夹 ＝ “”
写到文件 (取运行目录 () ＋ “\FileSer\Tool” ＋ 写文件1 ＋ “index.html”, 到字节集 (编码_UTF8编码 (替换输出, )))

.版本 2<br /> <br /> .子程序 枚举<br /> .局部变量 数组_文件夹, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 数量, 整数型<br /> .局部变量 写文件, 文本型, , , \<br /> .局部变量 写文件1, 文本型<br /> .局部变量 写文件2, 文本型<br /> .局部变量 局_文件名, 文本型, , "0"<br /> .局部变量 循环, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 暂存列_文件, 文本型<br /> .局部变量 写文件web, 文本型<br /> .局部变量 列_文件, 文本型<br /> .局部变量 写文件web_wj, 文本型<br /> .局部变量 暂存列_文件夹, 文本型<br /> .局部变量 目录_upload_暂存, 文本型<br /> .局部变量 目录_upload, 文本型<br /> .局部变量 替换输出, 文本型<br /> <br /> 数量 ＝ 目录_枚举子目录1 (取运行目录 () ＋ “\FileSer\Tool”, 数组_文件夹, 真, 真)<br /> <br /> .计次循环首 (数量, i)<br />     写文件 ＝ 取文本中间 (数组_文件夹 <i>, 1, 倒找文本 (数组_文件夹 <i>, “\”, , 假))<br />     写文件1 ＝ 文本_取右边 (写文件, “\FileSer\Tool”)<br />     写文件2 ＝ 文本_取右边 (数组_文件夹 <i>, “\FileSer\Tool”, , )<br /> <br />     ' 调试输出 (写文件, 写文件1, 写文件2, 取运行目录 () ＋ “\FileSer\Tool” ＋ 写文件1)<br /> <br />     文件_枚举 (取运行目录 () ＋ “\FileSer\Tool” ＋ 写文件1, “*.*”, 局_文件名, , , )<br />     循环 ＝ 取数组成员数 (局_文件名)<br /> <br />     .计次循环首 (循环, n)<br />         .如果真 (到文本 (局_文件名 [n]) ≠ “index.html”)<br />             写文件web ＝ 子文本替换 (写文件1, “\”, “/”, , , 真)<br />             暂存列_文件 ＝ 暂存列_文件 ＋ “<a href="https://bbs.125.la/”" target="_blank">” ＋ 到文本 (局_文件名 [n]) ＋ “</a>” ＋ #换行符<br />             列_文件 ＝ 列_文件 ＋ 暂存列_文件 ＋ #换行符<br />         .如果真结束<br /> <br /> <br />     .计次循环尾 ()<br />     .如果真 (暂存列_文件 ＝ “”)<br />         暂存列_文件 ＝ “Directory empty”<br />     .如果真结束<br />     写文件web_wj ＝ 子文本替换 (写文件2, “\”, “/”, , , 真)<br /> <br /> <br /> <br />     暂存列_文件夹 ＝ 暂存列_文件夹 ＋ “ <a href="https://bbs.125.la/”" target="_blank">” ＋ 到文本 (写文件web_wj) ＋ “</a>” ＋ #换行符<br />     ' 调试输出 (暂存列_文件夹)<br /> <br />     目录_upload_暂存 ＝ 子文本替换 (#目录_upload_源文本, “替换的位置”, 到文本 (目录_upload), , , 真)<br /> <br />     目录_upload ＝ 目录_upload ＋ “../”<br /> <br /> .计次循环尾 ()<br /> 替换输出 ＝ 子文本替换 (#目录刷新替换_文件, “替换的位置”, 暂存列_文件, , , 真) ＋ 子文本替换 (#目录刷新替换_文件夹, “目录替换的位置”, 暂存列_文件夹, , , 真) ＋ 目录_upload_暂存 ＋ #目录刷新替换_尾部<br /> <br /> 暂存列_文件 ＝ “”<br /> 暂存列_文件夹 ＝ “”<br /> <br /> <br /> 写到文件 (取运行目录 () ＋ “\FileSer\Tool” ＋ 写文件1 ＋ “index.html”, 到字节集 (编码_UTF8编码 (替换输出, )))

111.e (1.04 MB, 下载次数: 0)

2022-7-16 15:41 上传

点击文件名下载附件