Clipper On Line • Ver Tópico - Testando gerar XML através de hash array

Testando gerar XML através de hash array

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Testando gerar XML através de hash array

Mensagempor JoséQuintas » 28 Dez 2020 00:11

Só um teste que fiz aqui.

criação do hash:
PROCEDURE Main

   LOCAL hXml := hb_Hash(), a, b

   SetMode(25,80)
   CLS
   Altd()
   WITH OBJECT a := ( hXml[ "emit" ] := hb_Hash() )
      a[ "CNPJ" ]  := "00.000.000-00"
      a[ "xNome" ] := "nome"
      WITH OBJECT b := ( a[ "xenderEmit" ] := hb_hash() )
         b[ "xLgr" ]    := "logradouro"
         b[ "nro" ]     := "."
         b[ "xBairro" ] := "bairro"
      ENDWITH
   ENDWITH
   ? HashToXml( hXml, 1 )
   Inkey(0)

   RETURN


rotina pra transformar em XML

FUNCTION HashToXml( hXml, nIndex )

   LOCAL cXml := "", nCont, aItem

   aItem := hb_HPairAt( hXml, nIndex )
   cXml += "<" + aItem[ 1 ] + ">"
   IF ValType( aItem[ 2 ] ) == "H"
      cXml += hb_Eol()
      FOR nCont = 1 TO Len( aItem[ 2 ] )
         cXml += HashToXml( aItem[ 2 ], nCont )
         cXml += hb_Eol()
      NEXT
   ELSE
      cXml += aItem[ 2 ]
   ENDIF
   cXml += "</" + aItem[ 1 ] + ">"

   RETURN cXml


hashxml.png
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 15841
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 903 vezes



Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Google Adsense [Bot] e 4 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro