XSLT Saxon

MessageBox( javaTr.E2E_TransformSaxon(xml.Readtext(), xsl_2.Readtext()))

Function E2E_TransformSaxon (sXML As String, sXSL As String) As String
On Error GoTo errorHandler
E2E_TransformSaxon = False
 
Dim js As JAVASESSION
Dim saxonClass As JAVACLASS
Dim saxonObj As JavaObject
 
Dim startTic As Long
 
Dim seconds As Double
 
Print "Трансформирую данные..."
 
startTic = GetThreadInfo (6)
 
Set js = New JAVASESSION
Set saxonClass = js.GetClass("SaxonXML2Transformer")
Set saxonObj = saxonClass.CreateObject ()
 
Call saxonObj.TrasformFFF (sXML, sXSL)
 
seconds = (GetThreadInfo (6) - startTic) / GetThreadInfo (7)
 
Print "На трансформацию данных потрачено секунд: " & Format (seconds, "##0.00")
 
Print "Трансформирую данные...ОК"
 
E2E_TransformSaxon = saxonObj.TrasformFFF (sXML, sXSL)
 
ex:
Exit Function
 
errorHandler:
Call ProcessError (MODULE_NAME, Err, Error, Erl, GetThreadInfo (LSI_THREAD_PROC), GetThreadInfo (LSI_THREAD_CALLPROC))
Resume Ex
End Function

    Dim cfgdoc As NotesDocument
Dim cfgview As NotesView
Set cfgview=db.getView(CFG_VIEW)
Set cfgdoc=cfgview.getDocumentByKey(XSL_NAME)
 
Dim body As NotesRichTextItem
Set body=cfgdoc.GetFirstItem({body})
 
Dim txtXSL As String
txtXSL=body.GetFormattedText(False, 255)

Option Public
Option Declare
Uselsx "*javacon"
Use "libXMLTransform"
 
Const CFG_VIEW={Configurations}
Const XSL_NAME={dxl2fo}
 
Sub Initialize
try:
On Error Goto catch
 
Dim ses As New NotesSession
Dim db As NotesDatabase
Set db=ses.CurrentDatabase
 
Dim cfgdoc As NotesDocument
Dim cfgview As NotesView
Set cfgview=db.getView(CFG_VIEW)
Set cfgdoc=cfgview.getDocumentByKey(XSL_NAME)
 
Dim body As NotesRichTextItem
Set body=cfgdoc.GetFirstItem({body})
 
Dim txtXSL As String
txtXSL=body.GetFormattedText(False, 255)
 
Dim txtXML As String
 
Dim doc As NotesDocument
Set doc=ses.DocumentContext
Dim exporter As NotesDXLExporter, stream As NotesStream
Set stream=ses.CreateStream
Set exporter=ses.CreateDXLExporter(doc, stream)
exporter.ForceNoteFormat=False
exporter.ConvertNotesBytmapsToGIF=True
exporter.OutputDOCTYPE=False
exporter.Process
stream.Position=0
Msgbox "size:" &stream.Bytes
Dim buffer As String
Do
buffer = stream.ReadText(STMREAD_LINE, EOL_CRLF)
txtXML=txtXML & buffer
Loop Until stream.IsEOS
txtXML=stream.ReadText()
Msgbox "size:" &Len(txtXSL) & Chr(10) &txtXSL
Msgbox "stream size:" &stream.Bytes & Chr(10) _
&"str size:" &Len(txtXML) & Chr(10) _
&txtXML
 
Dim res As String
res=E2E_TransformSaxon(_
txtXML,_
txtXSL)
Msgbox {str size:} &Len(res) & Chr(10) _
&res
Goto finally
 
catch:
Print Error,{line:} &Cstr(Erl), {#} & Cstr(Err)
Resume finally
finally:
End Sub
Private Function E2E_TransformSaxon (sXML As String,_
sXSL As String) As String
 
Dim js As JAVASESSION
Dim saxonClass As JAVACLASS
Dim saxonObj As JavaObject
 
Dim startTic As Long
 
Dim seconds As Double
 
try:
On Error Goto catch
 
E2E_TransformSaxon = "*no result*"
 
Print "Трансформирую данные..."
 
startTic = Getthreadinfo (6)
 
Set js = New JAVASESSION
Set saxonClass = js.GetClass("SaxonXML2Transformer")
Set saxonObj = saxonClass.CreateObject ()
 
E2E_TransformSaxon=saxonObj.TrasformFFF (sXML, sXSL)
 
seconds = (Getthreadinfo (6) - startTic) / Getthreadinfo (7)
 
Print "На трансформацию данных потрачено секунд: " & Format (seconds, "##0.00")
 
Print "Трансформирую данные...ОК"
 
Goto finally
 
catch:
Call ProcessError (MODULE_NAME, Err, Error, Erl, GetThreadInfo (LSI_THREAD_PROC), GetThreadInfo (LSI_THREAD_CALLPROC))
Print Error, Erl, Err
Resume finally
 
finally:
End Function

Dim exporter As NotesDXLExporter
 
Set exporter = s.CreateDXLExporter(doc)
Set transformer_1=s.Createxsltransformer(exporter, xsl_1, xml)
exporter.OutputDOCTYPE = False
Call exporter.Process

        Call saxonObj.TrasformFFF (sXML, sXSL)
.....
E2E_TransformSaxon = saxonObj.TrasformFFF (sXML, sXSL)