problema para levantar txt en dbf
Publicado por Gloria (3 intervenciones) el 09/05/2014 16:51:51
HOla, quiero levantar un txt en dbf que tiene mas de 2.000.000 de registros, el txt tiene la particularidad que una cierta cantidad de registros empiezan con 2421, otros con 2422 y otros con 2423. Entonces yo pensé en crear una tabla por cada uno, por ejemplo cod2421, cod2422 y cod2423, recorrer el txt y appendear en cod2421 mientras las 4 primeras posiciones de la cadena =2421. El tema es que no se bien como hacerlo, porque es como que ni siquiera me abre el txt al ser tan grande. Les muestro lo que hice
arch=fopen('NLAVDIN2.TXT')
if arch<0
messagebox('Imposible Abrir el Archivo '+chr(13)+;
'Deberá volver a importarlo',16,'Mensajes de Validación')
sali=.t.
fclose(arch)
return
else
do while not feof(arch)
cadena=fgets(arch,256)
IF SUBSTR(CADENA,1,4)='2421'
SELE COD2421
APPEND FROM CADENA SDF
ENDIF
LOOP
ENDDO
=FCLOSE(ARCH)
ENDIF
Es como que nunca entra al do while, me da como feof el archivo
Desde ya agradezco la repuesta de alguno, porque me urge el trabajo
arch=fopen('NLAVDIN2.TXT')
if arch<0
messagebox('Imposible Abrir el Archivo '+chr(13)+;
'Deberá volver a importarlo',16,'Mensajes de Validación')
sali=.t.
fclose(arch)
return
else
do while not feof(arch)
cadena=fgets(arch,256)
IF SUBSTR(CADENA,1,4)='2421'
SELE COD2421
APPEND FROM CADENA SDF
ENDIF
LOOP
ENDDO
=FCLOSE(ARCH)
ENDIF
Es como que nunca entra al do while, me da como feof el archivo
Desde ya agradezco la repuesta de alguno, porque me urge el trabajo
Valora esta pregunta
0