问一下,易语言里怎么取文件夹内*.dat文件的数量并依次读入dat文件内的文本

Question

如题所述

Answer 1

.版本 2
.子程序 子程序取文件夹dat文件数量, 整数型
.参数 目录, 文本型
.局部变量 文件名, 文本型
.局部变量 数目, 整数型
.判断开始 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.默认
.判断结束
文件名 ＝ 寻找文件 (目录 ＋ “*.dat”, )
.判断循环首 (文件名 ≠ “”)
数目 ＝ 数目 ＋ 1
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
返回 (数目)
.子程序 子程序取文件夹dat文件文本, 文本型
.参数 目录, 文本型
.局部变量 文件名, 文本型
.局部变量 文本, 文本型
.判断开始 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.默认
.判断结束
文件名 ＝ 寻找文件 (目录 ＋ “*.dat”, )
.判断循环首 (文件名 ≠ “”)
文本 ＝ 文本 ＋ 到文本 (读入文件 (目录 ＋ 文件名))
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
返回 (文本)