ARQUIVO XML, RETORNO DO SERVIDOR DA SEFAZ.

MALA 12/04/2010 10:08:12
#339098
Preciso geral um arquivo de um retorno de um servidor, pois quando gero nao sai formatado, eu preciso gerar formatado.

Quero gerar assim
<protCTe versao=[Ô]1.01[Ô]>
<infProt>
<tpAmb>1</tpAmb>
<verAplic>1.03</verAplic>
<chCTe>51100466306093001086570000000010711052706615</chCTe>
<dhRecbto>2010-04-07T10:27:23</dhRecbto>
<nProt>151100000795350</nProt>
<digVal>z1e6YM6QZYSpjoLBUCNeBTybLpE=</digVal>
<cStat>100</cStat>
<xMotivo>Autorizado o uso da CT-e</xMotivo>
</infProt>
</protCTe>

minha string vem assim numa linha so
<protCTe versao=[Ô]1.01[Ô]><infProt><tpAmb>1</tpAmb><verAplic>1.03</verAplic><chCTe>51100466306093001086570000000010711052706615</chCTe><dhRecbto>2010-04-07T10:27:23</dhRecbto>
<nProt>151100000795350</nProt><digVal>z1e6YM6QZYSpjoLBUCNeBTybLpE=</digVal><cStat>100</cStat><xMotivo>Autorizado o uso da CT-e</xMotivo></infProt></protCTe>

Sera que poderia me dar uma ajuda.


Agradeço desde ja sua atenção.
JEAN.JEDSON 13/04/2010 17:40:17
#339244
se o xml conter apenas esta estrutura, sem repetição... rola fazer deste jeito [Ô]burro[Ô] abaixo.
para o exemplo criei um textbox multiline com um tamanho decente, ao qual colo na execução o [Ô]string[Ô] que vc passou. coloquei um botão e na programação coloquei o código abaixo - e aparentemente faz o que vc precisa :D
pode não ser a melhor forma, mas com certeza funciona :p

Private Sub Command1_Click()
Text1 = Replace(Text1, vbCrLf, [Ô][Ô])
Text1 = Replace(Text1, [Ô]<protCTe versao=[Ô][Ô]1.01[Ô][Ô]>[Ô], [Ô]<protCTe versao=[Ô][Ô]1.01[Ô][Ô]>[Ô] & vbCrLf)
Text1 = Replace(Text1, [Ô]<infProt>[Ô], [Ô]<infProt>[Ô] & vbCrLf & [Ô] [Ô])
Text1 = Replace(Text1, [Ô]</tpAmb>[Ô], [Ô]</tpAmb>[Ô] & vbCrLf & [Ô] [Ô])
Text1 = Replace(Text1, [Ô]</verAplic>[Ô], [Ô]</verAplic>[Ô] & vbCrLf & [Ô] [Ô])
Text1 = Replace(Text1, [Ô]</chCTe>[Ô], [Ô]</chCTe>[Ô] & vbCrLf & [Ô] [Ô])
Text1 = Replace(Text1, [Ô]</dhRecbto>[Ô], [Ô]</dhRecbto>[Ô] & vbCrLf & [Ô] [Ô])
Text1 = Replace(Text1, [Ô]</nProt>[Ô], [Ô]</nProt>[Ô] & vbCrLf & [Ô] [Ô])
Text1 = Replace(Text1, [Ô]</digVal>[Ô], [Ô]</digVal>[Ô] & vbCrLf & [Ô] [Ô])
Text1 = Replace(Text1, [Ô]</cStat>[Ô], [Ô]</cStat>[Ô] & vbCrLf & [Ô] [Ô])
Text1 = Replace(Text1, [Ô]</xMotivo>[Ô], [Ô]</xMotivo>[Ô] & vbCrLf)
Text1 = Replace(Text1, [Ô]</infProt>[Ô], [Ô]</infProt>[Ô] & vbCrLf)
Text1 = Replace(Text1, [Ô]</protCTe>[Ô], [Ô]</protCTe>[Ô] & vbCrLf)
End Sub

Private Sub Form_Load()
Text1 = [Ô][Ô]
End Sub
MALA 16/04/2010 10:43:37
#339581
Olha muito obrigado pelo o burro, mas este foi um pequeno exemplo do que eu preciso, o arquivo varia de tamanho e de forma, nem sempre e as mesmas informações, mas agradeço sua atenção.
TAUBATESOFTWARE 16/04/2010 10:59:41
#339585
huahuah amigo ele nao te chamor de burro não!!
Tópico encerrado , respostas não são mais permitidas
Voltar