用VBA批量替換文本文件內(nèi)容

ID:59284 · 發(fā)表于 2014-3-1 01:10

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 <> "" ' 開始循環(huán)。
Open MyFile For Input As #1  '打開第一個(gè)txt文件
      Open MyFile & "temp" For Append As #2 '創(chuàng)建這個(gè)文件名+temp的臨時(shí)文件，并打開
         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  '否則輸出原來的內(nèi)容
            End If
         Loop
      Close #2
   Close #1
   Kill MyFile '刪除原文件
   Name MyFile & "temp" As MyFile '重命名臨時(shí)文件為原文件
      MyFile = Dir ' 查找下一個(gè)文件。
Loop
End Sub

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			立即注冊(cè)

用VBA批量替換文本文件內(nèi)容

瀏覽過的版塊