topic-17773

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

generar .txt
Posted: Tue Jan 05, 2010 10:06 PM

hola foro,
tengo en una base de datos 100 registros con los campos codigo1,codigo2,codigo3,importe, consecutivo y quiero generar esos registros en un layout en un .txt ej:

01 = codigo1
01 = codigo2
02 = codigo3
000150000 = importe ($1500.00)
0001 = consecutivo

milayout.txt
0101010001500000001 -> explicando el ejemplo de arriba
0101020001200000002
0102020001450000003
etc...

como lo puedo hacer?

espero haberme explicado
salu2
paco

____________________

Paco

derpipu

Posts: 94

Joined: Tue Mar 28, 2006 04:09 PM

Re: generar .txt
Posted: Tue Jan 05, 2010 11:59 PM

Hola Pancho
Yo asi lo haria...

Code (fw): Select all Collapse

function crea_txt()
  local ofile := nil
  local cCadena := "0101010001500000001"
  local cArchivo := "mylayout.txt"

  oFile := TTxtFile():New( cArchivo )
  if oFile:Open()
    oFile:Add( cCadena )
  endif

  oFile:End()

  if MsgYesNo("El proceso fue finalizado satisfactoriamente, desea abrir el archivo generado?", "Archivo Generado")
    SHELLEXECUTE( GetHWnd32( GetActiveWindow() ), "OPEN", cArchivo, "", "", 1 )
  endif

return(nil)

Espero que te sirva

Saludos

Luis Fernando Rubio Rubio

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Re: generar .txt
Posted: Thu Jan 07, 2010 07:17 AM

Gracias pipurru
funcionando
salu2
paco

____________________

Paco

Carlos Mora

Posts: 989

Joined: Thu Nov 24, 2005 03:01 PM

Re: generar .txt
Posted: Thu Jan 07, 2010 09:11 AM

Hola Paco,

Aunque llego un poco tarde, para usar Clipper/Harbour solamente y de un solo golpe, prueba a ver si te funciona

 COPY [FIELDS &lt;idField list&gt;] TO &lt;xcFile&gt;
    [&lt;scope&gt;] [WHILE &lt;lCondition&gt;] [FOR &lt;lCondition&gt;]
    [SDF | DELIMITED [WITH BLANK | &lt;xcDelimiter&gt;] |
    [VIA &lt;xcDriver&gt;]]

es decir:

COPY FIELDS codigo1,codigo2,codigo3,importe, consecutivo TO 'archivo.txt' SDF

Por ahí te sirve.

Un saludo

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Re: generar .txt
Posted: Mon Jan 11, 2010 02:08 PM

Gracias Carlos, tambien puede ser buena opcion
saludos
paco

____________________

Paco

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Re: generar .txt
Posted: Mon Jan 11, 2010 02:52 PM

Hola a todos.
También tarde pero tiro una más...
Otra opciión seria armar un Report TO File.

Saludos.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

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

Skype: jreduojeda

FiveTech Support Forums

Continue the discussion