sig_gilberto Posted December 16, 2011 Report Share Posted December 16, 2011 Olá Desenvolvedores, boa tarde! Estou com problemas na importação de um arquivo TXT para DBF, e não sei como resolvê-lo : Exemplo : Linha do TXT "Rede de Hotéis Costeiros" Quando aplico o Append From para um DBF.. Coluna do DBF "Rede de Hotéis Costeiros" Alguêm poderia me dar esta "LUZ" ? Sucesso!! ________________________ Gilberto Herminio - Analista de Desenvolvimento de Sistemas Mogi das Cruzes-SP xHB121+Fw912 / C#/SQL2008 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted December 16, 2011 Author Report Share Posted December 16, 2011 Olá Desenvolvedores, boa tarde! Estou com problemas na importação de um arquivo TXT para DBF, e não sei como resolvê-lo : Exemplo : Linha do TXT "Rede de Hotéis Costeiros" Quando aplico o Append From para um DBF.. Coluna do DBF "Rede de Hotéis Costeiros" Alguêm poderia me dar esta "LUZ" ? Sucesso!! ________________________ Gilberto Herminio - Analista de Desenvolvimento de Sistemas Mogi das Cruzes-SP xHB121+Fw912 / C#/SQL2008 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted December 16, 2011 Author Report Share Posted December 16, 2011 ops...... achei : var=HB_OemToAnsi(HB_UTF8ToStr("Rede de Hotéis Costeiros")) Obrigado!!! ________________________ Gilberto Herminio - Analista de Desenvolvimento de Sistemas Mogi das Cruzes-SP xHB121+Fw912 / C#/SQL2008 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted December 16, 2011 Report Share Posted December 16, 2011 Vc pode tb abrir este arquivo no bloco de notas e mandar salvar como UTF-8... Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 Quote Link to comment Share on other sites More sharing options...
gibaf Posted December 16, 2011 Report Share Posted December 16, 2011 ou ainda, assim: cConteudo := TiraAcentos("Rede de Hotéis Costeiros") *---------------------------------- Static Function TiraAcentos(_Texto) *---------------------------------- Local x,cTexto := _Texto Local aAnsi1 := {"Ã","É","Ã","Ó","Ú","á","é","Ã","ó","ú","Â","Ê","Ô","â","ê","ô","Ã","ã","Õ","õ","Ç","ç"} Local aAnsi2 := {"A","E","I","O","U","a","e","i","o","u","A","E","O","a","e","o","A","a","O","O","C","c"} For x := 1 to Len(aAnsi1) cTexto := StrTran( cTexto , aAnsi1[x] , aAnsi2[x] ) Next x Return(cTexto) id=code>id=code>Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.