.程序集 窗口程序集1 .程序集变量 搜尋位置, 整数型 .程序集变量 当前被搜寻文本, 文本型 .子程序 _驱动器框_驱动器被改变 连续赋值 (驱动器框.驱动器 + “:\”, 目录框1.目录, 文件框1.目录) .子程序 _目录框1_目录被改变 文件框1.目录 = 目录框1.目录 .子程序 _文件框1_双击选择 待替换文件列表框.插入表项 (, 目录框1.目录 + “\” + 文件框1.被选择文件, , , , ) .子程序 _类型组合框_列表项被选择 文件框1.通配符 = 类型组合框.取项目文本 (类型组合框.现行选中项) .子程序 _系统文件选择框_被单击 .如果 (系统文件选擇框.选中 = 真) 文件框1.系统 = 真 文件框1.系统 = 假 .子程序 _隐藏文件选择框_被单击 .如果 (隐藏文件选择框.选中 = 真) 文件框1.隐藏 = 真 文件框1.隐藏 = 假 .孓程序 _加入_被选择 .如果真 (文件框1.被选择文件 = “”) .子程序 _删除_被选择 .如果真 (待替换文件列表框.现行选中项 = -1) 待替换文件列表框.删除表项 (待替换文件列表框.现行选中项) .子程序 _待替换文件列表框_右键单击表项 .子程序 _文件框1_鼠标右键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 清空待替换文件.禁止 = 真 清空待替换文件.禁止 = 假 .子程序 _清空待替换文件_被选择 待替换文件列表框.全部删除 () .孓程序 _退出_被选择 .子程序 _执行按钮_被单击 .局部变量 查找文本, 文本型 .局部变量 替换文本, 文本型 .如果真 (待替换文件列表框.取表项数 () = 0) .如果真 (覆蓋原文件选择框.选中 = 假) .如果真 (删全部空 (输出目录编辑框.内容) = “”) 信息框 (“请选择输出目录!”, 48, ) .如果真 (删全部空 (查找文本编辑框.内容) = “”) 信息框 (“请填写欲寻找的文本!”, 48, ) 编辑框3.内容 = “” 进度条1.位置 = 0 进度条1.最大位置 = 待替换文件列表框.取表项数 () 待替换文件列表框.现行选Φ项 = -1 当前被搜寻文本 = 查找文本编辑框.内容 zs = 待替换文件列表框.取表项数 () .判断循环首 (待替换文件列表框.现行选中项 ≠ 待替换文件列表框.取表项数 () - 1) 待替换文件列表框.现行选中项 = 待替换文件列表框.现行选中项 + 1 编辑框.内容 = 取字节集数据 (易语言读入文件替换文本 (待替换文件列表框.取标题 (待替换文件列表框.现行选中项, )), #文本型) 编辑框3.加入文本 (“正在替换:” + 待替换文件列表框.取标题 (待替换文件列表框.现行选Φ项, ) + #换行符) 编辑框.内容 = 文本替换 (编辑框.内容, 编辑框.起始选择位置 + 1, 取文本长度 (查找文本编辑框.内容), 替换文本编辑框.内容) .判断循环首 (搜尋 (真) = 假) 编辑框.内容 = 文本替换 (编辑框.内容, 编辑框.起始选择位置 + 1, 取文本长度 (查找文本编辑框.内容), 替换文本编辑框.内容) 编辑框.起始选择位置 = 起始 .如果 (覆盖原文件选择框.选中 = 假) .如果 (写到文件 (输出目录编辑框.内容 + “\” + 取文本右边 (待替换文件列表框.取标题 (待替换文件列表框.现行选中项, ), 取文本长度 (待替换文件列表框.取标题 (待替换文件列表框.现行选中项, )) - 倒找文本 (待替换文件列表框.取标题 (待替换文件列表框.现荇选中项, ), “\”, , 真)), 到字节集 (编辑框.内容)) = 真) 编辑框3.加入文本 (“完成,替换数量” + 到文本 (cs) + “处” + #换行符) 编辑框3.加入文本 (“写到文件失败!” + #换行符) 失败数 = 失败数 + 1 .如果 (写到文件 (待替换文件列表框.取标题 (待替换文件列表框.现行选中项, ), 到字节集 (编辑框.内容)) = 真) 编辑框3.加入文夲 (“完成,替换数量” + 到文本 (cs) + “处” + #换行符) 编辑框3.加入文本 (“覆盖原文件失败!” + #换行符) 失败数 = 失败数 + 1 待替换文件列表框.删除表项 (待替换文件列表框.现行选中项) 进度条1.位置 = 进度条1.位置 + 1 进度条1.位置 = 进度条1.最大位置 待替换文件列表框.现行选中项 = -1 .子程序 搜寻, 逻輯型 .参数 是否为搜寻下一个, 逻辑型 搜寻位置 = 编辑框.起始选择位置 + 1 .如果真 (是否为搜寻下一个) 搜寻位置 = 搜寻位置 + 取文本长度 (替换文本編辑框.内容) .如果 (是否为搜寻下一个) 搜寻位置 = 寻找文本 (编辑框.内容, 当前被搜寻文本, 搜寻位置, 不区分大小写选择框.选中) 搜寻位置 = 倒找文本 (編辑框.内容, 当前被搜寻文本, 搜寻位置, 不区分大小写选择框.选中) 编辑框.起始选择位置 = 搜寻位置 - 1 编辑框.被选择字符数 = 取文本长度 (当前被搜寻文本) 起始 = 编辑框.起始选择位置 .子程序 _输出目录按钮_被单击 .局部变量 ml, 文本型 ml = 浏览文件夹 (“请选择输出目录”, ) 输出目录编辑框.内容 = ml .孓程序 _覆盖原文件选择框_被单击 .如果 (覆盖原文件选择框.选中 = 真) 输出目录编辑框.禁止 = 真 输出目录编辑框.背景颜色 = #银白 输出目录按钮.禁圵 = 真 输出目录编辑框.禁止 = 假 输出目录编辑框.背景颜色 = #白色 输出目录按钮.禁止 = 假 .子程序 _关于_被选择 信息框 (“文本批量替换机 ” + #换荇符 + #换行符 + “版本:1.0” + #换行符, #信息图标, ) .子程序 _刷新目录_被选择 _类型组合框_列表项被选择 () .子程序 __启动窗口_创建完毕
版权声明:文章内容来源于网络,版权归原作者所有,如有侵权请点击这里与我们联系,我们将及时删除。