易语言超精仿文本替换专家2.5完整源代码

莫林风尚

温馨提示：本源代码是很久前的，有些地方优化不是很好，在替换过程中碰到较大的查找或替换时速度很慢，且编译出来的程序360报毒，在调试过程中也会报毒，本源代码其他功能是完好，如果修复好了还是有一定价值的，恳请各位好心+热心的易友大神们帮忙修复，不甚感激！本来想上传附件，不知道是我的浏览器不行还是，一直上传不了无法显示，所以我把源代码直接复制到论坛上。

源代码下载方式： 文本替换专家.zip (83.08 KB, 下载次数: 436)

2015-4-21 08:45 上传

点击文件名下载附件

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
参_执行类型	整数型
参_操作目录	文本型
参_文件格式	文本型
参_查找内容	文本型
参_替换内容	文本型
参_区分大小写	逻辑型
参_包含子目录	逻辑型
参_修改前备份	逻辑型
参_删除备份	逻辑型
参_还原文件	逻辑型
文件路径	文本型	0
目录路径	文本型	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

配置文件 ＝ 取运行目录 () ＋ “\data.ini”

子程序名	返回值类型	公开	备 注
保存历史记录
参数名	类 型	参考	可空	数组	备 注
节名称	文本型
项名	文本型
配置项值	文本型
记录数	整数型

变量名	类 型	静态	数组	备 注
计次变量	整数型
历史记录	文本型

计次循环首 (记录数, 计次变量)
历史记录 ＝ 读配置项 (配置文件, 节名称, 项名 ＋ 到文本 (10 － 计次变量), )
如果真 (历史记录 ＝ 配置项值)
返回 ()

计次循环尾 ()
计次循环首 (记录数, 计次变量)
历史记录 ＝ 读配置项 (配置文件, 节名称, 项名 ＋ 到文本 (10 － 计次变量), )
写配置项 (配置文件, 节名称, 项名 ＋ 到文本 (11 － 计次变量), 历史记录)
计次循环尾 ()
写配置项 (配置文件, 节名称, 项名 ＋ “1”, 配置项值)

子程序名	返回值类型	公开	备 注
获取历史记录
参数名	类 型	参考	可空	数组	备 注
节名称	文本型
项名	文本型
记录数	整数型
保存容器	组合框

变量名	类 型	静态	数组	备 注
计次变量	整数型
历史内容	文本型

保存容器.清空 ()
计次循环首 (记录数, 计次变量)
历史内容 ＝ 读配置项 (配置文件, 节名称, 项名 ＋ 到文本 (计次变量), )
如果真 (历史内容 ≠ “”)
保存容器.加入项目 (历史内容, )
处理事件 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮_替换文件_被单击

选择夹_功能.现行子夹 ＝ 0
按钮_替换文件.类型 ＝ 1
按钮_查找文件.类型 ＝ 0
按钮_还原文件.类型 ＝ 0

子程序名	返回值类型	公开	备 注
_按钮_查找文件_被单击

选择夹_功能.现行子夹 ＝ 1
按钮_替换文件.类型 ＝ 0
按钮_查找文件.类型 ＝ 1
按钮_还原文件.类型 ＝ 0

子程序名	返回值类型	公开	备 注
_按钮_还原文件_被单击

选择夹_功能.现行子夹 ＝ 2
按钮_替换文件.类型 ＝ 0
按钮_查找文件.类型 ＝ 0
按钮_还原文件.类型 ＝ 1

子程序名	返回值类型	公开	备 注
_按钮_替换_浏览_被单击

变量名	类 型	静态	数组	备 注
路径	文本型

路径 ＝ 浏览文件夹 (“”, )
如果真 (路径 ≠ “”)
组合框_替换_路径.内容 ＝ 路径
保存历史记录 (“ReplacePath”, “rp”, 路径, 10)

子程序名	返回值类型	公开	备 注
_组合框_替换_路径_将弹出列表

获取历史记录 (“ReplacePath”, “rp”, 10, 组合框_替换_路径)

子程序名	返回值类型	公开	备 注
_组合框_替换_查找_将弹出列表

获取历史记录 (“FindContent”, “fc”, 10, 组合框_替换_查找)

子程序名	返回值类型	公开	备 注
_组合框_替换_内容_将弹出列表

获取历史记录 (“ReplaceContent”, “rc”, 10, 组合框_替换_内容)

