Remove From My Forums

Ler arquivo de Log Unicode ou alterar codificação para Ansi

Pergunta
0

Entrar para Votar
Ba galera bom dia.

Estou tentando ler uns arquivos de log do NTBackup tche para consolidar a informação, porem o arquivo esta codificado em Unicode, e quando uso o script abaixo para ler tche ele vem com caracteres estranhos, alguém sabe o que tenho que mudar no código ou algum código que eu possa rodar antes para que o arquivo seja mudado para ANSI tche, em vbs por favor.

Codigo tche.

strFile = "C:\temp\backup03.log" Set objFSO = CreateObject("Scripting.FileSystemObject") 'Abre Arquivo Set objTextFile = objFSO.opentextfile(strFile,1) strparp = objTextFile.Readline objTextFile.Close WScript.Echo strparp

Obrigado galera.
segunda-feira, 18 de agosto de 2014 12:09

Responder

|

Citação

Respostas

Entrar para Votar

Marcelo.

Veja se este código lhe ajuda, você pode montar um processo que execute este código para realizar a conversão do Unicode para ansi, antes de fazer a leitura.

Const ForReading = 1
Const TristateTrue = -1 'UniCode

FilePath = "C:\temp\bkp\backup03.log"

Set oFSO = CreateObject("scripting.filesystemobject")
Set oFile = oFSO.GetFile(FilePath)
WScript.Echo ofile.ParentFolder
WScript.Echo ofile.ShortPath

Set oFileIn = oFSO.OpenTextFile(oFile.Path,ForReading,,TristateTrue)
Set oFileOut = oFSO.CreateTextFile(oFile.ParentFolder & "\ansi_" & oFile.Name,True,False)

oFileOut.Write oFileIn.ReadAll

Your potential. Our passion - Microsoft

Marcado como Resposta Marcelo TI quinta-feira, 21 de agosto de 2014 13:30

terça-feira, 19 de agosto de 2014 14:57

0

Entrar para Votar
Em VBScript

Copy a Unicode File to an ANSI File

http://msdn.microsoft.com/en-us/library/aa368046(v=vs.85).aspx

Em PowerShell

Powershell script to change the format of all files in a folder from Unicode to ANSI

http://stackoverflow.com/questions/11112331/powershell-script-to-change-the-format-of-all-files-in-a-folder-from-unicode-to
Fábio de Paula Junior
- Marcado como Resposta Marcelo TI quinta-feira, 21 de agosto de 2014 13:31
terça-feira, 19 de agosto de 2014 16:34

Responder

|

Citação

Moderador

Todas as Respostas

Entrar para Votar

Marcelo.

Veja se este código lhe ajuda, você pode montar um processo que execute este código para realizar a conversão do Unicode para ansi, antes de fazer a leitura.

Const ForReading = 1
Const TristateTrue = -1 'UniCode

FilePath = "C:\temp\bkp\backup03.log"

Set oFSO = CreateObject("scripting.filesystemobject")
Set oFile = oFSO.GetFile(FilePath)
WScript.Echo ofile.ParentFolder
WScript.Echo ofile.ShortPath

Set oFileIn = oFSO.OpenTextFile(oFile.Path,ForReading,,TristateTrue)
Set oFileOut = oFSO.CreateTextFile(oFile.ParentFolder & "\ansi_" & oFile.Name,True,False)

oFileOut.Write oFileIn.ReadAll

Your potential. Our passion - Microsoft

Marcado como Resposta Marcelo TI quinta-feira, 21 de agosto de 2014 13:30

terça-feira, 19 de agosto de 2014 14:57

0

Entrar para Votar
Em VBScript

Copy a Unicode File to an ANSI File

http://msdn.microsoft.com/en-us/library/aa368046(v=vs.85).aspx

Em PowerShell

Powershell script to change the format of all files in a folder from Unicode to ANSI

http://stackoverflow.com/questions/11112331/powershell-script-to-change-the-format-of-all-files-in-a-folder-from-unicode-to
Fábio de Paula Junior
- Marcado como Resposta Marcelo TI quinta-feira, 21 de agosto de 2014 13:31
terça-feira, 19 de agosto de 2014 16:34

Responder

|

Citação

Moderador
0

Entrar para Votar

Ba obrigado Leandrão / Fabião, ajudou de mas tche.

quinta-feira, 21 de agosto de 2014 13:31

Responder

|

Citação

Produtos

Resources

Solutions

Atualizações

Avaliações

Sites relacionados

Treinamento

Certificações

Outros recursos

Por produtos

Outros links

Não é um IT Pro?

Usuário com melhor resposta

Ler arquivo de Log Unicode ou alterar codificação para Ansi

Pergunta

Respostas

Todas as Respostas