Ejemplos de cómo generar un fichero de texto.
Atención: El usuario que guarda debe de tener permiso de escritura en la ruta seleccionada. Se recomienda que no sea en la raíz de una unidad de disco.

 

Código VB6:

' Ejemplo con FileSystemObject
Sub Main()
     frmAux.Descargar 'ATENCIÓN: DEBE ESTAR SIEMPRE QUE NO SE MUESTRE EL FORMULARIO.

     Set fs = CreateObject("Scripting.FileSystemObject")
     Set a = fs.CreateTextFile("c:\temp\testfile.txt", True)
     lVar = "contenido de mi variable"

     a.WriteLine("This is a test l1.")
     a.WriteLinelVar & ";A;" & lVar )
     a.WriteLine("This is a test l3.")
     a.Close

End Sub
'Ejemplo con funciones de la librería ahoraUtil, esta vez utilizando un recordset
Sub Main()
      frmAux.Descargar

      Set lObj = CreateObject("AhoraUtil.CUtil")

      lpath = "C:\Compartida\"
      lcliente = InputBox("Nombre Cliente:")

      lSQL = "SELECT * from Pantallas_Configuracion_Scripts"

     Set lr1 = gcn.OpenResultSet (lSQL,2,3)
     Do While Not lr1.EOF
     lCadFile = CStr(lr1("Codigo"))
     lfichero = lcliente & " - " & CStr(lr1("Pantalla"))
     lObj.GuardaFichero lpath & lfichero & ".txt",CStr(lCadFile)
     lr1.MoveNext
     Loop

     MsgBox "Extracción terminada " & lpath
End Sub


Código C#:

// Ejemplo con clase File
using System.IO;

namespace AhoraScriptsVacia
{
    public class Script_61 : AhoraOCX.AhoraBaseScript
    {
        public void Main()
        {
            StreamWriter lFichero = File.CreateText("C:\\TEMP\\testfile.txt");

            string lVar = "Contenido de mi variable";
            lFichero.WriteLine("Línea 1");
            lFichero.WriteLine(lVar + ";A;" + lVar);
            lFichero.WriteLine("Línea 3");

            lFichero.Close();

        }
    }
}
// Ejemplo con funciones de la librería AhoraUtil, esta vez utilizando un recordset
using AhoraSistema;
using static AhoraUtil.CUtil;
using static AhoraCore.VBA.Interaction;

namespace AhoraScriptsVacia
{
    public class Script_62 : AhoraOCX.AhoraBaseScript
    {
        public void Main()
        {
            string lPath = "C:\\TEMP\\";
            string lCliente = InputBox("Nombre Cliente:");

            string lSQL = "SELECT * FROM Pantallas_Configuracion_Scripts";

            IRecordSet lR1 = gCn.OpenResultSet(lSQL);
            while (!lR1.EOF)
            {
                string lCadFile = lR1["CodigoNet"].Value;
                string lFichero = lCliente + " - " + lR1["Pantalla"].Value;
                GuardaFichero(lPath + lFichero + ".txt", lCadFile);
                lR1.MoveNext();
            }

            MsgBox("Extracción terminada: " + lPath);

        }
    }
}