批量文本替換機(jī)的代碼
|
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.程序集變量 搜尋位置, 整數(shù)型.程序集變量 當(dāng)前被搜尋文本, 文本型.程序集變量 起始.程序集變量 sj1.程序集變量 sj2.子程序 _驅(qū)動(dòng)器框_驅(qū)動(dòng)器被改變連續(xù)賦值 (驅(qū)動(dòng)器框.驅(qū)動(dòng)器 ＋ “:\”, 目錄框1.目錄, 文件框1.目錄).子程序 _目錄框1_目錄被改變文件框1.目錄 ＝ 目錄框1.目錄.子程序 _文件框1_雙擊選擇待替換文件列表框.插入表項(xiàng) (, 目錄框1.目錄 ＋ “\” ＋ 文件框1.被選擇文件, , , , ).子程序 _類型組合框_列表項(xiàng)被選擇文件框1.通配符 ＝ 類型組合框.取項(xiàng)目文本 (類型組合框.現(xiàn)行選中項(xiàng)).子程序 _系統(tǒng)文件選擇框_被單擊.如果 (系統(tǒng)文件選擇框.選中 ＝ 真) 文件框1.系統(tǒng) ＝ 真.否則 文件框1.系統(tǒng) ＝ 假.如果結(jié)束.子程序 _隱藏文件選擇框_被單擊.如果 (隱藏文件選擇框.選中 ＝ 真) 文件框1.隱藏 ＝ 真.否則 文件框1.隱藏 ＝ 假.如果結(jié)束.子程序 _加入_被選擇.局部變量 text, 文本型, , "0".局部變量 cs.如果真 (文件框1.被選擇文件 ＝ “”) 返回 ().如果真結(jié)束text ＝ 分割文本 (文件框1.被選擇文件, “;”, ).計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (text), cs) .如果 (取文本右邊 (目錄框1.目錄, 1) ＝ “\”) 待替換文件列表框.插入表項(xiàng) (, 目錄框1.目錄 ＋ text [cs], , , , ) .否則 待替換文件列表框.插入表項(xiàng) (, 目錄框1.目錄 ＋ “\” ＋ text [cs], , , , ) .如果結(jié)束.計(jì)次循環(huán)尾 ().子程序 _刪除_被選擇.如果真 (待替換文件列表框.現(xiàn)行選中項(xiàng) ＝ -1) 返回 ().如果真結(jié)束待替換文件列表框.刪除表項(xiàng) (待替換文件列表框.現(xiàn)行選中項(xiàng)).子程序 _待替換文件列表框_右鍵單擊表項(xiàng)加入.禁止 ＝ 真彈出菜單 (程序, , )加入.禁止 ＝ 假.子程序 _文件框1_鼠標(biāo)右鍵被放開, 邏輯型.參數(shù) 橫向位置, 整數(shù)型.參數(shù) 縱向位置, 整數(shù)型.參數(shù) 功能鍵狀態(tài), 整數(shù)型刪除.禁止 ＝ 真清空待替換文件.禁止 ＝ 真彈出菜單 (程序, , )清空待替換文件.禁止 ＝ 假刪除.禁止 ＝ 假.子程序 _清空待替換文件_被選擇待替換文件列表框.全部刪除 ().子程序 _退出_被選擇結(jié)束 ().子程序 _執(zhí)行按鈕_被單擊.局部變量 查找文本, 文本型.局部變量 替換文本, 文本型.局部變量 搜尋位置.局部變量 失敗數(shù).局部變量 cs.局部變量 zs.如果真 (待替換文件列表框.取表項(xiàng)數(shù) () ＝ 0) 返回 ().如果真結(jié)束.如果真 (覆蓋原文件選擇框.選中 ＝ 假) .如果真 (刪全部空 (輸出目錄編輯框.內(nèi)容) ＝ “”) 信息框 (“請選擇輸出目錄!”, 48, ) 返回 () .如果真結(jié)束.如果真結(jié)束.如果真 (刪全部空 (查找文本編輯框.內(nèi)容) ＝ “”) 信息框 (“請?zhí)顚懹麑ふ业奈谋?”, 48, ) 返回 ().如果真結(jié)束置等待鼠標(biāo) ()sj1 ＝ 取啟動(dòng)時(shí)間 ()編輯框3.內(nèi)容 ＝ “”進(jìn)度條1.位置 ＝ 0進(jìn)度條1.最大位置 ＝ 待替換文件列表框.取表項(xiàng)數(shù) ()待替換文件列表框.現(xiàn)行選中項(xiàng) ＝ -1當(dāng)前被搜尋文本 ＝ 查找文本編輯框.內(nèi)容zs ＝ 待替換文件列表框.取表項(xiàng)數(shù) ().判斷循環(huán)首 (待替換文件列表框.現(xiàn)行選中項(xiàng) ≠ 待替換文件列表框.取表項(xiàng)數(shù) () － 1) 待替換文件列表框.現(xiàn)行選中項(xiàng) ＝ 待替換文件列表框.現(xiàn)行選中項(xiàng) ＋ 1 編輯框.內(nèi)容 ＝ 取字節(jié)集數(shù)據(jù) (讀入文件 (待替換文件列表框.取標(biāo)題 (待替換文件列表框.現(xiàn)行選中項(xiàng), )), #文本型) 編輯框3.加入文本 (“正在替換：” ＋ 待替換文件列表框.取標(biāo)題 (待替換文件列表框.現(xiàn)行選中項(xiàng), ) ＋ #換行符) .如果真 (搜尋 (假) ＝ 假) 編輯框.內(nèi)容 ＝ 文本替換 (編輯框.內(nèi)容, 編輯框.起始選擇位置 ＋ 1, 取文本長度 (查找文本編輯框.內(nèi)容), 替換文本編輯框.內(nèi)容) cs ＝ cs ＋ 1 .如果真結(jié)束 .判斷循環(huán)首 (搜尋 (真) ＝ 假) 編輯框.內(nèi)容 ＝ 文本替換 (編輯框.內(nèi)容, 編輯框.起始選擇位置 ＋ 1, 取文本長度 (查找文本編輯框.內(nèi)容), 替換文本編輯框.內(nèi)容) cs ＝ cs ＋ 1 編輯框.起始選擇位置 ＝ 起始 .判斷循環(huán)尾 () .如果 (覆蓋原文件選擇框.選中 ＝ 假) .如果 (寫到文件 (輸出目錄編輯框.內(nèi)容 ＋ “\” ＋ 取文本右邊 (待替換文件列表框.取標(biāo)題 (待替換文件列表框.現(xiàn)行選中項(xiàng), ), 取文本長度 (待替換文件列表框.取標(biāo)題 (待替換文件列表框.現(xiàn)行選中項(xiàng), )) － 倒找文本 (待替換文件列表框.取標(biāo)題 (待替換文件列表框.現(xiàn)行選中項(xiàng), ), “\”, , 真)), 到字節(jié)集 (編輯框.內(nèi)容)) ＝ 真) 編輯框3.加入文本 (“完成,替換數(shù)量” ＋ 到文本 (cs) ＋ “處” ＋ #換行符) .否則 編輯框3.加入文本 (“寫到文件失敗！” ＋ #換行符) 失敗數(shù) ＝ 失敗數(shù) ＋ 1 .如果結(jié)束 .否則 .如果 (寫到文件 (待替換文件列表框.取標(biāo)題 (待替換文件列表框.現(xiàn)行選中項(xiàng), ), 到字節(jié)集 (編輯框.內(nèi)容)) ＝ 真) 編輯框3.加入文本 (“完成,替換數(shù)量” ＋ 到文本 (cs) ＋ “處” ＋ #換行符) .否則 編輯框3.加入文本 (“覆蓋原文件失敗！” ＋ #換行符) 失敗數(shù) ＝ 失敗數(shù) ＋ 1 .如果結(jié)束 .如果結(jié)束 待替換文件列表框.刪除表項(xiàng) (待替換文件列表框.現(xiàn)行選中項(xiàng)) 進(jìn)度條1.位置 ＝ 進(jìn)度條1.位置 ＋ 1 cs ＝ 0.判斷循環(huán)尾 ()進(jìn)度條1.位置 ＝ 進(jìn)度條1.最大位置sj2 ＝ (取啟動(dòng)時(shí)間 () － sj1) ÷ 1000編輯框3.加入文本 (#換行符 ＋ “-------------------------------” ＋ #換行符 ＋ “★完畢，總數(shù)目：” ＋ 到文本 (zs) ＋ “,” ＋ 到文本 (失敗數(shù)) ＋ “個(gè)文件沒有替換成功,總用時(shí)” ＋ 到文本 (sj2) ＋ “秒”)待替換文件列表框.現(xiàn)行選中項(xiàng) ＝ -1恢復(fù)鼠標(biāo) ().子程序 搜尋, 邏輯型.參數(shù) 是否為搜尋下一個(gè), 邏輯型搜尋位置 ＝ 編輯框.起始選擇位置 ＋ 1.如果真 (是否為搜尋下一個(gè)) 搜尋位置 ＝ 搜尋位置 ＋ 取文本長度 (替換文本編輯框.內(nèi)容).如果真結(jié)束.如果 (是否為搜尋下一個(gè)) 搜尋位置 ＝ 尋找文本 (編輯框.內(nèi)容, 當(dāng)前被搜尋文本, 搜尋位置, 不區(qū)分大小寫選擇框.選中).否則 搜尋位置 ＝ 倒找文本 (編輯框.內(nèi)容, 當(dāng)前被搜尋文本, 搜尋位置, 不區(qū)分大小寫選擇框.選中).如果結(jié)束.如果 (搜尋位置 ＝ -1) 返回 (真).否則 編輯框.起始選擇位置 ＝ 搜尋位置 － 1 編輯框.被選擇字符數(shù) ＝ 取文本長度 (當(dāng)前被搜尋文本) 起始 ＝ 編輯框.起始選擇位置 返回 (假).如果結(jié)束.子程序 _輸出目錄按鈕_被單擊.局部變量 ml, 文本型ml ＝ 瀏覽文件夾 (“請選擇輸出目錄”, )輸出目錄編輯框.內(nèi)容 ＝ ml.子程序 _覆蓋原文件選擇框_被單擊.如果 (覆蓋原文件選擇框.選中 ＝ 真) 輸出目錄編輯框.禁止 ＝ 真 輸出目錄編輯框.背景顏色 ＝ #銀白 輸出目錄按鈕.禁止 ＝ 真.否則 輸出目錄編輯框.禁止 ＝ 假 輸出目錄編輯框.背景顏色 ＝ #白色 輸出目錄按鈕.禁止 ＝ 假.如果結(jié)束.子程序 _關(guān)于_被選擇信息框 (“文本批量替換機(jī) ” ＋ #換行符 ＋ #換行符 ＋ “版本：1.0” ＋ #換行符, #信息圖標(biāo), ).子程序 _刷新目錄_被選擇_類型組合框_列表項(xiàng)被選擇 ().子程序 __啟動(dòng)窗口_創(chuàng)建完畢XP風(fēng)格 (1) |
運(yùn)行結(jié)果：
總結(jié)
以上就是這篇文章的全部內(nèi)容了，希望本文的內(nèi)容對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，謝謝大家對服務(wù)器之家的支持。如果你想了解更多相關(guān)內(nèi)容請查看下面相關(guān)鏈接
