none
Bat ou VBS para trocar string em arquivo .txt RRS feed

  • Pergunta

  • Existe alguma rotina .bat ou .vbs que troque uma determinada string em um arquivo .txt?

    Exemplo: trocar a string "carro" por "bola" no arquivo teste.txt.

    Poderiam ajudar?

    sexta-feira, 6 de maio de 2011 21:04

Respostas

  • strArquivo_Original = "arquivo_original.txt"
    strArquivo_Novo = "arquivo_novo.txt"
    
    strProcurada = "carro"
    strNova = "bola"
    
    
    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
    objFSO.MoveFile strArquivo_Novo , strArquivo_Original
    
    

    Fábio de Paula Junior
    quarta-feira, 8 de junho de 2011 15:51
    Moderador