Acentuação Inputbox

[cahh74]

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

[Graymalkin]

Provavelmente ele está gravando o arquivo como UTF-8 (Unicode) e não como ASCII, então experimente declarar estas constantes:

Const OpenAsDefault = -2
Const OpenAsUnicode = -1
Const OpenAsUSAscii =  0

E depois altere a linha...

Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING)

... para:

Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING, False, OpenAsUSAscii)

Esse "False" aí é para não criar o arquivo caso o mesmo não exista. E experimente também o "OpenAsDefault" e "OpenAsUnicode" para ver se algum cria o arquivo como você precisa.

Abraços!

[cahh74]

10 horas atrás, Graymalkin disse:

Provavelmente ele está gravando o arquivo como UTF-8 (Unicode) e não como ASCII, então experimente declarar estas constantes:

Const OpenAsDefault = -2
Const OpenAsUnicode = -1
Const OpenAsUSAscii =  0

E depois altere a linha...

Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING)

... para:

Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING, False, OpenAsUSAscii)

Esse "False" aí é para não criar o arquivo caso o mesmo não exista. E experimente também o "OpenAsDefault" e "OpenAsUnicode" para ver se algum cria o arquivo como você precisa.

Abraços!

Deu certo. Valeeeu obrigado!