Alterar caracteres variados

[pedro_herpeto 0]

Criei 02 VBS a fim de alterar diversos caracteres de um txt, por apenas um.

Entretanto, tive que criar um bat pra rodar em sequencia o VBS 1 e dps o VBS 2.

Gostaria de saber, como faço isso em apenas um vbs? Gostaria de unificar o comando pra otimizar a alteraçao.

 

VBS 1

strArquivo_Original = "i.txt"
strArquivo_Novo = "i_0.txt"

strProcurada = "02"
strNova = "00"


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile_Original = objFSO.OpenTextFile(strArquivo_Original, 1)
Set objFile_Novo = objFSO.CreateTextFile(strArquivo_Novo)


Do Until objFile_Original.AtEndOfStream

strLinha = objFile_Original.ReadLine

objFile_Novo.writeline replace(strLinha,strProcurada,strNova)

Loop

objFile_Original.Close
objFile_Novo.Close

 

VBS 2:

strArquivo_Original = "i.txt"
strArquivo_Novo = "i_0.txt"

strProcurada = "01"
strNova = "00"


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile_Original = objFSO.OpenTextFile(strArquivo_Original, 1)
Set objFile_Novo = objFSO.CreateTextFile(strArquivo_Novo)


Do Until objFile_Original.AtEndOfStream

strLinha = objFile_Original.ReadLine

objFile_Novo.writeline replace(strLinha,strProcurada,strNova)

Loop

objFile_Original.Close
objFile_Novo.Close

[Criquio 19]

É só repetir o bloco de atualização alterando o nome do arquivo a ser atualizado. Mas eu não entendi a necessidade dos dois comandos se, pelo que entendi até agora, o segundo está sobrescrevendo o primeiro já que os nomes de arquivos são os mesmos.