FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Pasar .TXT a EXCEL
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Pasar .TXT a EXCEL
Posted: Wed Mar 04, 2015 08:46 PM

Amigos

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

Saludos,

Adhemar

Saludos,



Adhemar C.
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Pasar .TXT a EXCEL
Posted: Mon Mar 09, 2015 12:54 PM
Talvez:

Code (fw): Select all Collapse
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.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
jrestojeda
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Re: Pasar .TXT a EXCEL
Posted: Tue Mar 10, 2015 06:43 PM

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

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Pasar .TXT a EXCEL
Posted: Tue Mar 10, 2015 08:26 PM

Gracias amigos

Alguna idea de c贸mo?

Saludos,

Adhemar

Saludos,



Adhemar C.
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Pasar .TXT a EXCEL
Posted: Tue Mar 10, 2015 09:53 PM

Adhemar:

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

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Pasar .TXT a EXCEL
Posted: Tue Mar 10, 2015 10:48 PM

Armando,

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

Saludos,

Adhemar

Saludos,



Adhemar C.
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Pasar .TXT a EXCEL
Posted: Wed Mar 11, 2015 12:43 AM
Adhemar:

Va la idea:

1.- Abrir el archivo .TXT
Code (fw): Select all Collapse
oTxtFile = TTxtFile():New(cPathYNombreDeTuArchivo,0)


2.- Recorrer el archivo de principio a fin
Code (fw): Select all Collapse
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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
RSalazarU
Posts: 211
Joined: Wed Jul 16, 2008 12:59 PM
Re: Pasar .TXT a EXCEL
Posted: Wed Mar 11, 2015 03:28 PM
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
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Pasar .TXT a EXCEL
Posted: Wed Mar 11, 2015 03:35 PM

Gracias amigos,

Lo probar茅.

Saludos,

Adhemar

Saludos,



Adhemar C.
armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: Pasar .TXT a EXCEL
Posted: Fri Mar 13, 2015 11:42 AM

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.

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions