FoxPro/Visual FoxPro - Ayuda con txt

 
Vista:

Ayuda con txt

Publicado por javier (33 intervenciones) el 08/10/2008 00:18:00
Necesitaria saber como pasar a UN SOLO ARCHIVO TXT los datos provenientes de tres tablas distintas con distintos campos cada una, en la cual cada fila de cada tabla sea una fila del archivo TXT. Aca va un ejemplo

tabla1.campo1, tabla1.campo2, tabla1.campo3
tabla2.campo1, tabla2.campo2
tabla3.campo1, tabla3.campo2,tabla3.campo3,tabla3.campo4
tabla3.campo1, tabla3.campo2,tabla3.campo3,tabla3.campo4
tabla3.campo1, tabla3.campo2,tabla3.campo3,tabla3.campo4
tabla3.campo1, tabla3.campo2,tabla3.campo3,tabla3.campo4
{......}

Actualmente estoy usando el comando copy to para pasar a txt pero no puedo hacerlo para 3 tablas.

Gracias
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

RE:Ayuda con txt

Publicado por Luighi (105 intervenciones) el 09/10/2008 03:45:42
sean las siguientes tablas:

tabla1, con 3 registros y 2 campos
tabla2, con 2 registros y 1 campo, y
tabla3, con 4 registros y 3 campos

siendo así,
supongo que lo que deseas en un txt es lo siguiente:

tabla1.registro1.campo1, tabla1.registro1.campo2
tabla2.registro1.campo1
tabla3.registro1.campo1, tabla3.registro1.campo2, tabla3.registro1.campo3
tabla1.registro2.campo1, tabla1.registro2.campo2
tabla2.registro2.campo1
tabla3.registro2.campo1, tabla3.registro2.campo2, tabla3.registro2.campo3
tabla1.registro3.campo1, tabla1.registro3.campo2
tabla3.registro3.campo1, tabla3.registro3.campo2, tabla3.registro3.campo3
tabla3.registro4.campo1, tabla3.registro4.campo2, tabla3.registro4.campo3

entonces el código en bruto sería:

****
clos data
use tabla1
use tabla2 in 0
use tabla3 in 0
****
set prin to salida.txt
set prin on
****
do while .t.
****
if !eof()
? campo1, campo2
skip
endif
sele tabla2
if !eof()
? campo1
skip
endif
sele tabla3
if !eof()
? campo1, campo2, campo3
skip
endif
sele tabla1
if eof() and eof('tabla2') and eof('tabla3')
exit
endif
****
enddo
****
set prin off
set prin to
clos data
****

finalmente, en la ventana de comandos,
para ver el resultado tan sólo escribes:

modi comm salida.txt
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