服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|VB|R语言|JavaScript|易语言|vb.net|

服务器之家 - 编程语言 - 易语言 - 易语言实现批量文本替换操作的代码

易语言实现批量文本替换操作的代码

2022-02-20 15:52易语言源码教程 易语言

今天小编就为大家分享一篇关于易语言实现批量文本替换操作的代码,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧

批量文本替换机的代码

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
.版本 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
进度条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)

运行结果:

易语言实现批量文本替换操作的代码

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接

延伸 · 阅读

精彩推荐
  • 易语言易语言关于程序进程和线程的基础知识

    易语言关于程序进程和线程的基础知识

    今天小编就为大家分享一篇关于易语言关于程序进程和线程的基础知识,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起...

    三叶资源网6662022-02-24
  • 易语言实例操作易语言载入窗口

    实例操作易语言载入窗口

    在本文中小编给大家整理的是关于易语言载入窗口的教程和步骤内容,需要的可以跟着学习下...

    易语言教程网19162022-03-02
  • 易语言易语言在画板中写出指定文本当画板中已满会自动滚屏

    易语言在画板中写出指定文本当画板中已满会自动滚屏

    今天小编就为大家分享一篇关于易语言在画板中写出指定文本当画板中已满会自动滚屏,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,...

    易语言帮助手册9092022-01-12
  • 易语言易语言设置进度条边框样式的方法

    易语言设置进度条边框样式的方法

    今天小编就为大家分享一篇关于易语言设置进度条边框样式的方法,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随...

    易语言帮助手册4422022-01-20
  • 易语言易语言获取指定磁盘的名称

    易语言获取指定磁盘的名称

    今天小编就为大家分享一篇关于易语言获取指定磁盘的名称,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来...

    易语言帮助手册12662022-01-04
  • 易语言一步一步跟我学易语言之第二个易程序菜单设计

    一步一步跟我学易语言之第二个易程序菜单设计

    今天小编就为大家分享一篇关于的一步一步跟我学易语言之第二个易程序菜单设计,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要...

    易语言帮助手册7092021-06-17
  • 易语言一步一步跟我学易语言之关于变量

    一步一步跟我学易语言之关于变量

    今天小编就为大家分享一篇关于一步一步跟我学易语言之关于变量,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随...

    易语言帮助手册10822021-06-17
  • 易语言易语言生成exe文件的方法

    易语言生成exe文件的方法

    在本篇内容中小编给大家分享的是关于易语言生成exe文件的方法知识点,需要的朋友们参考下。...

    易语言教程网14792022-03-01