Ir para conteúdo
Fórum Script Brasil
  • 0

Acentuação Inputbox


cahh74

Pergunta

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

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

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!

Link para o comentário
Compartilhar em outros sites

  • 0
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!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...