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: Selecionar todos

			   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: Selecionar todos

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

Código: Selecionar todos

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: Selecionar todos

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