Escritura y lectura de Archivos .txt en VB6
Estoy haciendo una aplicación en VB6 en la que en una parte debo leer un archivo de texto, en el cual están separados por el carácter "#" los datos que debo ir extrayendo uno a uno y guardarlos en una base de datos (Access). Estos datos son nombres de campos de una tabla que yo tengo para luego yo armar un .txt en base a estos campos. No se cuales pueden venir, porque justamnte son los que voy a usar para la información que debo mandar luego.
¿Cómo hago para leer este archivo de texto que me mandan y guardar los datos en la tabla?
¿Cómo hago para leer este archivo de texto que me mandan y guardar los datos en la tabla?
1 Respuesta
Respuesta de rogersr
1
Lamento la demora en contestar.
Si aún necesitas el código, es el siguiente:
'Variables de Lectura y Control
Dim cad As String, i As Byte, s As Byte, var As Byte
Open "archivo.txt" For Input As #1
While Not EOF(1) 'Recorre archivo hasta que termine
Input #1, cad
s = 1 'Controla inicio de cada cadena
var = 1 'Control el Campo a asignar
For i = 1 To Len(cad)
'Recorre la cadena leída del archivo
If Mid(cad, i, 1) = "#" Or i = Len(cad) Then
Select Case var
Case 1
Data1.Recordset("nombre_campo1") = Mid(cad, s, i - s)
Case 2
Data1.Recordset("nombre_campo2") = Mid(cad, s, i - s)
Case 3
Data1.Recordset("nombre_campo3") = Mid(cad, s, i - s + 1)
End Select
s = i + 1
var = var + 1
End If
Next i
Wend
Close 1
Está diseñando para trabajar con un DataControl.
Suerte !
Rogers R.
Si aún necesitas el código, es el siguiente:
'Variables de Lectura y Control
Dim cad As String, i As Byte, s As Byte, var As Byte
Open "archivo.txt" For Input As #1
While Not EOF(1) 'Recorre archivo hasta que termine
Input #1, cad
s = 1 'Controla inicio de cada cadena
var = 1 'Control el Campo a asignar
For i = 1 To Len(cad)
'Recorre la cadena leída del archivo
If Mid(cad, i, 1) = "#" Or i = Len(cad) Then
Select Case var
Case 1
Data1.Recordset("nombre_campo1") = Mid(cad, s, i - s)
Case 2
Data1.Recordset("nombre_campo2") = Mid(cad, s, i - s)
Case 3
Data1.Recordset("nombre_campo3") = Mid(cad, s, i - s + 1)
End Select
s = i + 1
var = var + 1
End If
Next i
Wend
Close 1
Está diseñando para trabajar con un DataControl.
Suerte !
Rogers R.
