DigiNG edición Scripting

Código de ejemplo "Binunion"

El código de este ejemplo solicita al usuario mediante un cuadro de diálogo el nombre de un archivo. Luego se copiarán todas las entidades de dicho archivo en el documento activo de DigiNG tal y como lo haría la utilidad de Digi "Binunion".

Para ejecutar este código en DigiNG, seguir los siguientes pasos:

Crear con un editor de textos (como el bloc de notas) un archivo llamado "Binunion". Posiblemente, al salvar el archivo el editor de textos utilizado le añada la extensión .txt, que tendremos que quitar más adelante con el explorador de archivos de Windows.

Copiar el siguiente bloque de código de ejemplo en el archivo "Binunion".

Option Explicit

Dim nombreArchivo

Dim numeroEntidades

Dim entidades

Dim i

nombreArchivo = digi.DialogoPideArchivoReferencia

numeroEntidades = digi.CargaArchivo(nombreArchivo, entidades)

For i = 0 To numeroEntidades - 1

        digi.AnadeEntidad entidades(i)

Next

Mirar también

Método DialogoPideArchivo | Método CargaArchivo | Método AnadeEntidad

Fecha de última modificación: miércoles, 22 de mayo de 2002

© 2001 Dreaming With Objects. Todos los derechos reservados.