如何随机读取文件夹里的文章发布到网站?

vchack

.版本 2
.支持库 spec
.支持库 iext

.局部变量 文件数组, 文本型, , "0"
.局部变量 计数, 整数型
.局部变量 文章标题, 文本型
.局部变量 文件路径, 文本型
.局部变量 文章内容, 文本型
.局部变量 计次, 整数型

文件_枚举 (取当前目录 () ＋ “\文章目录”, “*.txt”, 文件数组)
.计次循环首 (取数组成员数 (文件数组), 计数)
    调试输出 (文件数组 [计数])
    文章标题 ＝ 文本_取左边 (文件数组 [计数], “.txt”, )
    调试输出 (文章标题)
    文件路径 ＝ 取当前目录 () ＋ “\文章目录\” ＋ 文件数组 [计数]
    调试输出 (文件路径)
    文章内容 ＝ 到文本 (读入文件 (文件路径))
    调试输出 (文章内容)
    .计次循环首 (5, 计次)
        .如果真 (登录网站 (超级列表框1.取标题 (1, 1), 超级列表框1.取标题 (1, 2), 超级列表框1.取标题 (1, 3), 超级列表框1.取标题 (1, 4)))
            日志编辑框.加入文本 (“登陆” ＋ 超级列表框1.取标题 (1, 1) ＋ “成功!!!等待发布文章.......” ＋ #换行符)
            发布文章 (超级列表框1.取标题 (1, 1), 超级列表框1.取标题 (1, 2), 文章标题, 文章内容)
        .如果真结束


    .计次循环尾 ()
.计次循环尾 ()


上面写的代码有点问题,请问如何实现枚举文件夹里的文件的标题和内容发布到网站,前面的都实现了,如何实现发布1-10篇文章然后发下个网站呢?

执着

使用计次循环来实现