Domino 9 und frühere Versionen > ND6: Entwicklung

XML von Grund auf mit Lotusscript erstellen

(1/4) > >>

Fedaykin:
Hi zusammen

Möchte mir ein XML von Grund auf bauen. Geht natürlich über eine einfache String Variable wo ich alles zusammenbastel. Meine Frage dazu, weiss jemand ob und wie man eine XML auch "professioneller" mit irgendeiner Notesklasse aufbauen kann. Falls geht ein winziger Beispielcode wäre super.

Gruss
Remo

botschi:
Fängt mit der "NotesDOMParser class" an, geht dann zur "NotesDOMDocumentNode class" usw. Die Designer-Hilfe hilft Dir weiter, incl Beispielen.

Matthias

Fedaykin:
Hi Matthias

Danke für die Antwort. Nur wenn ich von mir so leer erstelle und dann versuche das zu parsen (nehme an sowas muss ich machen) wie komme ich am Schluss zu einer XML in einer String Variable. Da hänge ich etwas. Weiss da irgendwie nicht was genau machen. Hilfe habe ich eigentlich schon gesucht (wohl nach dem falschen). Nur richtig schlau werd ich da leider auch nicht.

Gruss
Remo

botschi:
Das hier http://atnotes.de/index.php?topic=28759.0 unter #3 bringt Dir vielleicht ein wenig.
So ganz fertigen Code für Dein Anliegen wirst Du hier nicht finden...

Wenn Du noch nie etwas mit XML gemacht hast, wird es vielleicht etwas hakelig am Anfang. Einfach debuggen und lernen...

Auf konkrete Fragen gibts konkrete Antworten  ;D

Matthias

Fedaykin:
Hi Matthias

Hier mal ein Beispielcode.

Sub Initialize
   Dim session As NotesSession
   Dim DOMParser As NotesDOMParser
   Dim DOMDoc As NotesDOMDocumentNode
   Dim DOMNode As NotesDOMNode
   Dim DOMNode2 As NotesDOMNode
   Dim strXML As String
   Dim stream As NotesStream
   
   Set session=New NotesSession
   Set stream=session.CreateStream   
   Set DOMParser=session.CreateDOMParser("",stream)
   Set DOMDoc=DOMParser.Document.CreateDocumentNode
   
   Set DOMNode=DOMDoc.CreateElementNode("view")
   
   Set DOMNode2=DOMDoc.CreateElementNode("actionbar")
   DOMNode.AppendChild DOMNode2
   
   DOMParser.Serialize
   
   strXML=stream.ReadText
   
   Msgbox strXML,,"XML"
End Sub

Raus kommen sollte so was.

<view>
<actionbar>
</actionbar>
</view>

Will mir danach damit eine Ansicht aufbauen (was wenn ich in Stringvariable reinschreibe auch schon klappt, nur echt nicht elegant ist).

Gruss
Remo


Nachtrag:
So wird ein Schuh draus...  :)

Sub Initialize
   Dim session As NotesSession
   Dim DOMParser As NotesDOMParser
   Dim DOMDoc As NotesDOMDocumentNode
   Dim DOMNode As NotesDOMNode
   Dim DOMNode2 As NotesDOMNode
   Dim strXML As String
   Dim stream As NotesStream
   
   Set session=New NotesSession
   Set stream=session.CreateStream   
   Set DOMParser=session.CreateDOMParser("",stream)
   Set DOMDoc=DOMParser.Document
   
   Set DOMNode=DOMDoc.CreateElementNode("view")
   Set DOMNode2=DOMDoc.CreateElementNode("actionbar")
   
   DOMDoc.AppendChild DOMNode
   DOMNode.AppendChild DOMNode2
   
   DOMParser.Serialize
   
   strXML=stream.ReadText
   
   Msgbox strXML,,"XML"
End Sub

Raus kommt:
<view><actionbar/></view>

Navigation

[0] Themen-Index

[#] Nächste Seite