子程序名	返回值类型	公开	备 注
_组合框_查找_路径_将弹出列表

获取历史记录 (“FindPath”, “fp”, 10, 组合框_查找_路径)

子程序名	返回值类型	公开	备 注
_组合框_查找_内容_将弹出列表

获取历史记录 (“FindFindContent”, “fc”, 10, 组合框_查找_内容)

子程序名	返回值类型	公开	备 注
初始化

变量名	类 型	静态	数组	备 注
计次变量	整数型
文件数目	整数型

参_执行类型 ＝ 选择夹_功能.现行子夹
判断 (参_执行类型 ＝ 0)
参_操作目录 ＝ 组合框_替换_路径.内容
参_文件格式 ＝ 组合框_替换_格式.内容
参_查找内容 ＝ 组合框_替换_查找.内容
参_替换内容 ＝ 组合框_替换_内容.内容
参_区分大小写 ＝ 选择框_替换_区分大小写.选中
参_修改前备份 ＝ 选择框_替换_备份.选中
参_包含子目录 ＝ 选择框_替换_含子目录.选中
如果真 (参_操作目录 ＝ “”)
信息框 (“对不起，请先选择需要替换的文件夹，请稍后再试！”, #警告图标, , )
返回 ()
如果真 (参_查找内容 ＝ “”)
信息框 (“对不起，当前需要查找的内容不能为空，请稍后再试！”, #警告图标, , )
返回 ()
保存历史记录 (“FindContent”, “fc”, 参_查找内容, 10)
保存历史记录 (“ReplaceContent”, “rc”, 参_替换内容, 10)
判断 (参_执行类型 ＝ 1)
参_操作目录 ＝ 组合框_查找_路径.内容
参_文件格式 ＝ 组合框_查找_格式.内容
参_查找内容 ＝ 组合框_查找_内容.内容
参_区分大小写 ＝ 选择框_查找_区分大小写.选中
参_包含子目录 ＝ 选择框_查找_含子目录.选中
如果真 (参_操作目录 ＝ “”)
信息框 (“对不起，请先选择需要替换的文件夹，请稍后再试！”, #警告图标, , )
返回 ()
如果真 (参_查找内容 ＝ “”)
信息框 (“对不起，当前需要查找的内容不能为空，请稍后再试！”, #警告图标, , )
返回 ()
保存历史记录 (“FindFindContent”, “fc”, 参_查找内容, 10)
判断 (参_执行类型 ＝ 2)
参_文件格式 ＝ “*.rpk”
参_操作目录 ＝ 编辑框_还原_路径.内容
参_包含子目录 ＝ 选择框_还原_包含子目录.选中
参_删除备份 ＝ 选择框_还原_删除文件.选中
参_还原文件 ＝ 选择框_还原_还原文件.选中
如果真 (参_操作目录 ＝ “”)
信息框 (“对不起，请先选择需要替换的文件夹，请稍后再试！”, #警告图标, , )
返回 ()




如果 (参_包含子目录)
枚举文件 (参_操作目录, 参_文件格式, 文件路径)
枚举目录 (参_操作目录, 目录路径)
计次循环首 (取数组成员数 (目录路径), 计次变量)
枚举文件 (目录路径 [计次变量], 参_文件格式, 文件路径)
处理事件 ()
计次循环尾 ()
枚举文件 (参_操作目录, 参_文件格式, 文件路径)

文件数目 ＝ 取数组成员数 (文件路径)
如果真 (文件数目 ＝ 0)
信息框 (“当前文件夹无[” ＋ 参_文件格式 ＋ “]类型文件，此次操作失败！”, #警告图标, , )
返回 ()

载入 (窗口1, , 假)

子程序名	返回值类型	公开	备 注
执行线程

变量名	类 型	静态	数组	备 注
计次变量	整数型
文件数目	整数型
文件内容	文本型
列表索引	整数型
备份目录	文本型
原文件名	文本型

窗口1.超级列表框1.全部删除 ()
判断 (参_执行类型 ＝ 0)
置当前操作 (“文件：[” ＋ 参_文件格式 ＋ “] 替换字符：[” ＋ 参_查找内容 ＋ “]==>[” ＋ 参_替换内容 ＋ “]”)
置文件目录 (参_操作目录)
文件数目 ＝ 取数组成员数 (文件路径)
计次循环首 (文件数目, 计次变量)
如果真 (是否已创建 (窗口1) ＝ 假)
返回 ()
置当前目录 (取文件目录 (文件路径 [计次变量]))
列表索引 ＝ 置插入列表 ()
置列表标题 (列表索引, 0, 到文本 (窗口1.超级列表框1.取表项数 ()))
置列表标题 (列表索引, 1, “修改”)
置列表标题 (列表索引, 2, 取文件名 (文件路径 [计次变量]))
置列表标题 (列表索引, 3, 取文件后缀 (文件路径 [计次变量]))
置列表标题 (列表索引, 4, 取文件目录 (文件路径 [计次变量]))
置列表标题 (列表索引, 5, 到文本 (取文件时间 (文件路径 [计次变量])))
如果真 (参_修改前备份)
复制文件 (文件路径 [计次变量], 文件路径 [计次变量] ＋ “.rpk”)
文件内容 ＝ 到文本 (读入文件 (文件路径 [计次变量]))
文件内容 ＝ 子文本替换 (文件内容, 参_查找内容, 参_替换内容, , , 参_区分大小写)
写到文件 (文件路径 [计次变量], 到字节集 (文件内容))
置列表标题 (列表索引, 1, “完成”)
置完成进度 (文件数目, 计次变量)
处理事件 ()
计次循环尾 ()
判断 (参_执行类型 ＝ 1)
置当前操作 (“查找文件：[” ＋ 参_文件格式 ＋ “] 包含字符:[” ＋ 参_查找内容 ＋ “]”)
置文件目录 (参_操作目录)
文件数目 ＝ 取数组成员数 (文件路径)
计次循环首 (文件数目, 计次变量)
如果真 (是否已创建 (窗口1) ＝ 假)
返回 ()
置当前目录 (取文件目录 (文件路径 [计次变量]))
列表索引 ＝ 置插入列表 ()
置列表标题 (列表索引, 0, 到文本 (窗口1.超级列表框1.取表项数 ()))
置列表标题 (列表索引, 1, “完成”)
置列表标题 (列表索引, 2, 取文件名 (文件路径 [计次变量]))
置列表标题 (列表索引, 3, 取文件后缀 (文件路径 [计次变量]))
置列表标题 (列表索引, 4, 取文件目录 (文件路径 [计次变量]))
置列表标题 (列表索引, 5, 到文本 (取文件时间 (文件路径 [计次变量])))
置完成进度 (文件数目, 计次变量)
处理事件 ()
计次循环尾 ()
判断 (参_执行类型 ＝ 2)
置当前操作 (“文件：[*.rpk] 文件还原”)
文件数目 ＝ 取数组成员数 (文件路径)
计次循环首 (文件数目, 计次变量)
如果真 (是否已创建 (窗口1) ＝ 假)
返回 ()
置当前目录 (取文件目录 (文件路径 [计次变量]))
列表索引 ＝ 置插入列表 ()
置列表标题 (列表索引, 0, 到文本 (窗口1.超级列表框1.取表项数 ()))
置列表标题 (列表索引, 1, “执行”)
置列表标题 (列表索引, 2, 原文件名)
置列表标题 (列表索引, 3, “*.rpk”)
置列表标题 (列表索引, 4, 取文件目录 (文件路径 [计次变量]))
置列表标题 (列表索引, 5, 到文本 (取文件时间 (文件路径 [计次变量])))
备份目录 ＝ 取文件目录 (文件路径 [计次变量])
原文件名 ＝ 取文件名 (文件路径 [计次变量])
如果真 (参_还原文件)
复制文件 (备份目录 ＋ 原文件名 ＋ “.rpk”, 备份目录 ＋ 原文件名)
如果真 (参_删除备份)
删除文件 (备份目录 ＋ 原文件名 ＋ “.rpk”)
置列表标题 (列表索引, 1, “完成”)
置完成进度 (文件数目, 计次变量)
处理事件 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
枚举文件	整数型
参数名	类 型	参考	可空	数组	备 注
参数_待举目录	文本型
参数_扩展名	文本型
参数_文件名	文本型

变量名	类 型	静态	数组	备 注
局_文件名	文本型

如果真 (取文本右边 (参数_待举目录, 1) ≠ “\”)
参数_待举目录 ＝ 参数_待举目录 ＋ “\”
局_文件名 ＝ 寻找文件 (参数_待举目录 ＋ 参数_扩展名, )
判断循环首 (局_文件名 ≠ “”)
加入成员 (参数_文件名, 参数_待举目录 ＋ 局_文件名)
局_文件名 ＝ 寻找文件 (, )
处理事件 ()
判断循环尾 ()
返回 (取数组成员数 (参数_文件名))

子程序名	返回值类型	公开	备 注
枚举目录
参数名	类 型	参考	可空	数组	备 注
路径	文本型
子目录路径	文本型

变量名	类 型	静态	数组	备 注
文件名	文本型

如果真 (取文本右边 (路径, 1) ≠ “\”)
路径 ＝ 路径 ＋ “\”
文件名 ＝ 寻找文件 (路径 ＋ “*.*”, #子目录 )
判断循环首 (文件名 ≠ “”)
如果真 (取文本左边 (文件名, 1) ≠ “.”)
枚举目录 (路径 ＋ 文件名, 子目录路径)
文件名 ＝ 寻找文件 (, #子目录 )
如果真 (文件名 ≠ “..” 且 文件名 ≠ “”)
加入成员 (子目录路径, 路径 ＋ 文件名)

判断循环尾 ()

子程序名	返回值类型	公开	备 注
取文件目录	文本型
参数名	类 型	参考	可空	数组	备 注
路径	文本型

变量名	类 型	静态	数组	备 注
文本位置	整数型

文本位置 ＝ 倒找文本 (路径, “\”, , 假)
返回 (取文本左边 (路径, 文本位置))

子程序名	返回值类型	公开	备 注
取文件名	文本型
参数名	类 型	参考	可空	数组	备 注
路径	文本型

变量名	类 型	静态	数组	备 注
文本位置	整数型
临时文本	文本型

文本位置 ＝ 倒找文本 (路径, “\”, , 假)
临时文本 ＝ 取文本右边 (路径, 取文本长度 (路径) － 文本位置)
文本位置 ＝ 倒找文本 (临时文本, “.”, , 假)
返回 (取文本左边 (临时文本, 文本位置 － 1))

子程序名	返回值类型	公开	备 注
取文件后缀	文本型
参数名	类 型	参考	可空	数组	备 注
路径	文本型

变量名	类 型	静态	数组	备 注
文本位置	整数型

文本位置 ＝ 倒找文本 (路径, “.”, , 假)
返回 (取文本右边 (路径, 取文本长度 (路径) － 文本位置))

子程序名	返回值类型	公开	备 注
_按钮_替换_开始_被单击

初始化 ()

子程序名	返回值类型	公开	备 注
_按钮_查找_开始_被单击

初始化 ()

子程序名	返回值类型	公开	备 注
_按钮_还原_开始_被单击

初始化 ()

子程序名	返回值类型	公开	备 注
_按钮_查找_浏览_被单击

变量名	类 型	静态	数组	备 注
路径	文本型

路径 ＝ 浏览文件夹 (“”, )
如果真 (路径 ≠ “”)
组合框_查找_路径.内容 ＝ 路径
保存历史记录 (“FindPath”, “fp”, 路径, 10)

子程序名	返回值类型	公开	备 注
_按钮_退出_被单击

结束 ()

i支持库列表	支持库注释
shell	操作系统界面功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 shell<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 参_执行类型, 整数型<br /> .程序集变量 参_操作目录, 文本型<br /> .程序集变量 参_文件格式, 文本型<br /> .程序集变量 参_查找内容, 文本型<br /> .程序集变量 参_替换内容, 文本型<br /> .程序集变量 参_区分大小写, 逻辑型<br /> .程序集变量 参_包含子目录, 逻辑型<br /> .程序集变量 参_修改前备份, 逻辑型<br /> .程序集变量 参_删除备份, 逻辑型<br /> .程序集变量 参_还原文件, 逻辑型<br /> .程序集变量 文件路径, 文本型, , "0"<br /> .程序集变量 目录路径, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 配置文件 ＝ 取运行目录 () ＋ “\data.ini”<br /> <br /> .子程序 保存历史记录<br /> .参数 节名称, 文本型<br /> .参数 项名, 文本型<br /> .参数 配置项值, 文本型<br /> .参数 记录数, 整数型<br /> .局部变量 计次变量, 整数型<br /> .局部变量 历史记录, 文本型<br /> <br /> .计次循环首 (记录数, 计次变量)<br /> 历史记录 ＝ 读配置项 (配置文件, 节名称, 项名 ＋ 到文本 (10 － 计次变量), )<br /> .如果真 (历史记录 ＝ 配置项值)<br /> 返回 ()<br /> .如果真结束<br /> <br /> .计次循环尾 ()<br /> .计次循环首 (记录数, 计次变量)<br /> 历史记录 ＝ 读配置项 (配置文件, 节名称, 项名 ＋ 到文本 (10 － 计次变量), )<br /> 写配置项 (配置文件, 节名称, 项名 ＋ 到文本 (11 － 计次变量), 历史记录)<br /> .计次循环尾 ()<br /> 写配置项 (配置文件, 节名称, 项名 ＋ “1”, 配置项值)<br /> <br /> <br /> .子程序 获取历史记录<br /> .参数 节名称, 文本型<br /> .参数 项名, 文本型<br /> .参数 记录数, 整数型<br /> .参数 保存容器, 组合框<br /> .局部变量 计次变量, 整数型<br /> .局部变量 历史内容, 文本型<br /> <br /> 保存容器.清空 ()<br /> .计次循环首 (记录数, 计次变量)<br /> 历史内容 ＝ 读配置项 (配置文件, 节名称, 项名 ＋ 到文本 (计次变量), )<br /> .如果真 (历史内容 ≠ “”)<br /> 保存容器.加入项目 (历史内容, )<br /> .如果真结束<br /> 处理事件 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮_替换文件_被单击<br /> <br /> 选择夹_功能.现行子夹 ＝ 0<br /> 按钮_替换文件.类型 ＝ 1<br /> 按钮_查找文件.类型 ＝ 0<br /> 按钮_还原文件.类型 ＝ 0<br /> <br /> .子程序 _按钮_查找文件_被单击<br /> <br /> 选择夹_功能.现行子夹 ＝ 1<br /> 按钮_替换文件.类型 ＝ 0<br /> 按钮_查找文件.类型 ＝ 1<br /> 按钮_还原文件.类型 ＝ 0<br /> <br /> .子程序 _按钮_还原文件_被单击<br /> <br /> 选择夹_功能.现行子夹 ＝ 2<br /> 按钮_替换文件.类型 ＝ 0<br /> 按钮_查找文件.类型 ＝ 0<br /> 按钮_还原文件.类型 ＝ 1<br /> <br /> .子程序 _按钮_替换_浏览_被单击<br /> .局部变量 路径, 文本型<br /> <br /> 路径 ＝ 浏览文件夹 (“”, )<br /> .如果真 (路径 ≠ “”)<br /> 组合框_替换_路径.内容 ＝ 路径<br /> 保存历史记录 (“ReplacePath”, “rp”, 路径, 10)<br /> .如果真结束<br /> <br /> <br /> .子程序 _组合框_替换_路径_将弹出列表<br /> <br /> 获取历史记录 (“ReplacePath”, “rp”, 10, 组合框_替换_路径)<br /> <br /> .子程序 _组合框_替换_查找_将弹出列表<br /> <br /> 获取历史记录 (“FindContent”, “fc”, 10, 组合框_替换_查找)<br /> <br /> .子程序 _组合框_替换_内容_将弹出列表<br /> <br /> 获取历史记录 (“ReplaceContent”, “rc”, 10, 组合框_替换_内容)<br /> <br /> .子程序 _组合框_查找_路径_将弹出列表<br /> <br /> 获取历史记录 (“FindPath”, “fp”, 10, 组合框_查找_路径)<br /> <br /> .子程序 _组合框_查找_内容_将弹出列表<br /> <br /> 获取历史记录 (“FindFindContent”, “fc”, 10, 组合框_查找_内容)<br /> <br /> .子程序 初始化<br /> .局部变量 计次变量, 整数型<br /> .局部变量 文件数目, 整数型<br /> <br /> 参_执行类型 ＝ 选择夹_功能.现行子夹<br /> .判断开始 (参_执行类型 ＝ 0)<br /> 参_操作目录 ＝ 组合框_替换_路径.内容<br /> 参_文件格式 ＝ 组合框_替换_格式.内容<br /> 参_查找内容 ＝ 组合框_替换_查找.内容<br /> 参_替换内容 ＝ 组合框_替换_内容.内容<br /> 参_区分大小写 ＝ 选择框_替换_区分大小写.选中<br /> 参_修改前备份 ＝ 选择框_替换_备份.选中<br /> 参_包含子目录 ＝ 选择框_替换_含子目录.选中<br /> .如果真 (参_操作目录 ＝ “”)<br /> 信息框 (“对不起，请先选择需要替换的文件夹，请稍后再试！”, #警告图标, , )<br /> 返回 ()<br /> .如果真结束<br /> .如果真 (参_查找内容 ＝ “”)<br /> 信息框 (“对不起，当前需要查找的内容不能为空，请稍后再试！”, #警告图标, , )<br /> 返回 ()<br /> .如果真结束<br /> 保存历史记录 (“FindContent”, “fc”, 参_查找内容, 10)<br /> 保存历史记录 (“ReplaceContent”, “rc”, 参_替换内容, 10)<br /> .判断 (参_执行类型 ＝ 1)<br /> 参_操作目录 ＝ 组合框_查找_路径.内容<br /> 参_文件格式 ＝ 组合框_查找_格式.内容<br /> 参_查找内容 ＝ 组合框_查找_内容.内容<br /> 参_区分大小写 ＝ 选择框_查找_区分大小写.选中<br /> 参_包含子目录 ＝ 选择框_查找_含子目录.选中<br /> .如果真 (参_操作目录 ＝ “”)<br /> 信息框 (“对不起，请先选择需要替换的文件夹，请稍后再试！”, #警告图标, , )<br /> 返回 ()<br /> .如果真结束<br /> .如果真 (参_查找内容 ＝ “”)<br /> 信息框 (“对不起，当前需要查找的内容不能为空，请稍后再试！”, #警告图标, , )<br /> 返回 ()<br /> .如果真结束<br /> 保存历史记录 (“FindFindContent”, “fc”, 参_查找内容, 10)<br /> .判断 (参_执行类型 ＝ 2)<br /> 参_文件格式 ＝ “*.rpk”<br /> 参_操作目录 ＝ 编辑框_还原_路径.内容<br /> 参_包含子目录 ＝ 选择框_还原_包含子目录.选中<br /> 参_删除备份 ＝ 选择框_还原_删除文件.选中<br /> 参_还原文件 ＝ 选择框_还原_还原文件.选中<br /> .如果真 (参_操作目录 ＝ “”)<br /> 信息框 (“对不起，请先选择需要替换的文件夹，请稍后再试！”, #警告图标, , )<br /> 返回 ()<br /> .如果真结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> .如果 (参_包含子目录)<br /> 枚举文件 (参_操作目录, 参_文件格式, 文件路径)<br /> 枚举目录 (参_操作目录, 目录路径)<br /> .计次循环首 (取数组成员数 (目录路径), 计次变量)<br /> 枚举文件 (目录路径 [计次变量], 参_文件格式, 文件路径)<br /> 处理事件 ()<br /> .计次循环尾 ()<br /> .否则<br /> 枚举文件 (参_操作目录, 参_文件格式, 文件路径)<br /> .如果结束<br /> <br /> 文件数目 ＝ 取数组成员数 (文件路径)<br /> .如果真 (文件数目 ＝ 0)<br /> 信息框 (“当前文件夹无[” ＋ 参_文件格式 ＋ “]类型文件，此次操作失败！”, #警告图标, , )<br /> 返回 ()<br /> .如果真结束<br /> <br /> 载入 (窗口1, , 假)<br /> <br /> .子程序 执行线程<br /> .局部变量 计次变量, 整数型<br /> .局部变量 文件数目, 整数型<br /> .局部变量 文件内容, 文本型<br /> .局部变量 列表索引, 整数型<br /> .局部变量 备份目录, 文本型<br /> .局部变量 原文件名, 文本型<br /> <br /> 窗口1.超级列表框1.全部删除 ()<br /> .判断开始 (参_执行类型 ＝ 0)<br /> 置当前操作 (“文件：[” ＋ 参_文件格式 ＋ “] 替换字符：[” ＋ 参_查找内容 ＋ “]==>[” ＋ 参_替换内容 ＋ “]”)<br /> 置文件目录 (参_操作目录)<br /> 文件数目 ＝ 取数组成员数 (文件路径)<br /> .计次循环首 (文件数目, 计次变量)<br /> .如果真 (是否已创建 (窗口1) ＝ 假)<br /> 返回 ()<br /> .如果真结束<br /> 置当前目录 (取文件目录 (文件路径 [计次变量]))<br /> 列表索引 ＝ 置插入列表 ()<br /> 置列表标题 (列表索引, 0, 到文本 (窗口1.超级列表框1.取表项数 ()))<br /> 置列表标题 (列表索引, 1, “修改”)<br /> 置列表标题 (列表索引, 2, 取文件名 (文件路径 [计次变量]))<br /> 置列表标题 (列表索引, 3, 取文件后缀 (文件路径 [计次变量]))<br /> 置列表标题 (列表索引, 4, 取文件目录 (文件路径 [计次变量]))<br /> 置列表标题 (列表索引, 5, 到文本 (取文件时间 (文件路径 [计次变量])))<br /> .如果真 (参_修改前备份)<br /> 复制文件 (文件路径 [计次变量], 文件路径 [计次变量] ＋ “.rpk”)<br /> .如果真结束<br /> 文件内容 ＝ 到文本 (读入文件 (文件路径 [计次变量]))<br /> 文件内容 ＝ 子文本替换 (文件内容, 参_查找内容, 参_替换内容, , , 参_区分大小写)<br /> 写到文件 (文件路径 [计次变量], 到字节集 (文件内容))<br /> 置列表标题 (列表索引, 1, “完成”)<br /> 置完成进度 (文件数目, 计次变量)<br /> 处理事件 ()<br /> .计次循环尾 ()<br /> .判断 (参_执行类型 ＝ 1)<br /> 置当前操作 (“查找文件：[” ＋ 参_文件格式 ＋ “] 包含字符:[” ＋ 参_查找内容 ＋ “]”)<br /> 置文件目录 (参_操作目录)<br /> 文件数目 ＝ 取数组成员数 (文件路径)<br /> .计次循环首 (文件数目, 计次变量)<br /> .如果真 (是否已创建 (窗口1) ＝ 假)<br /> 返回 ()<br /> .如果真结束<br /> 置当前目录 (取文件目录 (文件路径 [计次变量]))<br /> 列表索引 ＝ 置插入列表 ()<br /> 置列表标题 (列表索引, 0, 到文本 (窗口1.超级列表框1.取表项数 ()))<br /> 置列表标题 (列表索引, 1, “完成”)<br /> 置列表标题 (列表索引, 2, 取文件名 (文件路径 [计次变量]))<br /> 置列表标题 (列表索引, 3, 取文件后缀 (文件路径 [计次变量]))<br /> 置列表标题 (列表索引, 4, 取文件目录 (文件路径 [计次变量]))<br /> 置列表标题 (列表索引, 5, 到文本 (取文件时间 (文件路径 [计次变量])))<br /> 置完成进度 (文件数目, 计次变量)<br /> 处理事件 ()<br /> .计次循环尾 ()<br /> .判断 (参_执行类型 ＝ 2)<br /> 置当前操作 (“文件：[*.rpk] 文件还原”)<br /> 文件数目 ＝ 取数组成员数 (文件路径)<br /> .计次循环首 (文件数目, 计次变量)<br /> .如果真 (是否已创建 (窗口1) ＝ 假)<br /> 返回 ()<br /> .如果真结束<br /> 置当前目录 (取文件目录 (文件路径 [计次变量]))<br /> 列表索引 ＝ 置插入列表 ()<br /> 置列表标题 (列表索引, 0, 到文本 (窗口1.超级列表框1.取表项数 ()))<br /> 置列表标题 (列表索引, 1, “执行”)<br /> 置列表标题 (列表索引, 2, 原文件名)<br /> 置列表标题 (列表索引, 3, “*.rpk”)<br /> 置列表标题 (列表索引, 4, 取文件目录 (文件路径 [计次变量]))<br /> 置列表标题 (列表索引, 5, 到文本 (取文件时间 (文件路径 [计次变量])))<br /> 备份目录 ＝ 取文件目录 (文件路径 [计次变量])<br /> 原文件名 ＝ 取文件名 (文件路径 [计次变量])<br /> .如果真 (参_还原文件)<br /> 复制文件 (备份目录 ＋ 原文件名 ＋ “.rpk”, 备份目录 ＋ 原文件名)<br /> .如果真结束<br /> .如果真 (参_删除备份)<br /> 删除文件 (备份目录 ＋ 原文件名 ＋ “.rpk”)<br /> .如果真结束<br /> 置列表标题 (列表索引, 1, “完成”)<br /> 置完成进度 (文件数目, 计次变量)<br /> 处理事件 ()<br /> .计次循环尾 ()<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 枚举文件, 整数型<br /> .参数 参数_待举目录, 文本型<br /> .参数 参数_扩展名, 文本型<br /> .参数 参数_文件名, 文本型, 参考 数组<br /> .局部变量 局_文件名, 文本型<br /> <br /> .如果真 (取文本右边 (参数_待举目录, 1) ≠ “\”)<br /> 参数_待举目录 ＝ 参数_待举目录 ＋ “\”<br /> .如果真结束<br /> 局_文件名 ＝ 寻找文件 (参数_待举目录 ＋ 参数_扩展名, )<br /> .判断循环首 (局_文件名 ≠ “”)<br /> 加入成员 (参数_文件名, 参数_待举目录 ＋ 局_文件名)<br /> 局_文件名 ＝ 寻找文件 (, )<br /> 处理事件 ()<br /> .判断循环尾 ()<br /> 返回 (取数组成员数 (参数_文件名))<br /> <br /> .子程序 枚举目录<br /> .参数 路径, 文本型<br /> .参数 子目录路径, 文本型, 参考 可空 数组<br /> .局部变量 文件名, 文本型<br /> <br /> .如果真 (取文本右边 (路径, 1) ≠ “\”)<br /> 路径 ＝ 路径 ＋ “\”<br /> .如果真结束<br /> 文件名 ＝ 寻找文件 (路径 ＋ “*.*”, #子目录)<br /> .判断循环首 (文件名 ≠ “”)<br /> .如果真 (取文本左边 (文件名, 1) ≠ “.”)<br /> 枚举目录 (路径 ＋ 文件名, 子目录路径)<br /> .如果真结束<br /> 文件名 ＝ 寻找文件 (, #子目录)<br /> .如果真 (文件名 ≠ “..” 且 文件名 ≠ “”)<br /> 加入成员 (子目录路径, 路径 ＋ 文件名)<br /> .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> .子程序 取文件目录, 文本型<br /> .参数 路径, 文本型<br /> .局部变量 文本位置, 整数型<br /> <br /> 文本位置 ＝ 倒找文本 (路径, “\”, , 假)<br /> 返回 (取文本左边 (路径, 文本位置))<br /> <br /> .子程序 取文件名, 文本型<br /> .参数 路径, 文本型<br /> .局部变量 文本位置, 整数型<br /> .局部变量 临时文本, 文本型<br /> <br /> 文本位置 ＝ 倒找文本 (路径, “\”, , 假)<br /> 临时文本 ＝ 取文本右边 (路径, 取文本长度 (路径) － 文本位置)<br /> 文本位置 ＝ 倒找文本 (临时文本, “.”, , 假)<br /> 返回 (取文本左边 (临时文本, 文本位置 － 1))<br /> <br /> .子程序 取文件后缀, 文本型<br /> .参数 路径, 文本型<br /> .局部变量 文本位置, 整数型<br /> <br /> 文本位置 ＝ 倒找文本 (路径, “.”, , 假)<br /> 返回 (取文本右边 (路径, 取文本长度 (路径) － 文本位置))<br /> <br /> .子程序 _按钮_替换_开始_被单击<br /> <br /> 初始化 ()<br /> <br /> .子程序 _按钮_查找_开始_被单击<br /> <br /> 初始化 ()<br /> <br /> .子程序 _按钮_还原_开始_被单击<br /> <br /> 初始化 ()<br /> <br /> .子程序 _按钮_查找_浏览_被单击<br /> .局部变量 路径, 文本型<br /> <br /> 路径 ＝ 浏览文件夹 (“”, )<br /> .如果真 (路径 ≠ “”)<br /> 组合框_查找_路径.内容 ＝ 路径<br /> 保存历史记录 (“FindPath”, “fp”, 路径, 10)<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮_退出_被单击<br /> <br /> 结束 ()

xiassang

66666666666666666666666

worinisa

感谢老板分享哈哈哈

jiahaijiang

可以呀老铁，谢谢分享

jiahaijiang

厉害了，正需要

原来早已

学习一下 谢谢楼主

yoobaby

支持utf8的查找替换吗？

tank2012t

学习一下 谢谢楼主

yuwei00

好东西呀！群主给力！感谢群主！

malu

文本替换专家

我不是坏小孩

好喜欢
是还是要点个赞~