Importación datos txt a access en VB

[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