Importar desde texto .txt

Este ejemplo muestra como importar un archivo txt

 Visual Basic |  copy code |? 
01
02
Sub Main()
03
    Dim s, cliente, telefono, dondeEstaEltabulador
04
    Dim Query, rstCliente
05
 
06
    Set Query = NewQuery()
07
    Set Query.Connection = Ambiente.Connection
08
 
09
    CloseFile 1
10
 
11
    OpenFile "c:\clientes.txt", 1
12
 
13
    While Not FileEOF( 1 )
14
 
15
          s = ReadLine( 1 )    
16
 
17
          dondeEstaEltabulador = clAt( Chr(9), s )
18
          cliente = Mid( s, 1, dondeEstaElTabulador - 1 )
19
          cliente = Replace( cliente, Chr(34), "" )
20
 
21
          s = Mid( s, dondeEstaElTabulador + 1 )
22
 
23
          dondeEstaEltabulador = clAt( Chr(9), s )
24
          nombre = Mid( s, 1, dondeEstaElTabulador - 1 )
25
          nombre = Replace( nombre, Chr(34), "" )
26
 
27
          telefono = Mid( s, dondeEstaElTabulador + 1 )
28
          telefono = Replace( telefono, Chr(34), "" )
29
 
30
          Set rstCliente = Rst( _
31
   "SELECT cliente FROM clients WHERE cliente = '" & cliente & "'", _
32
          Ambiente.Connection )
33
 
34
          Query.Reset          
35
 
36
          If rstCliente.EOF Then
37
             Query.strState = "INSERT"
38
          Else
39
             Query.strState = "UPDATE"
40
             Query.Condition = "cliente = '" & cliente & "'"
41
          End If
42
 
43
          ' Tabla, campo, valor
44
          Query.AddField "clients", "cliente", cliente
45
          Query.AddField "clients", "nombre", nombre
46
          Query.AddField "clients", "telefono", telefono
47
          Query.CreateQuery
48
          Query.Execute  
49
 
50
    Wend       
51
 
52
    CloseFile 1
53
 
54
End Sub
55
 
56

Esta función podría ser una opción para interconectar mybusiness pos con otras herramientas externas de una forma sencilla. Utilizo la importación para descifrar la respuesta de tiempo aire y funciona bastante bien.

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.