LOTUSSCRIPT /COM/OLE のクラス

例:NotesDOMXMLDeclNode クラス
次のエージェントは、XML 宣言ノードについて報告します。

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

関連項目