sig_gilberto Posted February 13, 2014 Report Share Posted February 13, 2014 Olá Desenvolvedores, boa tarde! Peço ajuda de como importar um XML para um DBF ? Grato e Sucesso! Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 13, 2014 Report Share Posted February 13, 2014 Veja se ajuda: http://www.pctoledo.com.br/forum/viewtopic.php?f=43&t=9528 http://www.pctoledo.com.br/forum/viewtopic.php?f=1&t=1932 http://dbf-viewer-editor.com/pt/xml-to-dbf.html sig_gilberto 1 Quote Link to comment Share on other sites More sharing options...
alexavel Posted February 13, 2014 Report Share Posted February 13, 2014 Um exemplo de como ler e colocar em um vetor, deve ajudar PROCEDURE Main LOCAL oXmlDoc := TXmlDocument():new() LOCAL oXmlNode, aArqXml := {} oXMlDoc:read( Memoread( "arquivo.xml" ) ) oXmlNode := oXmlDoc:findFirst() // Posiciona no inicio ? oXmlNode:cName // Mostrar o Campo nome oXmlNode := oXmlDoc:findFirst( "structure" ) ? oXmlNode:cName oXmlNode := oXmlDoc:findFirst( "field" ) // Copia o Conteudo para o Array ou DBF DO WHILE oXmlNode <> NIL AAdd( aArqXml, { oXmlNode:aAttributes[ "name" ] , ; oXmlNode:aAttributes[ "type" ] , ; Val( oXmlNode:aAttributes[ "len" ] ), ; Val( oXmlNode:aAttributes[ "dec" ] ) } ) oXmlNode := oXmlDoc:findNext() ENDDO AEval( aArqXml, {|a| Qout( ValToPrg(a) ) } ) RETURN Qualquer dúvida meu emial é avelinoalessandro@gmail.com sig_gilberto 1 Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted February 14, 2014 Author Report Share Posted February 14, 2014 Obrigador seu retorno Kapi... São bons linkes!!! Vlw Veja se ajuda: http://www.pctoledo.com.br/forum/viewtopic.php?f=43&t=9528 http://www.pctoledo.com.br/forum/viewtopic.php?f=1&t=1932 http://dbf-viewer-editor.com/pt/xml-to-dbf.html Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted February 14, 2014 Author Report Share Posted February 14, 2014 Vlw Alessandro..... Isso mesmo!! Um exemplo de como ler e colocar em um vetor, deve ajudar PROCEDURE Main LOCAL oXmlDoc := TXmlDocument():new() LOCAL oXmlNode, aArqXml := {} oXMlDoc:read( Memoread( "arquivo.xml" ) ) oXmlNode := oXmlDoc:findFirst() // Posiciona no inicio ? oXmlNode:cName // Mostrar o Campo nome oXmlNode := oXmlDoc:findFirst( "structure" ) ? oXmlNode:cName oXmlNode := oXmlDoc:findFirst( "field" ) // Copia o Conteudo para o Array ou DBF DO WHILE oXmlNode <> NIL AAdd( aArqXml, { oXmlNode:aAttributes[ "name" ] , ; oXmlNode:aAttributes[ "type" ] , ; Val( oXmlNode:aAttributes[ "len" ] ), ; Val( oXmlNode:aAttributes[ "dec" ] ) } ) oXmlNode := oXmlDoc:findNext() ENDDO AEval( aArqXml, {|a| Qout( ValToPrg(a) ) } ) RETURN Qualquer dúvida meu emial é avelinoalessandro@gmail.com Quote Link to comment Share on other sites More sharing options...
alexavel Posted February 14, 2014 Report Share Posted February 14, 2014 A disposição cara! Vlw Quote Link to comment Share on other sites More sharing options...
ltorreslm Posted February 15, 2014 Report Share Posted February 15, 2014 Señores Muy buenas noches, al parecer mi post les ha generado molestias, quisiera me entiendan, este señor AlexAvel, Don Juan o como se llame me estafó. Ayer me habló con indignación, en vez de pedir perdon e intentar arreglar la situación, me amenazó con denunciarme por calumnia. Doy por perdido mi dinero, mi tiempo y sobre todo MI CONFIANZA, pero quiero que no le pase a nadie mas, no se relacionen con este señor Alex, Axel, AlexAvel, Alessandro Avelino, Don Juan, etc. por que al igual que yo la van a pasar mal. Pidiendo las disculpas del caso, me despido. Luis Torres Lima-Perú Traducido por Google Srs. Boa noite, aparentemente meu post gerou desconforto, gostaria de me entender, este senhor AlexAvel, Don Juan ou o que me enganou. Ontem falei com indignação, em vez de pedir perdão e tentar corrigir a situação, eu ameaçava me processar por calúnia. Aproveito perdi meu dinheiro, meu tempo e, especialmente, a minha confiança, mas eu quero que não aconteça com mais ninguém, não relacionados com esse cara Alex, Axel, AlexAvel, Alessandro Avelino, Don Juan, etc. porque eu gosto de ir a dar errado. Fazendo as desculpas apropriadas, eu digo adeus. Luis Torres Lima-Peru 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.