SALVAR UM TXT EM FORMATO ANSI

LEAO10 04/05/2023 11:14:06
#501341

Olá meus caros,

Recebo algumas informações de texto via servidor pelo vb6, e gravo em arquivo .txt, só que ao salvar as informações não grava em formato ANSI... depois para lêr no vb6, é aquela confusão de acentos

Manualmente, eu alterei o formato do arquivo para ANSI e lê normal no VB6... como faço para que ele já salve o .txt em formato ANSI

EPISCOPAL 04/05/2023 11:31:27
#501344

Tem jeito sim ....... mas em qual formato está vindo a string??? UTF8? 16???

LEAO10 04/05/2023 19:05:40
#501345

é uma string, UTF8

LEAO10 05/05/2023 22:21:11
#501347

Alterado em 06/05/2023 14:27:54 Achei em um site


    'colocar em general
    Const adReadLine = -2
    Const adTypeBinary = 1
    Const adTypeText = 2
    Const adWriteLine = 1

Function EncodeFile(strInputFile, strInputCharset, strOutputFile, strOutputCharset, intOverwriteMode)

            Set objInputStream = CreateObject("ADODB.Stream")
            Set objOutputStream = CreateObject("ADODB.Stream")
        
            With objInputStream
              .Open
              .Type = adTypeBinary
              .LoadFromFile strInputFile
              .Type = adTypeText
              .Charset = strInputCharset
              objOutputStream.Open
              objOutputStream.Charset = strOutputCharset
              Do While .EOS <> True
                 strText = .ReadText(adReadLine)
                 objOutputStream.WriteText strText, adWriteLine
              Loop
              .Close
            End With
            objOutputStream.SaveToFile strOutputFile, intOverwriteMode
            objOutputStream.Close
End Function

Private Sub CmdConverter_Click()
    ' Usage:
    ' EncodeFile strInFile, "UTF-8", strOutFile, "Windows-1254", 2
    EncodeFile "c:    este\ArquivoEmUTF8.txt", "UTF-8", "C:    este\ExportadoParaAnsi.txt", "Windows-1254", 2
End Sub

LEAO10 05/05/2023 22:27:10
#501349

Página única

Tópico encerrado , respostas não são mais permitidas

Voltar