none
Problemas com acentuação em resultado DOS RRS feed

  • Pergunta

  • Ba Galera

    Bom dia

    Alguém pode me dar uma força tche, estou lendo o conteúdo de um comando executado no DOS e jogando ele para um objShell.Popup, porem estou tendo dificuldades em relação as palavras acentuadas, alguém tem alguma ideia de como tratar esta questão.

    Obrigado

    Código.

    OnErrorResumeNext

    Set objShell=CreateObject("WScript.Shell")

    strUserName  = objShell.ExpandEnvironmentStrings("%USERNAME%")

    Set objShell=CreateObject("WScript.Shell")     

    strquery = "net user " & strUserName & " /domain"     

    strResultado = CreateObject("WScript.Shell").Exec(strquery).StdOut.ReadAll & Chr(3+46)

    objShell.Popup strResultado


    • Editado Marcelo TI segunda-feira, 3 de abril de 2017 10:36
    segunda-feira, 3 de abril de 2017 10:35

Respostas

  • Ola Marcelo,

    bom certa vez, precisei gerar uma bat com aceituações, nesse caso eu usei a tabela ASCII, no sei caso, fiz um tratamento no Vbscript.

    veja se te ajuda

    On Error Resume Next
    
    Set objShell=CreateObject("WScript.Shell")
    strUserName  = objShell.ExpandEnvironmentStrings("%USERNAME%")
    strquery = "net user " & strUserName & " /domain"
    strResultado = CreateObject("WScript.Shell").Exec(strquery).StdOut.ReadAll & Chr(3+46)
    
    strResultado=replace(strResultado,"Æ","ã")
    strResultado=replace(strResultado,"‡","ç")
    strResultado=replace(strResultado,"Õ","å")
    strResultado=replace(strResultado,"ƒ","â")
    strResultado=replace(strResultado,"µ","Á")
    strResultado=replace(strResultado,"·","À")
    strResultado=replace(strResultado,"Ö","Í")
    strResultado=replace(strResultado,"Þ","Ì")
    strResultado=replace(strResultado,"¢","ó")
    strResultado=replace(strResultado,"ã","Ò")
    strResultado=replace(strResultado,"£","ú")
    strResultado=replace(strResultado,"Ò","ã")
    strResultado=replace(strResultado,"¡","í")
    strResultado=replace(strResultado," ","á")
    strResultado=replace(strResultado,"é","Ú")
    strResultado=replace(strResultado,"ˆ","ê")
    strResultado=replace(strResultado,"ä","õ")
    
    objShell.Popup strResultado
     

    TABELA ASCII

    á= 
    à=…
    ã=Æ
    ä=„
    â=ƒ
    Á=µ
    À=·
    Ã=Ç
    Ä=Ž
    Â=¶
    é=‚
    è=Š
    ë=‰
    ê=ˆ
    É=
    È=Ô
    Ë=Ó
    Ê=Ò
    í=¡
    ì=
    ï=‹
    î=Œ
    Í=Ö
    Ì=Þ
    Ï=Ø
    Î=×
    ó=¢
    ò=•
    õ=ä
    ö=”
    ô=“
    Ó=à
    Ò=ã
    Õ=å
    Ö=™
    Ô=â
    ú=£
    ù=—
    ü=
    û=–
    Ú=é
    Ù=ë
    Ü=š
    Û=ê
    ç=‡
    Ç=€
    §=õ
    ¹=û
    ²=ý
    ³=ü
    £=œ
    ¢=½
    ¬=ª
    º=§
    ª=¦
    º=ø

    link de referencia 


    att, Aparecido Deveza


    • Editado Aparecido Deveza segunda-feira, 10 de abril de 2017 03:48 link
    • Marcado como Resposta Marcelo TI segunda-feira, 10 de abril de 2017 18:37
    segunda-feira, 10 de abril de 2017 03:47

Todas as Respostas

  • Ola Marcelo,

    bom certa vez, precisei gerar uma bat com aceituações, nesse caso eu usei a tabela ASCII, no sei caso, fiz um tratamento no Vbscript.

    veja se te ajuda

    On Error Resume Next
    
    Set objShell=CreateObject("WScript.Shell")
    strUserName  = objShell.ExpandEnvironmentStrings("%USERNAME%")
    strquery = "net user " & strUserName & " /domain"
    strResultado = CreateObject("WScript.Shell").Exec(strquery).StdOut.ReadAll & Chr(3+46)
    
    strResultado=replace(strResultado,"Æ","ã")
    strResultado=replace(strResultado,"‡","ç")
    strResultado=replace(strResultado,"Õ","å")
    strResultado=replace(strResultado,"ƒ","â")
    strResultado=replace(strResultado,"µ","Á")
    strResultado=replace(strResultado,"·","À")
    strResultado=replace(strResultado,"Ö","Í")
    strResultado=replace(strResultado,"Þ","Ì")
    strResultado=replace(strResultado,"¢","ó")
    strResultado=replace(strResultado,"ã","Ò")
    strResultado=replace(strResultado,"£","ú")
    strResultado=replace(strResultado,"Ò","ã")
    strResultado=replace(strResultado,"¡","í")
    strResultado=replace(strResultado," ","á")
    strResultado=replace(strResultado,"é","Ú")
    strResultado=replace(strResultado,"ˆ","ê")
    strResultado=replace(strResultado,"ä","õ")
    
    objShell.Popup strResultado
     

    TABELA ASCII

    á= 
    à=…
    ã=Æ
    ä=„
    â=ƒ
    Á=µ
    À=·
    Ã=Ç
    Ä=Ž
    Â=¶
    é=‚
    è=Š
    ë=‰
    ê=ˆ
    É=
    È=Ô
    Ë=Ó
    Ê=Ò
    í=¡
    ì=
    ï=‹
    î=Œ
    Í=Ö
    Ì=Þ
    Ï=Ø
    Î=×
    ó=¢
    ò=•
    õ=ä
    ö=”
    ô=“
    Ó=à
    Ò=ã
    Õ=å
    Ö=™
    Ô=â
    ú=£
    ù=—
    ü=
    û=–
    Ú=é
    Ù=ë
    Ü=š
    Û=ê
    ç=‡
    Ç=€
    §=õ
    ¹=û
    ²=ý
    ³=ü
    £=œ
    ¢=½
    ¬=ª
    º=§
    ª=¦
    º=ø

    link de referencia 


    att, Aparecido Deveza


    • Editado Aparecido Deveza segunda-feira, 10 de abril de 2017 03:48 link
    • Marcado como Resposta Marcelo TI segunda-feira, 10 de abril de 2017 18:37
    segunda-feira, 10 de abril de 2017 03:47
  • Ba tree legal obrigado Aparecido.
    segunda-feira, 10 de abril de 2017 18:37