90jb求解决个简单问题，获取指定目录文件的文本内容

Cathy

用易语言怎么获取指定目录的文件，然后取这些文件名，  还有怎么取这么文件里面的文本内容 联系Q[qq]7539235[/qq]

Cramps

简单你咋不自己写

Cathy

Cramps 发表于 2013-12-12 18:46
简单你咋不自己写

呵呵 我自己已经解决了  百度学习了下

小冰—

搜索指定目录文件：
.版本 2

.子程序 系统_搜索所有文件, , 公开
.参数 要搜索的目录, 文本型
.参数 要搜索的文件, 文本型, 可空
.参数 返回路径加文件名数组, 文本型, 可空 数组
.参数 返回文件名数组, 文本型, 可空 数组
.局部变量 文件名, 文本型
.局部变量 路径加文件名数组, 文本型, 静态, "0"
.局部变量 文件名数组, 文本型, 静态, "0"

处理事件 ()
.如果真 (要搜索的文件 ＝ “”)
    要搜索的文件 ＝ “*.*”
.如果真结束
.如果真 (取文本右边 (要搜索的目录, 1) ≠ “\”)
    要搜索的目录 ＝ 要搜索的目录 ＋ “\”
.如果真结束
文件名 ＝ 寻找文件 (要搜索的目录 ＋ 要搜索的文件, )
.判断循环首 (文件名 ≠ “”)
    加入成员 (路径加文件名数组, 要搜索的目录 ＋ 文件名)
    加入成员 (文件名数组, 文件名)
    文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
文件名 ＝ 寻找文件 (要搜索的目录 ＋ “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
    .如果真 (取文本左边 (文件名, 1) ≠ “.”)
        系统_搜索所有文件 (要搜索的目录 ＋ 文件名, 要搜索的文件)
    .如果真结束
    文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
复制数组 (返回路径加文件名数组, 路径加文件名数组)
复制数组 (返回文件名数组, 文件名数组)  
以上直接复制到  易语言  就可以取目录   文件了

    取文件里面的内容：
用   读入文本（）