MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Função no Access accdb converter utf-8 para iso-8859-1

    Compartilhe

    Luciclaudio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 04/05/2016

    Função no Access accdb converter utf-8 para iso-8859-1

    Mensagem  Luciclaudio em Ter 28 Jun 2016, 17:28

    Olá caros,
    Alguém conhece alguma função para converter utf-8 para iso-8859-1 no ACCESS?

    tenho algo parecido no excel, mas no access não funciona 100%

    Public Function fnConverterUTF8(ByVal Texto_para_converter As String)
    Dim l As Long, sUTF8 As String
    Dim iChar As Integer
    Dim iChar2 As Integer

    For l = 1 To Len(Texto_para_converter)
    iChar = Asc(Mid(Texto_para_converter, l, 1))
    If iChar > 127 Then
    If Not iChar And 32 Then
    iChar2 = Asc(Mid(Texto_para_converter, l + 1, 1))
    sUTF8 = sUTF8 & ChrW$(((31 And iChar) * 64 + (63 And iChar2)))
    l = l + 1
    Else
    Dim iChar3 As Integer
    iChar2 = Asc(Mid(Texto_para_converter, l + 1, 1))
    iChar3 = Asc(Mid(Texto_para_converter, l + 2, 1))
    sUTF8 = sUTF8 & ChrW$(((iChar And 15) * 16 * 256) + ((iChar2 And 63) * 64) + (iChar3 And 63))
    l = l + 2
    End If
    Else
    sUTF8 = sUTF8 & Chr$(iChar)
    End If
    Next l
    fnConverterUTF8 = sUTF8
    End Function


    Desde já obrigado a todos!


    Última edição por Luciclaudio em Ter 28 Jun 2016, 17:40, editado 1 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4113
    Registrado : 15/03/2013

    Re: Função no Access accdb converter utf-8 para iso-8859-1

    Mensagem  ahteixeira em Ter 28 Jun 2016, 17:35

    Olá LUCICLAUDIO,
    Desconheço, mas é imperativo para a criação de algum ficheiro de exportação, pode:
    1) ter um ficheiro vazio no formato pretndido.
    2) Quando necessário, copiar do ficheiro vazio e utilizar.
    Fica a sugestão.
    Abraço

    Luciclaudio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 04/05/2016

    Re: Função no Access accdb converter utf-8 para iso-8859-1

    Mensagem  Luciclaudio em Sex 29 Jul 2016, 14:48

    Então galera, conforme exemplo acima ele funciona, apenas não executa da maneira correta.
    Será que tem que fazer alguma alteração?
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4113
    Registrado : 15/03/2013

    Re: Função no Access accdb converter utf-8 para iso-8859-1

    Mensagem  ahteixeira em Ter 02 Ago 2016, 17:49

    Olá,
    O que "não executa da maneira correta"?
    Como deveria apresentar?
    Pode postar exemplo de ficheiro para converter e como deveria ficar.
    Assim facilita a compreensão e servirá para teste dos membros que pretendem ajudar.
    Abraço

      Data/hora atual: Seg 26 Jun 2017, 21:47