Gerar arquivo TXT, sendo que o nome do mesmo seja variavel

[MGALDINO]

Prezados,

Estou com a seguinte dificuldade.
Tenho um dbf com o campo CODIGO. Estava precisando que ao invés de utilizar o comando: "SET PRINTER TO ARQUIVO.TXT", utilizar
uma forma que a parte do comando: "ARQUIVO" seja uma variável (EX. XCODIGO) em que o arquivo TXT gerado teria como nome o codigo
do cliente.
Ex. arquivo dbf
codigo nome
1 antonio da silva
2 manoel andrade
3 jose manoel

gerar 3 arquivos txt: 1.txt
2.txt
3.txt

[ANDRIL]

Supondo que seu campo no DBF seja CODIGO e quer montar um TXT para cada registro usando o campo CODIGO para compor o nome do TXT, ficaria assim:

Código: Selecionar todos

*--monta o nome usando o campo codigo, veja que o tamanho do nome nao pode
*--passar de 8x3, 8 antes da extensao e 3 da extensao, pois o clipper nativamente
*--nao trabalha com nomes cumpridos.
nomarq="TX"+padl(CODIGO,6,"0")+".TXT" 

*--este comando cria o arquivo com o nome codigo dinamico
set printer to "&nomarq"

Ate+

[Toledo]

Segue um outro exemplo:

Código: Selecionar todos

use Arquivo
do while !eof()
 xCodigo:=codigo  
 cNome:=nome
 cArq:=Alltrim(str(xCodigo))+".txt"
 Set Printer to (cArq)
 Set device to print
 @ 0,0 say cNome
 Set Printer to
 Set device to screen
 Skip
enddo

Abraços,

[MGALDINO]

Toledo,

Fiz como informado e deu tudo certo. Valeu!!


Abraços