RE:Cargar un archivo TXT a Acces
Hola otra vez aqui te envio un codigo con el q podras extraer los datos de tu TXT y almacenarlos en un array lo cual creo te facilitara el pasarlos luego a las tablas.
viendo los datos q me mandastes he hecho lo siguiente, suponiendo que tienes codigo nombres y fecha solo esos tres
_______________________
Codigo nombres fecha
1000001ERNESTO MARQUEZ 2005
1000002PEDRO PEREZ 2005
al final los datos quedaran en unarray de esta maneera, o algo asi ;-)
| 0 | 1 | 2
----------------------------------------------------
0 |1000001|ERNESTO MARQUEZ|2005|
1 |1000002|PEDRO PEREZ |2005 |
2 |
===================================================================
Dim FSO
Dim objTextStream
const strNombreArchivo = "C:\data\clientes.txt"
const fsoLectura = 1
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If (FSO.FileExists(strNombreArchivo)) then
Set objTextStream = FSO.OpenTextFile(strNombreArchivo, fsoLectura)
Dim sTmp
sTmp=objTextStream.Readall() 'Leemos todo el fichero y lo almacenamos
'Creamos un Array apartir de los datos almacenamos
TmpArray=Split(sTmp,VBcrlf)
reDim TAbla(UBound(TmpArray),3) 'Array para Almacenar los Datos Tipo tabla
For i = LBound(TmpArray) To UBound(TmpArray)
TAbla(i,0) = Mid(TmpArray(i), 1, 7) 'Extraemos los Codigos
TAbla(i,1) = Mid(TmpArray(i), 8, 21) 'Extraemos los Nombres
TAbla(i,2) = Mid(TmpArray(i), 29) 'Extraemos el Telefono
Next
objTextStream.Close
Set objTextStream = Nothing
Else
response.Write strFileName & " No se ha encontrado"
End If
===================================================================
Espero te Sirva Chao.