none
Substituir virgula entre aspas RRS feed

  • Pergunta

  • Ola pessoal!
    Estou com um problema para desenvolver um script vbs, a necessidade era substituir alguns caracteres especiais de  algumas palavras que possuissem virgula, isso em um .txt, isso ja foi resolvido em parte, o problema agora é com palavaras que não seguem um padrao, ou seja, sao digitadas pelo usuario, mas na exportação do .txt elas vem entre aspas, Ex: "Eu, voce e ele estão na praia" qual codigo eu coloco no meu VBS para substituir a virgula que vem entre as aspas independe da palavra que a acompanha?

    Meu codigo
    arrReplacements=Array(_
    	"okay,=okay",_
    	"=",_
    	"´,=",_
    	"',=",_
    	", Recipient ok= Recipient ok")
     
    Const ForReading = 1
    Const ForWriting = 2
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile("C:\MeuArquivo.txt", ForReading)
    strText = objFile.ReadAll
    objFile.Close
    strNewText=strText
    for each r in arrReplacements
    	strFind=Split(r,"=")(0)
    	strReplace=Split(r,"=")(1)
    	strNewText = Replace(strNewText, strFind, strReplace)
    next
    Set objFile = objFSO.OpenTextFile("C:\MeuArquivo.txt", ForWriting)
    objFile.WriteLine strNewText
    objFile.Close

    Douglas Filipe http://douglasfilipe.wordpress.com www.baboo.com.br www.babooforum.com.br
    quinta-feira, 14 de maio de 2009 21:01