易语⾔实现批量⽂本替换操作的代码
批量⽂本替换机的代码
.版本 2
.⽀持库 iext
.⽀持库 shell
.⽀持库 xplib
.程序集窗⼝程序集1
.程序集变量搜寻位置, 整数型
.程序集变量当前被搜寻⽂本, ⽂本型
.程序集变量起始
.程序集变量 sj1
.
程序集变量 sj2
.⼦程序 _驱动器框_驱动器被改变
连续赋值 (驱动器框.驱动器＋ “:\”, ⽬录框1.⽬录, ⽂件框1.⽬录)
.⼦程序 _⽬录框1_⽬录被改变
⽂件框1.⽬录＝⽬录框1.⽬录
.⼦程序 _⽂件框1_双击选择
待替换⽂件列表框.插⼊表项 (, ⽬录框1.⽬录＋ “\” ＋⽂件框1.被选择⽂件, , , , )
.⼦程序 _类型组合框_列表项被选择
⽂件框1.通配符＝类型组合框.取项⽬⽂本 (类型组合框.现⾏选中项)
.⼦程序 _系统⽂件选择框_被单击
.如果 (系统⽂件选择框.选中＝真)
⽂件框1.系统＝真
.否则
⽂件框1.系统＝假
.如果结束
.⼦程序 _隐藏⽂件选择框_被单击
.如果 (隐藏⽂件选择框.选中＝真)
⽂件框1.隐藏＝真
.否则
⽂件框1.隐藏＝假
.如果结束
.⼦程序 _加⼊_被选择
.
局部变量 text, ⽂本型, , "0"
.局部变量 cs
.如果真 (⽂件框1.被选择⽂件＝ “”)
返回 ()
.如果真结束
text ＝分割⽂本 (⽂件框1.被选择⽂件, “;”, )
.计次循环⾸ (取数组成员数 (text), cs)
.如果 (取⽂本右边 (⽬录框1.⽬录, 1) ＝ “\”)
待替换⽂件列表框.插⼊表项 (, ⽬录框1.⽬录＋ text [cs], , , , )
.否则
待替换⽂件列表框.插⼊表项 (, ⽬录框1.⽬录＋ “\” ＋ text [cs], , , , )
.
如果结束
.计次循环尾 ()
.⼦程序 _删除_被选择
.如果真 (待替换⽂件列表框.现⾏选中项＝ -1)
返回 ()
.如果真结束
待替换⽂件列表框.删除表项 (待替换⽂件列表框.现⾏选中项)
.⼦程序 _待替换⽂件列表框_右键单击表项
加⼊.禁⽌＝真
弹出菜单 (程序, , )
加⼊.禁⽌＝假
.
⼦程序 _⽂件框1_⿏标右键被放开, 逻辑型
.参数横向位置, 整数型
.参数纵向位置, 整数型
.参数功能键状态, 整数型
删除.禁⽌＝真
清空待替换⽂件.禁⽌＝真
弹出菜单 (程序, , )
清空待替换⽂件.禁⽌＝假
删除.禁⽌＝假
.⼦程序 _清空待替换⽂件_被选择
待替换⽂件列表框.全部删除 ()
.
⼦程序 _退出_被选择
结束 ()
.⼦程序 _执⾏按钮_被单击
.局部变量查⽂本, ⽂本型
.局部变量替换⽂本, ⽂本型
.局部变量搜寻位置
.局部变量失败数
.局部变量 cs
.局部变量 zs
.如果真 (待替换⽂件列表框.取表项数 () ＝ 0)
返回 ()
.
如果真结束
.如果真 (覆盖原⽂件选择框.选中＝假)
.如果真 (删全部空 (输出⽬录编辑框.内容) ＝ “”)
信息框 (“请选择输出⽬录!”, 48, )
返回 ()
.如果真结束
.如果真结束
.如果真 (删全部空 (查⽂本编辑框.内容) ＝ “”)
信息框 (“请填写欲寻的⽂本!”, 48, )
返回 ()
.如果真结束
置等待⿏标 ()
sj1 ＝取启动时间 ()
编辑框3.内容＝ “”
进度条1.位置＝ 0
sj成员资料进度条1.最⼤位置＝待替换⽂件列表框.取表项数 ()
待替换⽂件列表框.现⾏选中项＝ -1
当前被搜寻⽂本＝查⽂本编辑框.内容
zs ＝待替换⽂件列表框.取表项数 ()
.判断循环⾸ (待替换⽂件列表框.现⾏选中项 ≠ 待替换⽂件列表框.取表项数 () － 1)
待替换⽂件列表框.现⾏选中项＝待替换⽂件列表框.现⾏选中项＋ 1
编辑框.内容＝取字节集数据 (读⼊⽂件 (待替换⽂件列表框.取标题 (待替换⽂件列表框.现⾏选中项, )), #⽂本型)
编辑框3.加⼊⽂本 (“正在替换：” ＋待替换⽂件列表框.取标题 (待替换⽂件列表框.现⾏选中项, ) ＋ #换⾏符)
.如果真 (搜寻 (假) ＝假)
编辑框.内容＝⽂本替换 (编辑框.内容, 编辑框.起始选择位置＋ 1, 取⽂本长度 (查⽂本编辑框.内容), 替换⽂本编辑框.内容)
cs ＝ cs ＋ 1
.如果真结束
.判断循环⾸ (搜寻 (真) ＝假)
编辑框.内容＝⽂本替换 (编辑框.内容, 编辑框.起始选择位置＋ 1, 取⽂本长度 (查⽂本编辑框.内容), 替换⽂本编辑框.内容)
cs ＝ cs ＋ 1
编辑框.起始选择位置＝起始
.
判断循环尾 ()
.如果 (覆盖原⽂件选择框.选中＝假)
.如果 (写到⽂件 (输出⽬录编辑框.内容＋ “\” ＋取⽂本右边 (待替换⽂件列表框.取标题 (待替换⽂件列表框.现⾏选中项, ), 取⽂本长度 (待替换⽂件列表框.取标题 (待替换⽂件列表框.现⾏选中项, )) －倒⽂本 (待替换⽂件列表框.取标题 (待替换⽂件列表框.现⾏选编辑框3.加⼊⽂本 (“完成，替换数量” ＋到⽂本 (cs) ＋ “处” ＋ #换⾏符)
.否则
编辑框3.加⼊⽂本 (“写到⽂件失败！” ＋ #换⾏符)
失败数＝失败数＋ 1
.如果结束
.否则
.如果 (写到⽂件 (待替换⽂件列表框.取标题 (待替换⽂件列表框.现⾏选中项, ), 到字节集 (编辑框.内容)) ＝真)
编辑框3.加⼊⽂本 (“完成，替换数量” ＋到⽂本 (cs) ＋ “处” ＋ #换⾏符)
.否则
编辑框3.加⼊⽂本 (“覆盖原⽂件失败！” ＋ #换⾏符)
失败数＝失败数＋ 1
.如果结束
.如果结束
待替换⽂件列表框.删除表项 (待替换⽂件列表框.现⾏选中项)
进度条1.位置＝进度条1.位置＋ 1
cs ＝ 0
.判断循环尾 ()
进度条1.位置＝进度条1.最⼤位置
sj2 ＝ (取启动时间 () － sj1) ÷ 1000
编辑框3.加⼊⽂本 (#换⾏符＋ “-------------------------------” ＋ #换⾏符＋ “★完毕，总数⽬：” ＋到⽂本 (zs) ＋ “,” ＋到⽂本 (失败数) ＋ “个⽂件没有替换成功，总⽤时” ＋到⽂本 (sj2) ＋ “秒”)
待替换⽂件列表框.现⾏选中项＝ -1
恢复⿏标 ()
.⼦程序搜寻, 逻辑型
.参数是否为搜寻下⼀个, 逻辑型
搜寻位置＝编辑框.起始选择位置＋ 1
.如果真 (是否为搜寻下⼀个)
搜寻位置＝搜寻位置＋取⽂本长度 (替换⽂本编辑框.内容)
.如果真结束
.如果 (是否为搜寻下⼀个)
搜寻位置＝寻⽂本 (编辑框.内容, 当前被搜寻⽂本, 搜寻位置, 不区分⼤⼩写选择框.选中)
.否则
搜寻位置＝倒⽂本 (编辑框.内容, 当前被搜寻⽂本, 搜寻位置, 不区分⼤⼩写选择框.选中)
.如果结束
.如果 (搜寻位置＝ -1)
返回 (真)
.否则
编辑框.起始选择位置＝搜寻位置－ 1
编辑框.被选择字符数＝取⽂本长度 (当前被搜寻⽂本)
起始＝编辑框.起始选择位置
返回 (假)
.
如果结束
.⼦程序 _输出⽬录按钮_被单击
.局部变量 ml, ⽂本型
ml ＝浏览⽂件夹 (“请选择输出⽬录”, )
输出⽬录编辑框.内容＝ ml
.⼦程序 _覆盖原⽂件选择框_被单击
.如果 (覆盖原⽂件选择框.选中＝真)
输出⽬录编辑框.禁⽌＝真
输出⽬录编辑框.背景颜⾊＝ #银⽩
输出⽬录按钮.禁⽌＝真
.否则
输出⽬录编辑框.禁⽌＝假
输出⽬录编辑框.背景颜⾊＝ #⽩⾊
输出⽬录按钮.禁⽌＝假
.如果结束
.⼦程序 _关于_被选择
信息框 (“⽂本批量替换机 ” ＋ #换⾏符＋ #换⾏符＋ “版本：1.0” ＋ #换⾏符, #信息图标, )
.⼦程序 _刷新⽬录_被选择
_类型组合框_列表项被选择 ()
.⼦程序 __启动窗⼝_创建完毕
XP风格 (1)
运⾏结果：
总结
以上就是这篇⽂章的全部内容了，希望本⽂的内容对⼤家的学习或者⼯作具有⼀定的参考学习价值，谢谢⼤家对的⽀持。如果你想了解更多相关内容请查看下⾯相关链接
发布评论