VBScript

www.altova.com Print this Topic Previous Page Up One Level Next page

Home >  StyleVision Server API > Code Examples >

VBScript

The example below shows how to use VB Script code to generate an output RTF file using a PXF file and an input XML file. Ensure that StyleVision Server is installed and licensed and that it is available as a COM server object. Registration as a COM server object usually takes place during installation of StyleVision Server. To check if registration was successful, see About the COM Interface.

 

Option Explicit On

 

'Create a StyleVision Server object; use "StyleVision_x64.Server" if you want to use the 64-bit installation

Dim objSVS

Set objSVS = WScript.GetObject( "", "StyleVision.Server" )

 

'Set a working directory - used for output and for intermediate files

objSVS.WorkingDirectory = "C:\temp"

 

'Default path to the StyleVision Server executable is the installation path (same dir with the StyleVisionServer.dll)

'In case you moved the binaries on the disk, you need to explicitly set the path to the .exe file

'objSVS.ServerPath = "C:\Program Files (x86)\Altova\StyleVisionServer2019\bin\StyleVisionServer.exe"

 

'Prepare the name of the working XML

objSVS.InputXML = "ExpReport.xml"

 

'Add output paths (absolute or relative to WorkingDirectory) for all formats that should be generated

objSVS.OutputRTF = "ExpReport.rtf"

 

'Prepare the parameters, if your design uses parameters

'Call objSVS.AddParameter( "testparam1", "value 1" )

 

' Run the transformation; the output will be stored at C:\temp\ExpReport.rtf

' NOTE Please adapt the path to the input file in order to run the sample

If ( objSVS.Run( "C:\Program Files (x86)\Altova\StyleVisionServer2019\etc\Examples\ExpReport.pxf" ) ) Then

 WScript.Echo( "Success - finished execution" )

Else

 WScript.Echo( objSVS.LastExecutionMessage )

End If

 

 


© 2019 Altova GmbH