Access - TAMAÑO LECTURA FICHERO ASCII

 
Vista:

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

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

TAMAÑO LECTURA FICHERO ASCII

Publicado por Alejandro (4142 intervenciones) el 22/04/2023 01:58:01
Para leer archivos ASCII con más de 256 caracteres, en lugar de usar la función `Input`, puedes usar la función `Line Input`, que permite leer una línea completa del archivo. La sintaxis sería algo como:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim WW As String
Open CurrentProject.Path & "\vicensa.TXT" For Input As #2 ' Abre el archivo.
Do While Not EOF(2) ' Repite el bucle hasta el final del archivo.
    Line Input #2, W_TRASPAS ' Lee una línea completa.
 
    ' CARGA EL ARCHIVO
    With w_vicensa
        .AddNew
        !codi = Mid$(W_TRASPAS, 1, 19)
        !DESCRIPCIO = Mid$(W_TRASPAS, 20, 40)
        WW = Mid$(W_TRASPAS, 80, 20)
        !PREU = CLng("23")
        .Update
    End With
Loop
Close #2 ' Cierra el archivo.
etq.Enabled = True

En este caso, se usa la función `Line Input` para leer la línea completa del archivo, que se almacena en la variable `W_TRASPAS`. Luego, se procesa el contenido de la línea, como lo estabas haciendo en tu código original.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar