Impressão com um espaço entre cada letra do campo a ser impr

[Fernando Borges]

Caros colegas, estou tentando fazer um relatorio de Seguro Desemprego, só que o formulario vem com traços entre uma posição e outra e para isso preciso acrescentar um espaço entre cada letra dos campos. Ex.: o nome do dispensado é "JOAQUIM GOMES DE MENESES" no formulario tem que ficar da seguinte forma: "J O A Q U I M G O M E S D E M E N E S E S". Nunca fiz este tipo de relatorio. Peço que me ajudem.

Fernando Borges.

[gransoft]

ARAGUARI-MG, 1. de outubro de 2004.

Prezado Fernando,

Verifique o exemplo:

Código: Selecionar todos

*
CLEAR
*
cNome := "JOAQUIM GOMES DE MENESES"
cN    := ""
*
FOR nI:=1 TO LEN(cNome)
  IF SUBSTR(cNome,nI,1) <> " "
     cN := cN + SUBSTR(cNome,nI,1) + " "
  END
NEXT
*
? cNome
? cN
*
QUIT
***

Atenciosamente,
Janis Peters Grants.

http://www.gransoft.com.br
gransoft@zipmail.com.br

[lima]

Caro Colega;

Aproveitando o código do Janis voce pode fazer da seguinte forma:=

cNome := "JOAQUIM GOMES DE MENESES"

cN := TRANSFORM(cNome,"@R "+REPLICATE("X ",LEN(cNome) ) )

Espero ter ajudado

Até +
Lima