用易语言写扫描全盘的txt格式文本、并删除
2012-07-25 23:55
411 查看
子程序 遍历目录, , , 输出指定目录下的所有文件,包括子目录
.参数 参目录, 文本型, , 不带最后的“\”
.局部变量 文件名, 文本型
.局部变量 目录数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 文件类型, 整数型
.如果真 (信息框 (“即将遍历指定目录并删除所有TXT文件!是否继续?”, 1, ) ≠ 0)
返回 ()
.如果真结束
文件类型 = 位或 (#存档文件, #只读文件, #系统文件, #隐藏文件, #子目录)
文件名 = 寻找文件 (选择 (取文本右边 (参目录, 1) ≠ “\”, 参目录 + “\”, 参目录) + “*.*”, 文件类型)
.如果真 (文件名 = “”)
返回 () ' 设定终止条件
.如果真结束
.循环判断首 ()
.如果 (位与 (取文件属性 (参目录 + “\” + 文件名), #子目录) ≠ 0)
' 注意这里不能直接遍历,要先存入数组,
' 否则就是开启了一个新的寻找文件的过程,
' 导致无法列正确的文件
加入成员 (目录数组, 文件名) ' 把目录先存入数组中
.否则
.如果真 (到小写 (取文本右边 (文件名, 4)) = “.txt”)
删除文件 (参目录 + “\” + 文件名)
.如果真结束
' 输出调试文本 (参目录 + “\” + 文件名) ' 文件名则输出
.如果结束
' 寻找下一个
文件名 = 寻找文件 (, 文件类型)
.循环判断尾 (文件名 ≠ “”)
.计次循环首 (取数组成员数 (目录数组), i)
.如果真 (目录数组 [i] ≠ “.” 且 目录数组 [i] ≠ “..”)
' 不是当前目录和父目录才进行扫描
遍历目录 (参目录 + “\” + 目录数组 [i]) ' 递归调用子程序本身
.如果真结束
.计次循环尾 ()
是不是很简单呢!!! 相关文章 :软件开发属于年轻人的世界
相关文章推荐
- Datatable转txt文本格式
- Windows & Linux 文件格式之迷 < VI下删除文本中的^M>
- 以制表符分隔的TXT文件转换成Supermemo可直接导入的文本格式的过程图解
- word存为txt文本、rtf格式的文件
- Python3.5 处理文本txt,删除不需要的行
- C语言文本格式读写文件流以及定位(fprintf、fscanf、fseek)
- C#编程清空txt文本文档中内容 不是删除
- 文本txt格式转excel
- 以制表符分隔的TXT文件转换成Supermemo可直接导入的文本格式的过程图解
- txt文本读取删除
- SQL SERVER文本格式txt數據導入導出
- matlab处理txt文本文件---数据格式要有规律性,否则要用编写特定方式进行读取
- 让文件管理器可以识别到应用程序、阅读txt文本的记事本、添加了批量删除等功的android源码Notes
- txt文本文件编码格式-图片文件类型检测-音视频文件信息
- 如何在iOS中使用ZXing库(ZXing是一个开源的条码生成和扫描库,开源协议为Apache2.0。它持众多条码格式和语言,比如Java、 C++、 C#、 Objective-C以及Act )
- Matlab将图片转换成asc码txt文本格式
- java 利用异或对文本加解密 包括txt,doc等格式
- 易语言删除文本中的全部空格功能
- php 读取TXT文本生成 想要的数据格式
- 如何打开一个已存在的txt格式的文本文档 ,并显示在QTextEdit中