Exportar a texto .txt

Este es un ejemlo de cómo exportar a un archivo de texto.

 Visual Basic |  copy code |? 
01
02
Sub Main()
03
    Dim rstClientes              
04
    Dim s
05
 
06
    Set rstClientes = CreaRecordSet( _
07
        "SELECT * FROM clients", Ambiente.Connection )
08
 
09
    s = ""
10
 
11
    If ExisteArchivo( "c:\clientes.txt" ) = True Then
12
       If Question( "Desea eliminar el archivo", 2 ) = True Then
13
          EliminaArchivo "c:\clientes.txt"
14
       End If
15
    End If
16
 
17
    While Not rstClientes.EOF 
18
          s = Chr(34) & rstClientes("cliente") & Chr(34) & _
19
              Chr(9) & Chr(34) & rstClientes("nombre") & Chr(34) & _
20
              Chr(9) & Chr(34) & rstClientes("telefono") & Chr(34) & vbCrLf 
21
          OutLine "c:\clientes.txt", s
22
          rstClientes.MoveNext
23
    Wend
24
 
25
    If Question( "Desea abrir el archivo", 1 ) = True Then
26
       ShellRun Parent.hWnd, "Open", "c:\clientes.txt" 
27
    End If
28
 
29
End Sub 
30
 
31

Este script puede ser de utilidad si quisiéramos ver un texto con los clientes o cualquier otro layout que se requiera para otros sistemas.

He utilizado para servicoos como facturación cfdi y para tiempo aire.
La función ExisteArchivo es genial porque lo único que escribimos como parámetro es la ruta de nuestro archivo de texto.

Lo importante es probar todas las posibilidades que existen para tener la información disponible para hacer lo que las reglas del negocio requiere.

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos necesarios están marcados *


Time limit is exhausted. Please reload CAPTCHA.