PC Toledo

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

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

É isso aí mesmo DLZ!!

Certinho, como precisava.

Antonio Carlos