DigiNG edición Scripting

Código de ejemplo "CargaDatos"

El código de este ejemplo solicita al usuario mediante un cuadro de diálogo el nombre de un archivo del cual se cargarán los valores de las propiedades almacenadas con el ejemplo GuardaDatos.

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

Call CargaDatos

Sub CargaDatos

        Dim archivo

        Dim fso

        Dim os

        Const ModoLectura = 1

        archivo = digi.DialogoPideArchivo(True)

        If archivo = "" Then Exit Sub

        set fso = CreateObject("Scripting.FileSystemObject")

        set os = fso.OpenTextFile(archivo, ModoLectura)

        digi.da = os.ReadLine

        digi.inc = os.ReadLine

        digi.aa = os.ReadLine

        digi.at = os.ReadLine

        digi.jt = os.ReadLine

        digi.tol = os.ReadLine

        digi.tolang = os.ReadLine

        digi.equidistancia = os.ReadLine

        digi.escact = os.ReadLine

        digi.girar = os.ReadLine

        digi.ndec = os.ReadLine

        digi.grosor = os.ReadLine

        digi.c = os.ReadLine

        digi.orto = os.ReadLine

        digi.ortoaa = os.ReadLine

        digi.borrados = os.ReadLine

        digi.ver = os.ReadLine

        digi.fijaz = os.ReadLine

        digi.tentativotextos = os.ReadLine

        digi.irprincipio = os.ReadLine

        digi.g = os.ReadLine

        digi.s = os.ReadLine

        digi.repite = os.ReadLine

        digi.tentativofin = os.ReadLine

        digi.irtentativo = os.ReadLine

        digi.pita = os.ReadLine

        digi.patron = os.ReadLine

        digi.patrons = os.ReadLine

        digi.raton = os.ReadLine

        digi.fijaxy = os.ReadLine

        os.Close

End Sub

Mirar también

Método DialogoPideArchivo | Propiedades de DigiNGScript | Ejemplo GuardaDatos

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

© 2001 Dreaming With Objects. Todos los derechos reservados.