网站 › 『编程语言区』 › 全盘搜索指定文件并替换。

gogame 发表于 2014-8-26 21:09

全盘搜索指定文件并替换。

XX运行时YY文件无法替换顾结束进程XX
文件搜索后无法写入，求帮助。 错误(10044): 不能将“文本型”数据转换到“字节集”数据。
本人新手，附上源码


.版本 2
.支持库 EThread
.支持库 eAPI

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

启动线程 (&子程序1, , )

.子程序 子程序1
.局部变量 i, 整数型
.局部变量 驱动器, 文本型, , "0"
.局部变量 欲搜索文件, 文本型
.局部变量 返回参数, 文本型

欲搜索文件 ＝ “NetSys.mdb”

驱动器 ＝ 取驱动器列表 (#接口常量.硬盘驱动器)
.计次循环首 (取数组成员数 (驱动器), i)
    寻找指定文件 (驱动器 , 欲搜索文件, 标签1)
.计次循环尾 ()

.子程序 寻找指定文件, 文本型
.参数 临时目录, 文本型, , 搜索目录
.参数 欲搜索文件, 文本型, , 欲寻找替换的文件名
.参数 标签, 标签, , 显示搜索路径的标签
.局部变量 变量_1, 文本型
.局部变量 变量_2, 文本型
.局部变量 变量_3, 文本型
.局部变量 逻辑变量, 逻辑型

逻辑变量 ＝ 假
临时目录 ＝ 临时目录 ＋ “\”
处理事件 ()
变量_1 ＝ 寻找文件 (临时目录 ＋ “*.*”, 39)
.判断循环首 (变量_1 ≠ “”)
    标签.标题 ＝ 临时目录 ＋ 变量_1
    .如果真 (变量_1 ＝ 欲搜索文件)
      ' ==================================================开始替换文件========
      终止进程 (“NetAppSoft.exe”)
      写到文件 (临时目录 ＋ 欲搜索文件, #文件数据)
      ' ===================================================替换文件完成========
      返回 (临时目录 ＋ 欲搜索文件)
    .如果真结束
    .如果真 (逻辑变量)
      返回 (“”)
    .如果真结束
    变量_1 ＝ 寻找文件 (, )
.判断循环尾 ()
变量_2 ＝ 寻找文件 (临时目录 ＋ “*.*”, 16)
.判断循环首 (变量_2 ≠ “”)
    .如果真 (变量_2 ≠ “.” 且 变量_2 ≠ “..”)
      变量_3 ＝ 寻找指定文件 (临时目录 ＋ 变量_2, 欲搜索文件, 标签)
      .如果真 (变量_3 ≠ “”)
            返回 (变量_3)
      .如果真结束

    .如果真结束
    变量_2 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
返回 (“”)

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

czl778899 发表于 2014-8-28 10:18

多年之前 就能   BAT 处理这个过程了

yaochen 发表于 2015-6-15 11:05

下载看看

查看完整版本: 全盘搜索指定文件并替换。