|
|
Sub 批量修改文本內(nèi)容()
Dim Fn$, MyPath$, MyFile$, NewName$, myText
Fn = Application.GetOpenFilename("請(qǐng)隨便選擇一個(gè)文件 (*.*), *.*", , "請(qǐng)隨便選擇一個(gè)文件，讓系統(tǒng)確定路徑:")
MyPath = Left(Fn, InStrRev(Fn, "\"))
MyFile = Dir(MyPath & "*.txt") ' 可以指明文件類型，也可以不指明。
Do While MyFile <> "" ' 開(kāi)始循環(huán)。
Open MyFile For Input As #1 '打開(kāi)第一個(gè)txt文件
Open MyFile & "temp" For Append As #2 '創(chuàng)建這個(gè)文件名+temp的臨時(shí)文件，并打開(kāi)
Do While Not EOF(1) '循環(huán)至文件結(jié)尾
DoEvents '用于中斷,避免鼠標(biāo)卡住
Line Input #1, myText '讀取這個(gè)文件的每一行
If InStr(myText, "元寶") > 0 Then '如果存在“元寶”這個(gè)關(guān)鍵字
Print #2, ";" & myText '在前面加分號(hào)
Else
Print #2, myText '否則輸出原來(lái)的內(nèi)容
End If
Loop
Close #2
Close #1
Kill MyFile '刪除原文件
Name MyFile & "temp" As MyFile '重命名臨時(shí)文件為原文件
MyFile = Dir ' 查找下一個(gè)文件。
Loop
End Sub |
|
