Copy to arquivo.txt sdf

[carlos_dornelas]

Prezados,

Preciso gerar um .txt com base em um .dbf que contém um só campo com 100 caracteres. Esse campo tem preenchimento variável, ou seja, no primeiro registro consta 50 caracteres e os demais brancos; no segundo 80 caracteres e os demais brancos e assim até o final, com bastante variação da quantidade de caracteres em cada registro. Aqui vem a questão: preciso gerar o .txt com somente os caracteres, sendo um registro em cada linha, desprezando os espaços em branco à direita, quando houverem. Mas se eu utilizar o "copy to arquivo.txt sdf" é gerado, logicamente, todas as linhas com 100 posições! Alguèm teria uma dica?

Antonio Carlos

[DLZ]

Eu faria assim

Set device to printer
set printer on
Set printer to "Arquivo.txt"

use Meu_Dbf new
goto top
l:=0
do while !eof()
@ l,00 say Alltrim(meu_Dbf->campo)
l+=1
skip
enddo

Set printer off
set device to screen

[carlos_dornelas]

É isso aí mesmo DLZ!!

Certinho, como precisava.

Antonio Carlos