VBScript

www.altova.com Imprimir este apartado Página anterior Subir un nivel Página siguiente

Inicio >  Introducción > API de StyleVision Server > Ejemplos de código >

VBScript

Este ejemplo explica cómo usar código VB Script para generar un archivo de salida RTF con un archivo PXF y un archivo XML de entrada.

 

Antes de empezar a probar el ejemplo, compruebe que cumple con estos requisitos:

 

StyleVision Server está instalado y tiene asignada una licencia válida.
StyleVision Server está disponible como objeto de servidor COM (este proceso suele tener lugar automáticamente durante la instalación de StyleVision Server. Consulte el apartado Información sobre la interfaz COM para obtener más información).

 

Option Explicit On

 

'Cree un objeto de StyleVisino Server. Utilice "StyleVision_x64.Server" si quiere usar la instalación de 64 bits

Dim objSVS

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

 

'Defina un directorio de trabajo para los archivos de salida y los archivos intermedios

objSVS.WorkingDirectory = "C:\temp"

 

'La ruta de acceso predeterminada del ejecutable de StyleVision Server es la ruta de acceso de instalación (el mismo directorio de StyleVisionServer.dll)

'Si movió los binarios de sitio, deberá definir explícitamente la ruta de acceso del archivo .exe

'objSVS.ServerPath = "C:\Archivos de programa (x86)\Altova\StyleVisionServer2019\bin\StyleVisionServer.exe"

 

'Prepare el nombre del archivo XML de trabajo

objSVS.InputXML = "ExpReport.xml"

 

'Añada las rutas de acceso de salida (absolutas o relativas con respecto al directorio de trabajo) para todos los formatos que se deben generarobjSVS.OutputRTF = "ExpReport.rtf"

 

'Prepare los parámetros, si el diseño utiliza alguno

'Llame a objSVS.AddParameter( "paramprueba1", "valor 1" )

 

'Ejecute la transformación. El resultado se almacenará en C:\temp\ExpReport.rtf

'NOTA: adapte la ruta de acceso del archivo de entrada para poder ejecutar el ejemplo

If ( objSVS.Run( "C:\Archivos de programa (x86)\Altova\StyleVisionServer2019\etc\Examples\ExpReport.pxf" ) ) Then

 WScript.Echo( "La ejecución finalizó correctamente" )

Else

 WScript.Echo( objSVS.LastExecutionMessage )

End If

 


© 2019 Altova GmbH