IBM Lotus Domino Designer 8.5
  Versions 8.5 and 8.5.1

Examples: NotesDOMXMLDeclNode class

This agent reports on the XML Declaration node.

Sub Initialize

  Dim db As NotesDatabase

  Dim session As NotesSession

  Dim inputStream As NotesStream

  Dim domParser As NotesDOMParser

  Dim xNode As NotesDOMXMLDeclNode

  

  On Error Goto errh

  Set session = New NotesSession

  Set db = session.CurrentDatabase

  Set inputStream = session.CreateStream

  inputStream.Open ( "c:\dxl\hello.xml")

  Set domParser=session.CreateDOMParser(inputStream)

  domParser.AddXMLDeclNode = True

  domParser.Process

  

  'display information about the XML declaration node

  Set xNode = domParser.Document.FirstChild

  Messagebox xNode.Encoding, ,"encoding"

  Messagebox xNode.Standalone, , "standalone"

  Messagebox xNode.Version, , "version"

results:

  Exit Sub

errh:

  Messagebox Cstr(Err)+":  "+Error+Chr(13), , "Error"

  Resume results

End Sub

---

Library | Support | Terms of use |

Last updated: Monday, October 5, 2009