FoxPro/Visual FoxPro - tengo un acrhivo txt de 8 gigas como puedo abrir en fox

 
Vista:

tengo un acrhivo txt de 8 gigas como puedo abrir en fox

Publicado por Lorenzo (2 intervenciones) el 18/01/2019 15:20:37
Tengo un archivo que pesa mas de 8 gigas y no soporte el excel quiero abrir en fox y no puedo por favor necesito su ayuda
gracias

Lorenzo
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

tengo un acrhivo txt de 8 gigas como puedo abrir en fox

Publicado por jose camilo (805 intervenciones) el 19/01/2019 13:26:18
probaste con modi comm
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
Imágen de perfil de Abel
Val: 642
Plata
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

tengo un acrhivo txt de 8 gigas como puedo abrir en fox

Publicado por Abel (286 intervenciones) el 20/01/2019 16:02:26
Puedes intentar creando una tabla e importando los datos del archivo plano; por ejemplo:

CREATE TABLE NombreDeTabla (NombreDeCampo C(250))
APPEND FROM GETFILE("TXT") TYPE sdf
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
Imágen de perfil de Leonardo Daniel A.
Val: 1.115
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

tengo un acrhivo txt de 8 gigas como puedo abrir en fox

Publicado por Leonardo Daniel A. (498 intervenciones) el 20/01/2019 19:10:30
esto encontre en la web


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
TRY
    LOCAL lcFile,;
    loFso as Object,;
    loText as Object,;
    lcLine,;
    loex as Exception
 
    lcFile = "c:\Theodore\xaloja.txt"
    loFso = NEWOBJECT("Scripting.FileSystemObject")
    loText = loFso.OpenTextFile(m.lcfile,1)
    DO WHILE .t.
        IF loText.AtEndOfStream
            EXIT
        ENDIF
        lcLine = loText.ReadLine()
        * Acá va el tratamiento de texto
 
    ENDDO
CATCH TO loex
    loex.UserValue = PROGRAM()
    * MostrarError(loex)
FINALLY
    IF VARTYPE(loText)="O"
        loText.Close()
    ENDIF
    loText = null
    loFso = null
ENDTRY

Si el archivo tiene igual cantidad de caracteres por línea, también se puede utilizar
lnChar = 464 && ejemplo
lcLine = loText.Read(lnChar)

Si el archivo de texto tiene como separador de líneas solamente CHR(13), me tengo que poner a estudiar (je, je...)
Lo mejor es que no sea tan grande
lnLines = alines(laLines, filetostr(lcTextFile),1+4 , chr(10),chr(13) )
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