RESPONDE CARCAR
===============
El siguiente procedimiento crea partiendo del fichero costes.txt el
nuevo fichero costesW.txt que ya no tiene problemas de importación. Se
le debe de pasar en longitud el número de caracteres de cada línea de
tu fichero de texto, en el de prueba que recibí, la longitud era de
628, y con esa longitud funciona.

El MsgBox se puede eliminar en la versión definitiva pues me servía
para ir comprobando que lo que se leía iba "bien encolumnado".


Sub ProcesarTxt(Longitud As integer)
  On Error GoTo Fin
  Dim Car As String
  Dim x As Integer
  
  Open "C:\Bases de datos\CanarySoft\costes.txt" For Input As #1
  Open "C:\Bases de datos\CanarySoft\costesW.txt" For Output As #2
  
  Do While 0 = 0
    Car = Input(Longitud, #1)
    MsgBox Mid(Car, 1, 40) 
    Print #2, Car
  Loop
  
Fin:
  If Err = 62 Then
    Close #1
    Close #2
  End If
End Sub

Saludos.



 
> Tengo que importar con cierta regularidad un fichero de texto que no tiene 
> al final de la linea 1024 caracteres, no tiene el retorno de carro, creo que 
> asi se llama, es decir que, aunque sean 14 lineas correspondientes a 14 
> registros distintos, access entiende que se trata de una sola linea y no lo 
> importa pues dice que es muy grande.
> 
> Si yo entro manualmente al fichero.. voy al final de la linea y pulso enter, y 
> asi lo hago con todas las lineas, access luego me lo recupera bien, pero 
> claro, yo puedo hacer eso con cada fichero, pues normalmente va a 
> contener entre 100 y 200 lineas.
> 
> Yo he pensado que quizas mediante código entrar en el fichero de texto 
> antes de importar, y dar el retorno de carro al final de la linea puede ser la 
> solución, pero no tengo ni la más remota idea de como hacerlo.
> 
> Agradezco cualquier ayuda que se me pueda prestar. Si quieren un ejemplo 
> del fichero para probar, lo puedo enviar a una dirección de correo sin 
> problemas pues solo ocupa 500k
> 
> Gracias de antemano por toda la ayuda o comentarios
> 
> 
> 
> Enviado desde http://access.aforo.com