DigiNG edición Scripting

Código de ejemplo "GuardaDatos"

El código de este ejemplo solicita al usuario mediante un cuadro de diálogo el nombre de un archivo en el cual se almacenarán los valores de todas las propiedades ( DA, JT, INC, ... ) con sus valores actuales.

Este archivo es el que usará el ejemplo CargaDatos

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 "GuardaDatos". 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 "GuardaDatos".

Call GuardaDatos

Sub GuardaDatos

        Dim archivo

        Dim fso

        Dim os

        archivo = digi.DialogoPideArchivo(False)                   ' Almacenamos en la variable "archivo" el nombre del archivo

                                                                   ' que ha seleccionado el usuario.

        If archivo == "" Then Exit Sub                             ' Si el usuario pulsó escape nos salimos y no hacemos nada

        set fso = CreateObject("Scripting.FileSystemObject")       ' Creamos un objeto FileSystemObject que nos permitirá crear

                                                                   ' un archivo.

        set os = fso.CreateTextFile(archivo, True)                 ' Creamos un archivo de texto con el nombre devuelto por la

                                                                   ' función de DigiNG DialogoPideArchivo. El segundo parámetro,

                                                                   ' si es True, indica que queremos sobreescribir el archivo en

                                                                   ' el caso de que existiera.

        os.WriteLine( digi.da )                                    ' Almacenamos en el archivo el valor de la propiedad DA

        os.WriteLine( digi.inc )

        os.WriteLine( digi.aa )

        os.WriteLine( digi.at )

        os.WriteLine( digi.it )

        os.WriteLine( digi.tol )

        os.WriteLine( digi.tolang )

        os.WriteLine( digi.equidistancia )

        os.WriteLine( digi.escact )

        os.WriteLine( digi.girar )

        os.WriteLine( digi.ndec )

        os.WriteLine( digi.grosor )

        os.WriteLine( digi.c )

        os.WriteLine( digi.orto )

        os.WriteLine( digi.ortoaa )

        os.WriteLine( digi.borrados )

        os.WriteLine( digi.ver )

        os.WriteLine( digi.fijaz )

        os.WriteLine( digi.tentativotextos )

        os.WriteLine( digi.irprincipio )

        os.WriteLine( digi.g )

        os.WriteLine( digi.s )

        os.WriteLine( digi.repite )

        os.WriteLine( digi.tentativofin )

        os.WriteLine( digi.irtentativo )

        os.WriteLine( digi.pita )

        os.WriteLine( digi.patron )

        os.WriteLine( digi.patrons )

        os.WriteLine( digi.raton )

        os.WriteLine( digi.fijaxy )

        os.Close

End Sub

Mirar también

Método DialogoPideArchivo | Propiedades de DigiNGScript | Ejemplo CargaDatos

Fecha de última modificación: domingo, 9 de diciembre de 2001

© 2001-2002 Dreaming With Objects. Todos los derechos reservados.