
问一下,易语言里怎么取文件夹内*.dat文件的数量并依次读入dat文件内的文本 5
1个回答
展开全部
.版本 2
.子程序 子程序取文件夹dat文件数量, 整数型
.参数 目录, 文本型
.局部变量 文件名, 文本型
.局部变量 数目, 整数型
.判断开始 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
.默认
.判断结束
文件名 = 寻找文件 (目录 + “*.dat”, )
.判断循环首 (文件名 ≠ “”)
数目 = 数目 + 1
文件名 = 寻找文件 (, )
.判断循环尾 ()
返回 (数目)
.子程序 子程序取文件夹dat文件文本, 文本型
.参数 目录, 文本型
.局部变量 文件名, 文本型
.局部变量 文本, 文本型
.判断开始 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
.默认
.判断结束
文件名 = 寻找文件 (目录 + “*.dat”, )
.判断循环首 (文件名 ≠ “”)
文本 = 文本 + 到文本 (读入文件 (目录 + 文件名))
文件名 = 寻找文件 (, )
.判断循环尾 ()
返回 (文本)
.子程序 子程序取文件夹dat文件数量, 整数型
.参数 目录, 文本型
.局部变量 文件名, 文本型
.局部变量 数目, 整数型
.判断开始 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
.默认
.判断结束
文件名 = 寻找文件 (目录 + “*.dat”, )
.判断循环首 (文件名 ≠ “”)
数目 = 数目 + 1
文件名 = 寻找文件 (, )
.判断循环尾 ()
返回 (数目)
.子程序 子程序取文件夹dat文件文本, 文本型
.参数 目录, 文本型
.局部变量 文件名, 文本型
.局部变量 文本, 文本型
.判断开始 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
.默认
.判断结束
文件名 = 寻找文件 (目录 + “*.dat”, )
.判断循环首 (文件名 ≠ “”)
文本 = 文本 + 到文本 (读入文件 (目录 + 文件名))
文件名 = 寻找文件 (, )
.判断循环尾 ()
返回 (文本)
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询