how to use Saxon

        ' Create a Processor instance.
        Dim processor As Processor = New Processor                 ' process document
        ' Load the source document.
        Dim inputDoc As XdmNode = processor.NewDocumentBuilder().Build(New Uri(sourcePath))
        ' Create a transformer for the stylesheet.
        Dim transformer As XsltTransformer = processor.NewXsltCompiler().Compile(New Uri(xsltPath)).Load ' transform document
 
        ' Set the root node of the source document to be the initial context node.
        transformer.InitialContextNode = inputDoc
 
        '' BaseOutputUri is only necessary for xsl:result-document.
        'transformer.BaseOutputUri = sourceUri
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Imports System
Imports System.IO
Imports System.Collections
Imports System.Xml
Imports System.Xml.XPath
Imports Saxon.Api
 
 
Module transformXML
 
    Sub Main(ByVal args As String())
 
        ' Use Command Line arguments.
        Dim sourcePath As String = args(0)
        Dim xsltPath As String = args(1)
        Dim logPath As String = "log.xml"
 
        'MsgBox(sourcePath + " : " + xsltPath)
        MsgBox("XML File: " + sourcePath.ToString + Chr(13) + "XSL File: " + xsltPath.ToString)
 
        ' Take the xml
        Dim xmlTextReader As XmlTextReader = New XmlTextReader(sourcePath)
        Dim doc As XmlDocument = New XmlDocument()
        doc.Load(xmlTextReader)
 
        ' Take the xsl
        Dim xsltTextReader As XmlTextReader = New XmlTextReader(xsltPath)
 
        ' Get handle XML Processor->XSL Compiler->XSLT Transformer
        Dim processor As Processor = New Processor()
 
        Dim input As XdmNode = processor.NewDocumentBuilder().Wrap(doc)
 
        Dim xsltCompiler As XsltCompiler = processor.NewXsltCompiler()
        Dim transformer As XsltTransformer = xsltCompiler.Compile(xsltTextReader).Load()
        transformer.InitialContextNode = input
        'Dim fs As FileExists = New FileExists()
        ' Wrap your obj
        'transformer.SetParameter(New QName("", "fileUtil"), XdmAtomicValue.WrapExternalObject(fs))
 
        ' Get handle of a Serializer
        Dim Serializer As Serializer = New Serializer()
        Serializer.SetOutputProperty(Serializer.INDENT, "yes")
        Dim filestrm As FileStream = New FileStream(logPath, FileMode.Create, FileAccess.Write)
        Serializer.SetOutputStream(filestrm)
 
        ' Start transformation
        transformer.Run(Serializer)
 
        ' close in last open first close order
        filestrm.Close()
        Serializer.Close()
        xsltTextReader.Close()
        xmlTextReader.Close()
 
        MsgBox("Done!")
 
    End Sub ' ValidationError
 
End Module

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60: