MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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, 13: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, 13:40, editado 1 vez(es)

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Ter 28 Jun 2016, 13: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, 10:48

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

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Ter 02 Ago 2016, 13: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: Qui 08 Dez 2016, 21:53