Pesquisar na Comunidade
Mostrando resultados para as tags ''acentuação inputbox vbs''.
Encontrado 1 registro
-
Boa tarde, Estou trabalhando num script, porém o mesmo não grava a informação que está no campo Inputbox com acentuação.. Quando abro o arquivo TXT ele está codificado.. Alguém pode me ajudar? Segue script: Ele deverá substituir os nomes "Nomee", "Setorr" e "numeroo" pelo que for digitado no script.. porém ocorre este problema de acentuação. strInput = InputBox ("Digite seu Nome Completo") strInput1 = InputBox ("Digite seu Setor") strInput2 = InputBox ("Digite seu Ramal") Const FOR_READING = 1 Const FOR_WRITING = 2 Set wshShell = CreateObject( "WScript.Shell" ) strFileName = "assinatura.txt" Set objFS = CreateObject("Scripting.FileSystemObject") Set objTS = objFS.OpenTextFile(strFileName, FOR_READING) strContents = objTS.ReadAll objTS.Close Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING) strContents = Replace(strContents, "Nomee", strInput) strContents = Replace(strContents, "Setorr", strInput1) strContents = Replace(strContents, "numeroo", strInput2) objTS.WriteLine strContents objTS.Close
