例: NotesXSLTransformer class

次のエージェントは、スタイルシートファイル XSL_SS.XSL を使用して、入力ファイル XML_IN.XML をテキスト出力ファイル XML_OUT.TXT に変換します。

(Options)
%INCLUDE "lsxbeerr.lss"


Sub Initialize
  On Error lsERR_NOTES_XSLT_INPUT_OBJECT Goto err_IN
  On Error lsERR_NOTES_XSLT_OUTPUT_OBJECT Goto err_OUT
  On Error lsERR_NOTES_XSLT_STYLESHEET_OBJECT Goto err_SS
  
  Dim session As New NotesSession
  filename$ = "hello"
  pathname$ = "c:¥dxl¥"
  
  Dim XML_in As NotesStream    ' input file
  Set XML_in=session.CreateStream
  If Not XML_in.Open(pathname$ & filename$ & ".xml") Then
    Messagebox "Cannot open " & filename$,, "XML file error"
    Exit Sub
  End If
  If XML_in.Bytes = 0 Then
    Messagebox filename$ & " does not exist or is empty",, "XML file error"
    Exit Sub
  End If
  
  Dim XSL_ss As NotesStream    ' style sheet
  Set XSL_ss=session.CreateStream
  If Not XSL_ss.Open(pathname$ & filename$ & ".xsl") Then
    Messagebox "Cannot open " & filename$,, "XSL file error"
    Exit Sub
  End If
  
  Dim XML_out As NotesStream    ' output file
  Set XML_out=session.CreateStream
  If Not XML_out.Open(pathname$ & filename$ & ".txt") Then
    Messagebox "Cannot create " & filename$,, "TXT file error"
    Exit Sub
  End If
  XML_out.Truncate
  
  Dim transformer As NotesXSLTransformer
  Set transformer=session.CreateXSLTransformer(XML_in, XSL_ss, XML_out)
  transformer.Process
  Exit Sub
err_IN:
  Messagebox "XSL Input error", , "XSLTransformer Process"
  Exit Sub
err_OUT:
  Messagebox "XSL Output error", , "XSLTransformer Process"
  Exit Sub
err_SS:
  Messagebox "Style Sheet error", , "XSLTransformer Process"
  Exit Sub
End Sub