pedro_herpeto

Criei 02 VBS a fim de alterar diversos caracteres por apenas um. Entretanto, tive que criar um bat pra rodar em sequencia o VBS 1 e dps o 2. Como faço isso em apenas um vbs? Gostaria de unificar o comando. 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 Pedro

Bom dia, sou novo em VBS e no fórum. Estou criando uma rotina para alterar caracteres em um texto. 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 desde já, agradeço!