■ ■Messagebox ■_
■ ■"NamespaceURI = " & node.NamespaceURI & Chr(13) & Chr(10) & _
■ ■"Local name = " & node.LocalName & ■Chr(13) + Chr(10) & _
■ ■"Prefix = " & node.Prefix, , "Node:" & node.NodeName

XML 入力は次のとおりです。
<xml version="1.0">
■ ■<maindoc xmlns='http://www.lotus.com/dxl' version='1.01' path='names.nsf' >DOM Parser
■ ■ ■ <line1><font color='blue'/>Please send a message.</line1>
■ ■</maindoc>

Sub Initialize
■ Dim session As NotesSession
■ Dim db As NotesDatabase
■ Dim inputStream As NotesStream
■ Dim domParser As NotesDOMParser
■
■ On Error Goto errh
■ Set session = New NotesSession
■ Set db = session.CurrentDatabase
■ Set inputStream = session.CreateStream
■ inputStream.Open ("c:\dxl\namespace.xml")
■ Set domParser=session.CreateDOMParser(inputStream)
■ domParser.DoNamespaces = True
■ domParser.Process
■ Call walkTree(domParser.Document)
■
results:
Exit Sub
errh:
Messagebox Cstr(Err)+":■" + Error + Chr(13)
■ Resume results
End Sub

Sub walkTree ( node As NotesDOMNode)
■ Dim child As NotesDOMNode
■ Dim n As Integer
■
■ REM Report on the namespace
■ If node.NamespaceURI <> "" Then
■ ■ Messagebox ■_
■ ■ "NamespaceURI = " & node.NamespaceURI & Chr(13) & Chr(10) & _
■ ■ "Local name = " & node.LocalName & Chr(13) & Chr(10) & _
■ ■ "Prefix = " & node.Prefix, , "Node:"& node.NodeName
■ End If
■
■ Set child = node.FirstChild
■ n = node.NumberOfChildNodes
■ While n > 0
■ ■ Call walkTree(child)
■ ■ Set child = child.NextSibling
■ ■ n = n - 1
■ Wend
End Sub

関連項目

NamespaceURI プロパティ
LocalName プロパティ