syspel Posted October 26, 2012 Report Share Posted October 26, 2012 oi pessoal usamos a funçao (tiraacento), para ler xml e encontramos alguns problemas. Quando mostramos nas tela a palavra calça ele mostra como calca e quando gravamos no banco com a extenção DBF ele grava como calaca. E o mesmo acontece com as palavras Mão, João, Coração gravando no banco repectivamento como Macao, Jocao e coraaccao. Agradeceria se alguém poder nos ajudar. Danilo Souza Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN Quote Link to comment Share on other sites More sharing options...
syspel Posted October 26, 2012 Author Report Share Posted October 26, 2012 oi pessoal usamos a funçao (tiraacento), para ler xml e encontramos alguns problemas. Quando mostramos nas tela a palavra calça ele mostra como calca e quando gravamos no banco com a extenção DBF ele grava como calaca. E o mesmo acontece com as palavras Mão, João, Coração gravando no banco repectivamento como Macao, Jocao e coraaccao. Agradeceria se alguém poder nos ajudar. Danilo Souza Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 26, 2012 Report Share Posted October 26, 2012 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=19177 João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Arthur Silvestre Posted October 26, 2012 Report Share Posted October 26, 2012 tambem utilizei esse topico que o kapiaba citou e resolveu meu problema. eu recomendo FWH.11.12 + xHarbour12.1 + Pelles C IDE E-mail:ArthurSilvestreSnt@hotmail.com Quote Link to comment Share on other sites More sharing options...
syspel Posted October 29, 2012 Author Report Share Posted October 29, 2012 Olá pessoal... O meu problema está no UTF8, eu gostaria de saber como converter caracteres do padrão do UTF8 para caracteres "normais" de um arquivo em xml. Agradeceria se caso a ajuda fosse possÃvel.. Danilo Souza Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 29, 2012 Report Share Posted October 29, 2012 http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=13250 http://forums.fivetechsupport.com/viewtopic.php?f=3&t=20561&p=109474&hilit=utf8#p109474 João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Editado por - kapiaba on 29/10/2012 10:38:11 Quote Link to comment Share on other sites More sharing options...
syspel Posted October 30, 2012 Author Report Share Posted October 30, 2012 Olá pessoal. Estou usando essa função para converção de acentos do xml que está no padrão UTF8. E quando utilizamos essa função e pedimos para imprimir na tela a converção ocorre perfeitamente, porém o erro continua ocorrendo quando gravamos em um DBF. FUNCTION Tiraacento(cStr) local cStrNew := "",nX,cUtf8,cAsc REQUEST HB_CODEPAGE_PTISO REQUEST HB_CODEPAGE_PT850 HB_SETCODEPAGE( "PT850" ) cUtf8 := hb_strToUTF8( cStr ) ? cUtf8 cAsc := hb_UTF8ToStr( cUtf8 ) ? cAsc cAcentos := {"À","Ã","Ç","ç","Ã","Â","à ","á","â","ã","È","É","Ê","é","è","ê","ÃŒ","Ã","ÃŽ","ì","Ã","î","Ã’","Ó","Ô","Õ","õ","ó","ò","ô","Ù","Ú","Û","Ä","Ë","Ã","Ö","Ãœ","ñ","Ñ"} cLetras := {"A","A","C","C","A","A","A","A","A","A","E","E","E","E","E","E","I","I","I","I","I","I","O","O","O","O","O","O","O","O","U","U","U","A","E","I","O","U","N","N"} For nX := 1 TO LEN(cAcentos) cStrNew := StrTran(cStr, cAcentos[nX], cLetras[nX]) cStr := cStrNew Next Return( cStrNew ) Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN Quote Link to comment Share on other sites More sharing options...
aferra Posted October 30, 2012 Report Share Posted October 30, 2012 Será que não está gravando com a variavel errada? Mostre como carrega a variavel e como utiliza a função. Um grande Abraço Alessandroid=blue> FW9.07 + xHb121 + CDX Fico feliz com os Meus erros, pois eles me apontam a direção para o acerto.id=red> 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.