Oppure

Loading
20/02/09 10:43
bero81

Salve a tutti!
come faccio a creare il seguente file xml in vb6?
sto utilizzando tra le references Microsoft xml,v3.0

<?xml version="1.0" encoding="UTF-8"?>
<!--Sample XML file generated by XMLSpy v2005 sp1 U (xmlspy.com)-->
<distinta>
<testata>
<cuc>PRVTOCUC</cuc>
     <num-files>1</num-files>
    </testata>
<corpo>
<documento gruppo="COD"doc="CINV">
<fornitore>
<cod-erp>Forn</cod-erp>
</fornitore>
</documento>
</corpo>
</distinta>

Ciao e Grazie!!!!

aaa
20/02/09 12:19
GrG
basta che usi la funzione Open() così:
Open "C:\tuofile.xml" for output as #1
print #1 "tuo testo xml"
close #1
aaa
20/02/09 12:21
bero81


si...io pero' non lo volevo scrivere come un file di testo.
volevo utilizzare tra le references Microsft xml v 3.0.

ciao

grazie cmq
aaa
20/02/09 12:39
theprogrammer
Dai un'occhiata a questo esempio

freevbcode.com/…
aaa
20/02/09 12:45
bero81
' <Family>
' <Member Relationship="Father">
' <Name>Some Guy</Name>
' </Member>
' </Family>

si, grazie gia' l'avevo visto. Il mio problema rispetto all'esempio riportato e' quello di dover aggiungere piu' sottonodi....
ad esempio:

<corpo>
<doc gruppo="COD_SETTORE" Tipo_doc="CINV">
<fornitore>
     <codice>CFFornitore</codice>
</fornitore>
</doc gruppo>
</corpo>

ossia non riesco a passare da doc gruppo a fornitore 8-|:d
aaa
20/02/09 16:07
theprogrammer
Il codice corretto e'

   Dim objDom As DOMDocument
   
   Dim obR As IXMLDOMElement
   Dim obM1 As IXMLDOMElement
   Dim obM1A As IXMLDOMAttribute
   Dim obM2 As IXMLDOMElement
   Dim obM3 As IXMLDOMElement
   
   Set objDom = New DOMDocument
   
   Set obR = objDom.createElement("corpo")
   objDom.appendChild obR
   
   Set obM1 = objDom.createElement("doc")
   obR.appendChild obM1
   Set obM1A = objDom.createAttribute("gruppo")
   obM1A.nodeValue = "COD_SETTORE"
   obM1.setAttributeNode obM1A
   Set obM1A = objDom.createAttribute("Tipo_doc")
   obM1A.nodeValue = "CINV"
   obM1.setAttributeNode obM1A
   
   Set obM2 = objDom.createElement("fornitore")
   obM1.appendChild obM2
   
   Set obM3 = objDom.createElement("codice")
   obM2.appendChild obM3
   obM3.Text = "CFFornitore"

   objDom.save ("c:\file.xml")


Il file xml corretto e'

<corpo>
 <doc gruppo="COD_SETTORE" Tipo_doc="CINV">
  <fornitore>
   <codice>CFFornitore</codice> 
  </fornitore>
 </doc>
</corpo>

aaa
20/02/09 18:50
bero81

Grazie!
6 stato molto gentile.
lunedi lo provo.

ciao
aaa