TAMAÑO LECTURA FICHERO ASCII
Publicado por JosepF (68 intervenciones) el 09/10/2002 15:09:15
BUENAS A TODOS / TODAS;
Somos Lunes y ya parieron las dudas y los problemas;
Alguién puede decirme como puedo hacer la lectura de un fichero ascii de mas de 256 caracteres, para pasarlo a una tabla (importar datos), tiene que ser automático.
La siguiente rutina és la que he puesto, no se si es el read o e open, me he pensado que podria ser la longitud de lectura, pero no tengo ni idea.
Gracias
Dim WW As String
Open CurrentProject.Path & "\vicensa.TXT" For Input As #2 ' Obre el fitxer .
Do While Not EOF(2) ' Repeteix el bucle fins al final del fitxer.
Input #2, W_TRASPAS
' CARREGA EL FITXER
With w_vicensa
.AddNew
!codi = Mid$(W_TRASPAS, 1, 19)
!DESCRIPCIO = Mid$(W_TRASPAS, 20, 40)
'!PREU = CLng(Mid$(W_TRASPAS, 81, 10))
WW = Mid$(W_TRASPAS, 80, 20)
!PREU = CLng("23")
.Update
End With
Loop
Close #2 ' Cierra el archivo.
etq.Enabled = True
Somos Lunes y ya parieron las dudas y los problemas;
Alguién puede decirme como puedo hacer la lectura de un fichero ascii de mas de 256 caracteres, para pasarlo a una tabla (importar datos), tiene que ser automático.
La siguiente rutina és la que he puesto, no se si es el read o e open, me he pensado que podria ser la longitud de lectura, pero no tengo ni idea.
Gracias
Dim WW As String
Open CurrentProject.Path & "\vicensa.TXT" For Input As #2 ' Obre el fitxer .
Do While Not EOF(2) ' Repeteix el bucle fins al final del fitxer.
Input #2, W_TRASPAS
' CARREGA EL FITXER
With w_vicensa
.AddNew
!codi = Mid$(W_TRASPAS, 1, 19)
!DESCRIPCIO = Mid$(W_TRASPAS, 20, 40)
'!PREU = CLng(Mid$(W_TRASPAS, 81, 10))
WW = Mid$(W_TRASPAS, 80, 20)
!PREU = CLng("23")
.Update
End With
Loop
Close #2 ' Cierra el archivo.
etq.Enabled = True
Valora esta pregunta


0