VBS sequencial

[pedro_herpeto 0]

Estou criando uma rotina para alterar caracteres em um txt.

Tenho 02 caracteres, sendo A e B. A precisa se tornar B, e B precisa se tornar A.

Entretanto criei 03 VBS que são executados sequencialmente através de um .bat. A se torna X, B se torna A, e X se torna B.

Como faço pra unificar os 03 arquivos vbs, em apenas 01 arquivo e fazer essa alteração em um passo?

 

arquivo bat

@echo off
cls
@echo Iniciando processo...
start d_1.vbs
pause
start d_2.vbs
pause
start d_3.vbs
@echo Arquivo criado com sucesso.
pause
exit

 

 

arquivo d_1.vbs

strArquivo_Original = "D.txt"

strArquivo_Novo = "D_1.txt"

 

strProcurada = "A"

strNova = "X"

 

 

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

 

 

arquivo d_2.vbs

objFile_Original.Close

objFile_Novo.Close

 

strArquivo_Original = "D_1.txt"

strArquivo_Novo = "D_2.txt"

 

strProcurada = "B"

strNova = "A"

 

 

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

 

 

arquivo d_3.vbs

strArquivo_Original = "D_2.txt"
strArquivo_Novo = "D_F.txt"

strProcurada = "X"
strNova = "B"


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

objFSO.Deletefile strArquivo_Original

[KhaosDoctor 242]

No final do primeiro VBS abra o outro VBS:

 

http://stackoverflow.com/questions/1686454/run-a-vbscript-from-another-vbscript