Ayuda para exportar una tabla...!
Hola, quiero exportar una tabla y lo hago con la siguiente
Instrucción:
COPY TO "c:WindowsEscritorioyayito.txt" DELIMITED WITH CHAR BLANK
Pero hay dos cosas que no puedo solucionar:
1- Los campos me salen encerrados entre comillas ("125.25") y yo
Quiero que los campos salgan sin comillas.
2- Quiero que las cantidades me salgan con ceros adelante (Por ejemplo así: 000125.25 en vez de así "125.25")
Espero que me puedas ayudar.
Alejandro Merlo
Instrucción:
COPY TO "c:WindowsEscritorioyayito.txt" DELIMITED WITH CHAR BLANK
Pero hay dos cosas que no puedo solucionar:
1- Los campos me salen encerrados entre comillas ("125.25") y yo
Quiero que los campos salgan sin comillas.
2- Quiero que las cantidades me salgan con ceros adelante (Por ejemplo así: 000125.25 en vez de así "125.25")
Espero que me puedas ayudar.
Alejandro Merlo
1 Respuesta
Respuesta de sixtored
1
En vez de usar el comando copy to vamos a HACER LOS SIG.
Suponemos una DBF con un campo 'campo_num N(7,2)' en el Área de Trabajo A...
SET DEVICE TO PRINTER
SET PRINTER TO c:yayito.txt
**** Esto te crea un archivo de Texto
Sele A
go top
DO WHILE not eof()
Straux=Transf(Str(campo_num,7,2),'@L9999.99')
i=1
Strnum=''
Do while i<=LEN(Straux)
If SubStr(straux,i,1)=' ' && Espacio
Strnum=Strnum+'0'&& cero
Else
Strnum=Strnum+SubStr(straux,i,1)
endIf
i=i+1
Enddo
Skip+1
enddo
SET DEVICE TO SCREEN
SET PRINTER TO
*** YA TIENES EL ARCHIVO *.TXT
Suponemos una DBF con un campo 'campo_num N(7,2)' en el Área de Trabajo A...
SET DEVICE TO PRINTER
SET PRINTER TO c:yayito.txt
**** Esto te crea un archivo de Texto
Sele A
go top
DO WHILE not eof()
Straux=Transf(Str(campo_num,7,2),'@L9999.99')
i=1
Strnum=''
Do while i<=LEN(Straux)
If SubStr(straux,i,1)=' ' && Espacio
Strnum=Strnum+'0'&& cero
Else
Strnum=Strnum+SubStr(straux,i,1)
endIf
i=i+1
Enddo
Skip+1
enddo
SET DEVICE TO SCREEN
SET PRINTER TO
*** YA TIENES EL ARCHIVO *.TXT
