FiveTech Software tech support forums

Amigos

Se puede pasar un archivo .TXT a EXCEL delimitado por pipe "|" con FWH.

Saludos,

Adhemar

Talvez:

Code: Select all  Expand view

COPY TO ... DELIMITED WITH TAB
APPEND FROM ... DELIMITED WITH TAB
 // uses chr(9) as field separator and without string delimiters
COPY TO ... DELIMITED WITH PIPE
APPEND FROM ... DELIMITED WITH PIPE
  // uses '|' as field separator and without string delimiters
COPY TO ... DELIMITED WITH ( { cStrDelim, cFldSeparator } )
APPEND FROM ... DELIMITED WITH ( { cStrDelim, cFldSeparator } )
  // allows users to set and any character field
      delimiters and fields separators
 

Saludos.

Adhemar,
Podrías probar leer el archivo con MEMOREAD y luego con TOleAuto() grabar en un excel...
Espero te sirva la idea.
Saludos,

Gracias amigos

Alguna idea de cómo?

Saludos,

Adhemar

Adhemar:

Necesariamente debe ser con código FW?, Excel tiene
forma de importar archivos TXT.

Saludos

Armando,

Si, excel tiene. Pero son varios reportes que tengo que pasar a excel y queria evitar de hacerlo manual.

Saludos,

Adhemar

Adhemar:

Va la idea:

1.- Abrir el archivo .TXT

Code: Select all  Expand view

oTxtFile = TTxtFile():New(cPathYNombreDeTuArchivo,0)
 

2.- Recorrer el archivo de principio a fin

Code: Select all  Expand view

DO WHILE ! oTxtFile:lEOF()
    cLinea := oTxtFile:ReadLine()
    FOR nVez := 1 TO LEN(cLinea)
        IF SUBSTR(cLinea,nVez,1) == "|"
            AADD(aTxt,cTxt)
            cTxt    := ""
        ELSE
            cTxt += SUBSTR(cLinea,nVez,1)
        ENDIF
    NEXT
    AADD(aTxt,cTxt)
    oTxtFile:Advance()
ENDDO
oTxtFile:END()
 

Con el código anterior estas leyendo los registros del archivo TXT y separando
cada línea en campos, solo te restaría grabar a Excel.

Saludos

Adhemar:

Por que no usas mi programa de contabilidad CONTXH32 para hacerlo.
Permite importar archivos TXT, en el formato definido por el SIN-BOLIVIA.
Una vez importados, generas el reporte que te permite generar archivos EXCEL.

Esta es la direccion de descarga de la ultima version:

http://www.sauro-sys.com/Program/SetupContXH32_v.2015.03.02.exe

puedes descargarlos sin compromiso, dura de 2 a 3 meses la prueba.

Atentamente,

Rolando
Cochabamba, Bolivia

Gracias amigos,

Lo probaré.

Saludos,

Adhemar

estimado:

lo que hago, es renombrar el archivo .TXT delimitado por "," (comas), a .CVS y con toleAuto() lo lanzo a Excel.

estoy buscando la función que hace esto.

espero que te sirva el Tips por mientras.

Saludos.