converter dbf para sql

[evaldowl]

bom dia colegas ,

estou convertendo um banco de dados de dbf para sql , só que estou com problemas em alguns caracteres especiais , o sql nao reconhece , caracteres de pesos e mediads por exemplo. Andei pesquisando e acho que tenho que converter de ascii para utf8 . Alguem sabe como fazer essa conversão ?

Obrigado.

[cjp]

Meu caro, não conheço utf8.

Mas também enfrentei problemas com essa conversão, e resolvi desta maneira:

Código:

            nrc=1
            do while nrc<60
               if asc(substr(tar,nrc,1))=0 .or. asc(substr(tar,nrc,1))=39
                 if empty(substr(tar,nrc))
                   exit
                 endif
                 ?"Retirando caractere estranho no tar"
                ?asc(substr(tar,nrc,1))
                 tar=substr(tar,1,nrc-1)+substr(tar,nrc+1)
                inkey(.8)
              else
                 nrc++
               endif
            enddo


Espero que te ajude.

[evaldowl]

ok,

obrigado pelo codigo, mas eu preciso fazer a nivel de arquivo inteiro , varrer o dbf inteiro e substituir

[stefanotd]

* tente exportar o DBF para um arquivo texto delimitado com "|" por exemplo
* abre o TXT em algum editor (notepad++) e converta para UTF8
* se o banco de dados for o PostgreSql, importe usando o comando COPY nome_tabela FROM nome_arquivo WITH DELIMITERS AS "|"

Estas duas funções pode ajudar também :

Código:

CREATE FUNCTION to_ascii(bytea,   name)
RETURNS text STRICT AS 'to_ascii_encname' LANGUAGE internal;


Código:

CREATE OR REPLACE FUNCTION fnc_texto_simples(pTexto varchar)
RETURNS text AS
$$
   select UPPER(to_ascii(convert_to($1,'latin1'),'latin1' ))
   
$$
LANGUAGE sql IMMUTABLE STRICT;


[Jairo Maia]

Olá Evaldo,

só que estou com problemas em alguns caracteres especiais , o sql nao reconhece , caracteres de pesos e mediads por exemplo

Evaldo, creio que não seja o problema de codificação, acho que pode ser outro, pelo seguinte: Se você diz que seu problema está principalmente com os campos de pesos e medidas, Mesmo que eles não sejam Numéricos, acho que são Números tipo caracteres, e neste caso não altera nada em UTF8.

Apenas variáveis textos com acentuação (caracteres especiais), é que fazem diferença, em relação a outras codificações e Unicode. No caso do UTF8 por exemplo, enquanto Ansi e OEM usam 2 bytes nos caracteres especiais, o UTF8 usa 4 bytes.

Para passar um DBF em OEM para UTF8 (não use se o DBF for Ansi), você pode usar o exemplo abaixo. Faça cópia do DBF antes, ok?:

Código:

Function Main()
Local x, cArquivoDBF := "Nome do arquivo DBF"

Private cCampo, cConteudo

Use ( cArquivoDBF ) Exclusive New

Clear Screen

While !Eof()

  @ 10, 25 Say "Convertendo Registro => " + Str( RecN() )

  For x=1 To FCount()

   cCampo := Field( x )

   If ValType( &cCampo. ) = "C"
    cConteudo := Hb_StrToUTF8( &cCampo. )
    Replace &cCampo. With cConteudo  // salva o campo
   EndIf

  Next

  Skip

EndDo

Return Nil