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

関連項目

NotesDOMXMLDeclNode クラス
Encoding プロパティ
Standalone プロパティ
Version プロパティ

用語集