Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Creare xml in vb6
Forum - Visual Basic 6 - Creare xml in vb6

Avatar
bero81 (Normal User)
Newbie


Messaggi: 16
Iscritto: 05/12/2006

Segnala al moderatore
Postato alle 11:43
Venerdė, 20/02/2009

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 (http://www.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!!!!


PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 13:19
Venerdė, 20/02/2009
basta che usi la funzione Open() cosė:
Codice sorgente - presumibilmente Visual Basic 6

  1. Open "C:\tuofile.xml" for output as #1
  2. print #1 "tuo testo xml"
  3. close #1


PM Quote
Avatar
bero81 (Normal User)
Newbie


Messaggi: 16
Iscritto: 05/12/2006

Segnala al moderatore
Postato alle 13:21
Venerdė, 20/02/2009


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

PM Quote
Avatar
theprogrammer (Normal User)
Guru^2


Messaggi: 2509
Iscritto: 28/01/2009

Segnala al moderatore
Postato alle 13:39
Venerdė, 20/02/2009
Dai un'occhiata a questo esempio

http://www.freevbcode.com/ShowCode.asp?ID=1919

PM Quote
Avatar
bero81 (Normal User)
Newbie


Messaggi: 16
Iscritto: 05/12/2006

Segnala al moderatore
Postato alle 13:45
Venerdė, 20/02/2009
' <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

PM Quote
Avatar
theprogrammer (Normal User)
Guru^2


Messaggi: 2509
Iscritto: 28/01/2009

Segnala al moderatore
Postato alle 17:07
Venerdė, 20/02/2009
Il codice corretto e'

Codice sorgente - presumibilmente VB.NET

  1. Dim objDom As DOMDocument
  2.    
  3.    Dim obR As IXMLDOMElement
  4.    Dim obM1 As IXMLDOMElement
  5.    Dim obM1A As IXMLDOMAttribute
  6.    Dim obM2 As IXMLDOMElement
  7.    Dim obM3 As IXMLDOMElement
  8.    
  9.    Set objDom = New DOMDocument
  10.    
  11.    Set obR = objDom.createElement("corpo")
  12.    objDom.appendChild obR
  13.    
  14.    Set obM1 = objDom.createElement("doc")
  15.    obR.appendChild obM1
  16.    Set obM1A = objDom.createAttribute("gruppo")
  17.    obM1A.nodeValue = "COD_SETTORE"
  18.    obM1.setAttributeNode obM1A
  19.    Set obM1A = objDom.createAttribute("Tipo_doc")
  20.    obM1A.nodeValue = "CINV"
  21.    obM1.setAttributeNode obM1A
  22.    
  23.    Set obM2 = objDom.createElement("fornitore")
  24.    obM1.appendChild obM2
  25.    
  26.    Set obM3 = objDom.createElement("codice")
  27.    obM2.appendChild obM3
  28.    obM3.Text = "CFFornitore"
  29.  
  30.    objDom.save ("c:\file.xml")



Il file xml corretto e'

Codice sorgente - presumibilmente Plain Text

  1. <corpo>
  2.  <doc gruppo="COD_SETTORE" Tipo_doc="CINV">
  3.   <fornitore>
  4.    <codice>CFFornitore</codice>
  5.   </fornitore>
  6.  </doc>
  7. </corpo>



PM Quote
Avatar
bero81 (Normal User)
Newbie


Messaggi: 16
Iscritto: 05/12/2006

Segnala al moderatore
Postato alle 19:50
Venerdė, 20/02/2009

Grazie!
6 stato molto gentile.
lunedi lo provo.

ciao

PM Quote