例: ParentNode property

次のエージェントは origXML ファイルを解析し、親ノード、同レベルのノード、子ノードの情報を outputFile に書き込みます。

(Declarations)
Dim session As NotesSession
Dim inputStream As NotesStream, outputStream As NotesStream
Dim domParser As NotesDOMParser
Dim docNode As NotesDOMDocumentNode
Dim NL As String  'carriage return + line feed
Dim nodeCount(12) As Long
Sub Initialize
  Dim i As Integer
  Dim j As Long
  
  Dim origXML As String, outputFile As String
  origXML = "c:¥dxl¥NAB.xml"
  outputFile = "c:¥dxl¥DOMnodes.doc"
  
  REM your message here!
  Dim message As String
  message = "DOM Parser Report - Node Relationships"
  
  On Error Goto errh
  
  'open the XML input file and create the report file
  If  Not xmlCreate(origXML,outputFile,message) Then
    Goto results
  End If
  
  'create DOM parser and process
  Set domParser=session.CreateDOMParser(inputStream, outputStream)
  domParser.Process
  
  'get the document node
  Set docNode = domParser.Document
  
  REM report on parent/child/sibling nodes
  For i = 0 To 12
    nodeCount(i) = 0
  Next
  
  Call walktree (docNode)
  
  outputStream.WriteText (NL+NL+"Report status ---"+NL)
  For j = 0 To 12
    outputStream.WriteText (Cstr(nodeCount(j))+" "+CstrNodeType(j)+"s"+ NL)
  Next
  message = NL+"end of file: "+origXML 
  
results:
  outputStream.WriteText (message)
  Call outputStream.Close
  Messagebox "Report written to "+outputFile
  Exit Sub
errh:
  message = Cstr(Err)+":  "+Error+Chr(13)
  Resume results
End Sub
Sub walkTree ( node As NotesDOMNode)
  Dim child As NotesDOMNode
  Dim numChildNodes As Integer
  Dim nName As String
  NL = Chr(13)+Chr(10)
  
  If Not node.IsNull Then
    nName = CstrNodeType(node.NodeType)
    domParser.Output( nName+" " )
    
    Select Case node.NodeType
      
    Case DOMNODETYPE_DOCUMENT_NODE:        ' The Document node
      domParser.Output("Name: "+node.Nodename+NL)
      
      If node.ParentNode.IsNull Then
        domParser.Output(nName+"s have no parent")
      Else
        Messagebox "Node cannot have a parent!!", ,nName+" error"
        Exit Sub
      End If
      
      If node.NextSibling.IsNull And node.PreviousSibling.IsNull Then
        domParser.Output(" and no siblings"+NL )
      Else
        Messagebox "Node cannot have a sibling!!", ,nName+" error"
        Exit Sub
      End If
      
    Case Else:
      domParser.Output("Name: "+node.Nodename+NL)
      
      If node.ParentNode.Isnull Then
        Messagebox "Node must have a parent!!", ,nName+" error"
        Exit Sub
      End If
      
      If node.NextSibling.IsNull And node.PreviousSibling.IsNull Then
        domParser.Output(" has no siblings" )
      Else
        domParser.Output(" has a sibling")
      End If
      
    End Select  'node.NodeType
    
    If node.HasChildNodes Then
      Set child = node.FirstChild
      
      numChildNodes = node.NumberOfChildNodes
     
      If node.NodeType =  DOMNODETYPE_DOCUMENT_NODE Then
        domParser.Output(" has "+Cstr(numChildNodes) )
      Else
        domParser.Output(" and "+Cstr(numChildNodes) )
      End If
      
      If  numChildNodes = 1 Then
        domParser.Output( " child"+NL)
      Else
        domParser.Output( " children"+NL)
      End If
      
      While numChildNodes > 0
        Call walkTree(child)
        Set child = child.NextSibling
        numChildNodes = numChildNodes - 1
      Wend
    Else
      domParser.Output(" and no children"+NL)
    End If      'node.HasChildNodes
  End If        'Not node.IsNull
End Sub
Function xmlCreate (inFile As String, outFile As String, info As String)
' Open the XML file and create the report file

  Dim db As NotesDatabase
  Set session = New NotesSession
  Set db = session.CurrentDatabase
  
    'create the output file
  Set outputStream =session.CreateStream
  outputStream.Open (outFile)
  outputStream.Truncate
  
    'write report title
  outputStream.WriteText (info+Chr(13)+Chr(10))
  
    'open the XML file
  Set inputStream = session.CreateStream
  inputStream.Open (inFile)
  If inputStream.Bytes = 0 Then
    info = "XML file "+ inFile+" is empty"
    xmlCreate = False
  Else
    xmlCreate = True
  End If
  
End Function


Function CstrNodeType (currentNode As Long) As String
'Given a node type, convert it to a descriptive string.

  nodeCount(currentNode) = nodeCount(currentNode)+1
  
  Select Case currentNode
    
  Case DOMNODETYPE_ELEMENT_NODE:       '1
    CstrNodeType = "ELEMENT_NODE"
    
  Case DOMNODETYPE_ATTRIBUTE_NODE:     '2
    CstrNodeType = "ATTRIBUTE_NODE"
    
  Case DOMNODETYPE_TEXT_NODE:                   '3
    CstrNodeType = "TEXT_NODE"
    
  Case DOMNODETYPE_CDATASECTION_NODE:           '4
    CstrNodeType = "CDATASECTION_NODE"
    
  Case DOMNODETYPE_ENTITYREFERENCE_NODE:        '5
    CstrNodeType = "ENTITYREFERENCE_NODE"
    
  Case DOMNODETYPE_ENTITY_NODE:                 '6
    CstrNodeType = "ENTITY_NODE"
    
  Case DOMNODETYPE_PROCESSINGINSTRUCTION_NODE:  '7
    CstrNodeType = "PROCESSINGINSTRUCTION_NODE"
    
  Case DOMNODETYPE_COMMENT_NODE:                '8
    CstrNodeType = "COMMENT_NODE"
    
  Case DOMNODETYPE_DOCUMENT_NODE:               '9
    CstrNodeType = "DOCUMENT_NODE"
    
  Case DOMNODETYPE_DOCUMENTTYPE_NODE:           '10
    CstrNodeType = "DOCUMENTTYPE_NODE"
    
  Case DOMNODETYPE_DOCUMENTFRAGMENT_NODE:       '11
    CstrNodeType = "DOCUMENTFRAGMENT_NODE"
    
  Case DOMNODETYPE_NOTATION_NODE:               '12
    CstrNodeType = "NOTATION_NODE"
    
  Case DOMNODETYPE_XMLDECL_NODE:                '13
    CstrNodeType = "XMLDECL_NODE"
  End Select
  
End Function