Importación datos txt a access en VB

[Pavement]

Hola Amigos,


Tengo que importar de un fichero de texto con el siguiente formato:


08201JUAN PEREZ RODRIGUEZ 251078
08205JAIME JUAN BERNAL 100369


Considerando que los campos de la BBDD serian los siguientes:

CP[5]
NOMBRE[20]
APELLIDO1[20]
APELLIDO2[20]
FECHAN[6]

Me gustaria saber como podría recorrer el fichero de texto e ir insertando los datos en los campos de una tabla de access considerando la capacidad de cada campo y que los campos no estan separados por nada, sino por su medida.
La base de datos seria un access y el código en visual basic.


Muchas gracias.

[gndark]

Saludos:

Imagino que tu problema es por que no tienen un tamaño definido....aqui hice un pequeño codigo para que te separe el primer numero y la fecha , y te saque aparte el primer apellido el segundo y el nombre.....esto es segun los espacion encontrados en la linea..........(cambia la variable linea por el campo )........Espero que te sirva y cualquier cosa no dudes en preguntar



Private Sub Command1_Click()
Dim linea, cp, fecha, nombre, ape1, ape2, tpnombre, letra As String
nombre = ""
ape1 = ""
ape2 = ""
linea = "08201GUILLERMO NIÑO GARCIA251078" 'por ejemplo
linea = Trim(linea)
cp = Mid(linea, 1, 5)
MsgBox cp
linea = Trim(linea)
fecha = Mid(linea, Len(linea) - 5, 6)
MsgBox fecha
tmpnombre = Mid(linea, 6, Len(linea) - 5)
tmpnombre = Mid(tmpnombre, 1, Len(tmpnombre) - 6)
Dim i, nespacios As Integer
nespacios = 0
tmpnombre = Trim(tmpnombre)
For i = Len(tmpnombre) To 1 Step -1
If Not Len(tmpnombre) = 1 Then
letra = Mid(tmpnombre, Len(tmpnombre), 1)
Else
letra = tmpnombre
End If
tmpnombre = Mid(tmpnombre, 1, Len(tmpnombre) - 1)
If letra = " " Then
nespacios = nespacios + 1
End If
If Not letra = " " And nespacios = 0 Then
ape2 = letra & ape2
End If
If Not letra = " " And nespacios = 1 Then
ape1 = letra & ape1
End If
If nespacios = 2 Then
nombre = letra & nombre
End If
Next
MsgBox nombre
MsgBox ape1
MsgBox ape2
End Sub

[Taribo007]

Iniciado por Pavement

considerando la capacidad de cada campo y que los campos no estan separados por nada, sino por su medida.
La base de datos seria un access y el código en visual basic.


Muchas gracias.

No estan separados por nada, o estan separados por un espacio???

un saludo