例: Document property (NotesDOMParser - LotusScript)

次のエージェントは origXML ファイルを解析し、ルート文書の情報を outputFile に書き込みます。

Sub Initialize
  Dim session As NotesSession
  Dim db As NotesDatabase
  Dim inputStream As NotesStream, outputStream As NotesStream
  Dim domParser As NotesDOMParser
  
  Dim origXML As String, outputFile As String
  origXML = "c:¥dxl¥xmldom.xml"
  outputFile = "c:¥dxl¥DOM1.txt"
  
  Dim message As String
  Dim passDescription As String, failDescription As String
  passDescription = "Root document identified"
  failDescription = "Root document is null"
  
  On Error Goto errh
  
  Set session = New NotesSession
  Set db = session.CurrentDatabase
  
  'create the output file
  Set outputStream =session.CreateStream
  outputStream.Open (outputFile)
  outputStream.Truncate
  
  'open the XML file
  Set inputStream = session.CreateStream
  inputStream.Open (origXML)
  If inputStream.Bytes = 0 Then
    message = origXML+" is empty"
    Goto results
  End If
  
  'create DOM parser and process
  Set domParser=session.CreateDOMParser(inputStream, outputStream)
  domParser.Process
  
  If Not domParser.Document.IsNull  Then 
    message = passDescription
  Else
    message = failDescription
  End If
results:
  outputStream.WriteText (message)
  Call outputStream.Close
  Exit Sub
errh:
  outputStream.Write (Cstr(Err)+":  "+Error+Chr(13))
  Resume results
End Sub