XML import

Det er ikke helt nemt at hente disse data ind i Notes. Data skal parsen og via LotusScript aflæses og dokumenterne oprettes. Jeg har desværre stadig ikke arbejdet med Noets indbyggede XML-fortolker, men kun med MS XML fortolkeren.

der oprettes et object i LS af xml-fortolkertypen, og dette object sættes til at fortolke den udpegede xml-kilde (fil på disk eller url).

Jeg har noget kode et  eller andet sted, men kan ikke finde det lige nu, men måske har du fået lidt info du kan bruge.
//Jörg

Det lykkedes mig at hente det ind i en pæn træ struktur, som jeg så kan løbe igennem. Ikke noget rukursivt her, men håber det giver lidt hjælp til andre.

Sub Initialize
  Dim objXML As Variant
  Set objXML = CreateObject("Microsoft.XMLDOM")
  'Set objXML = CreateObject("Msxml2.DOMDocument40")  virkede ikke

  objXML.async = False
  objXML.Load("os2000.xml") 'Hent filnavn
  If (objXML.parseerror.line <> 0) Then
    Messagebox "Linie: " + objXML.parseerror.line + Chr(10) + objXML.parseerror.reason , 0 , "Parse-error"
  Else
    Messagebox objXML.documentElement.nodename, 0 , "TopNode: "
 
    Forall x In objXML.documentElement.childNodes
   
      'nyt dokument kan oprettes her

      Messagebox x.nodename + " : " + x.text , 0 , "X Node: " + x.nodetype

      Forall y In x.childNodes
        ' felter til dokumentet kan dannes her
        Messagebox y.nodename + " : " + y.text , 0 , "Y Node: " + y.nodetype

      End Forall
    End Forall
  End If

Min xml test fil ser sådan ud:

<?xml version="1.0" encoding="ISO-8859-1" ?>
<!DOCTYPE posteringer [
  <!ELEMENT posteringer (konto*)>
  <!ELEMENT konto (postering*)>
  <!ATTLIST konto nr CDATA #REQUIRED>

  <!ELEMENT postering  (bogfdat,netbelob,cprnr)>
  <!ELEMENT bogfdat        (#PCDATA)>
  <!ELEMENT netbelob      (#PCDATA)>
  <!ELEMENT cprnr      (#PCDATA)>
]>

<posteringer>
<konto nr="76767">
<postering><bogfdat>18-03-2003</bogfdat><netbelob>21</netbelob><cprnr>0905651846</cprnr></postering>
<postering><bogfdat>04-05-2003</bogfdat><netbelob>23523,90</netbelob><cprnr>0905651846</cprnr></postering>
<postering><bogfdat>11-07-2003</bogfdat><netbelob>1723,90</netbelob><cprnr>0905651846</cprnr></postering>
</konto>
<konto nr="676776">
<postering><bogfdat>18-03-2003</bogfdat><netbelob>27523,90</netbelob><cprnr>0905651846</cprnr></postering>
<postering><bogfdat>04-05-2003</bogfdat><netbelob>23523,90</netbelob><cprnr>0905651846</cprnr></postering>
<postering><bogfdat>11-07-2003</bogfdat><netbelob>1723,90</netbelob><cprnr>0905651846</cprnr></postering>
</konto>
</posteringer>