吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 3897|回复: 2
收起左侧

[易语言 转载] 全盘搜索指定文件并替换。

[复制链接]
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_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型




测试.rar

28.68 KB, 下载次数: 30, 下载积分: 吾爱币 -1 CB

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

czl778899 发表于 2014-8-28 10:18
多年之前 就能   BAT 处理这个过程了
yaochen 发表于 2015-6-15 11:05
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-11-27 14:37

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表