Espaços em Branco.

Marcos · Mensagem por **Marcos** » 15 Dez 2005 08:23

Saudações,
Estou fazendo uma espécie de Declaração em meu sistema, assim, não sei como preencher os espaços em branco, tipo:

Eu, MARCOS ANTÔNIO DA SILVA, residente e domiciliado a rua DOS CISNES, 155 no bairro RESIDENCIAL ANA PAULA, ...

Nesta frase ficará com espaços em branco se o Nome, Rua e o Bairro forem menor que o informado, tipo:

Eu, MARCOS FILHO DA SILVA , residente e domiciliado a rua CINCO
, 155 no bairro JUNCO ,...

Não sei se foi claro, mas o problema é este, alguém poderia me ajudar?
Abraços,
Marcos.

MARCELOG · Mensagem por **MARCELOG** » 15 Dez 2005 08:39

Caro Marcos,
crie as variáveis com as informações (se elas não constarem do arquivo), e insira as mesmas no texto a ser impresso ou gravado em disco.

Exemplo rudimentar:

SET PRINTER TO cNomeArquivo

? "EU "+cNome+","+cEndereco...

SET PRINTER TO

Espero ter ajudado.

MGS

PS: veja a seção de downloads: cartas ou mala-direta, você vai encontrar exemplos completos.

Mensagem por **anacatacombs** » 15 Dez 2005 09:07

A função ALLTRIM() retira os espaços em branco em volta da string.
Antes e depois.
acho que isso resolve seu problema.

[]'s
Ana

Marcos · Mensagem por **Marcos** » 15 Dez 2005 12:20

Como usar a Função ALLTRIM() antes e depois?

Antonio · Mensagem por **Antonio** » 15 Dez 2005 12:33

Marcos escreveu:Como usar a Função ALLTRIM() antes e depois?

Código: Selecionar todos

SET PRINTER TO cNomeArquivo 

? "EU "+ALLTRIM(cNome)+", "+ALLTRIM(cEndereco) + "... "

SET PRINTER TO

Mensagem por **rochinha** » 15 Dez 2005 12:44

Amiguinho

Veja este exemplo mais legal:

cFrase := "Eu, <NOME>, residente e domiciliado a rua <ENDERECO> no bairro <BAIRRO>, ... "

use CLIENTES
go top
do while .not. eof()
cNome := CLIENTES->nome
cEndereco := CLIENTES->endereco
cBairro := CLIENTES->bairro
cFrase := StrTran( cFrase, "<NOME>", cNome )
cFrase := StrTran( cFrase, "<ENDERECO>", cEndereco )
cFrase := StrTran( cFrase, "<BAIRRO>", cBairro )
set printer on
set device to printer
? cFrase
eject
set device to screen
set printer off
enddo
close data

Desta forma suas cartas serão impressas com mesmo conteudo para dados diferentes.

Isto é chamado de MailMerge.

@braços :?)

Mensagem por **rochinha** » 15 Dez 2005 12:46

Amiguinho

Veja este exemplo mais legal:

cFrase := "Eu, <NOME>, residente e domiciliado a rua <ENDERECO> no bairro <BAIRRO>, ... "

use CLIENTES
go top
do while .not. eof()
cNome := CLIENTES->nome
cEndereco := CLIENTES->endereco
cBairro := CLIENTES->bairro
cFrase := StrTran( cFrase, "<NOME>", cNome )
cFrase := StrTran( cFrase, "<ENDERECO>", cEndereco )
cFrase := StrTran( cFrase, "<BAIRRO>", cBairro )
set printer on
set device to printer
? cFrase
eject
set device to screen
set printer off
enddo
close data

Desta forma suas cartas serão impressas com mesmo conteudo para dados diferentes.

Isto é chamado de MailMerge.

@braços :?)

Mensagem por **rochinha** » 15 Dez 2005 12:47

Amiguinho

Veja este exemplo mais legal:

cFrase := "Eu, <NOME>, residente e domiciliado a rua <ENDERECO> no bairro <BAIRRO>, ... "

use CLIENTES
go top
do while .not. eof()
cNome := CLIENTES->nome
cEndereco := CLIENTES->endereco
cBairro := CLIENTES->bairro
cFrase := StrTran( cFrase, "<NOME>", cNome )
cFrase := StrTran( cFrase, "<ENDERECO>", cEndereco )
cFrase := StrTran( cFrase, "<BAIRRO>", cBairro )
set printer on
set device to printer
? cFrase
eject
set device to screen
set printer off
enddo
close data

Desta forma suas cartas serão impressas com mesmo conteudo para dados diferentes.

Isto é chamado de MailMerge.

@braços :?)

Marcos · Mensagem por **Marcos** » 16 Dez 2005 15:45

Obrigado a todos pela ajuda, adotei a o ALLTRIM() sugerido pelo Antonio e Ana, meus problemas acabaram!
Abraços,
Marcos.

Marcos · Mensagem por **Marcos** » 16 Dez 2005 17:00

Colegas, o problema do espaço em branco foi resolvido, o que eu gostaria de fazer é Justificar o texto escrito.
Alguém pode me ajudar?
Marcos.

Marcos · Mensagem por **Marcos** » 16 Dez 2005 17:27

Colegas, o problema do espaço em branco foi resolvido, o que eu gostaria de fazer é Justificar o texto escrito.
Alguém pode me ajudar?
Marcos.

C Leonam · Mensagem por **C Leonam** » 16 Dez 2005 23:28

Tente a função abaixo (foi descompilada de um antigo programa)

Código: Selecionar todos

*+²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²
*+
*+    Functions: Function IMPAC()
*+
*+    Reformatted by Click! 2.03 on Dec-16-2005 at 10:12 pm
*+
*+²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²

#include "common.ch"
#include "inkey.ch"

// *******************************

*+±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
*+
*+    Function IMPAC()
*+
*+   Arg1 = Texto a alinhar
*+   Arg2 = Linha (se for imprimir ou NIL para nao)
*+   Arg3 = Coluna (se for imprimir ou NIL para nao)
*+   Arg4 = Se passado .T. alinha o texto
*+
*+±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
*+
FUNCTION IMPAC(Arg1,Arg2,Arg3,Arg4)

   LOCAL Local1 := "aeioucAEIOUC"
   LOCAL Local2 := " ‚¡¢£‡

Marcos · Mensagem por **Marcos** » 17 Dez 2005 08:36

Obrigado C Leonam, mas a função não é a que precisava, pelo menos não consegui usa-la, ela não justifica o texto, aceito ajuda ainda!

Mensagem por **Stanis Luksys** » 18 Dez 2005 15:24

Vamos lá,

Para justificar em impressão no modo DOS, não há outro jeito senão colocar espaços em brancos no meio das palavras e frases, por exemplo:

Digamos que vc tem 30 colunas para escrever STANIS LUKSYS (13 Col.), vc vai ter que improvisar algo do tipo:

S T A N I S L U K S Y S

A mesma coisa serve para o resto da linha... Apesar de parecer estranho é uma técnica comum e na impressão final não fica tão ruim...

Então aí vai de improviso:

Código: Selecionar todos

Function Justifica( cTexto, nTamanhoLinha  )

do while len(cTexto) < nTamanhoLinha

  cTexto := Stuff( cTexto,  rat( space(1), cTexto  ), 1,  space(2) ) 

enddo

return cTexto

Traduzindo: Pesquisa no texto a ocorrencia de space(1) e transforma em space(2) enquanto o tamanho do texto não atingir o numero máximo passado como paramentro...

Bem, não sei se funciona por que não testei... hehehe....

Um erro que pode vir a acontecer é que a função pegue onde ja tem "__" e coloque mais um ainda, pois ele ta procurando o espaço em branco, e dois espaçoes em branco obviamente possuem UM dentro...

Com um mínimo de esforço da pra corrigir isso aí, mas este exemp´lo foi só pra tomar como base... É por aí o caminho...

Poka · Mensagem por **Poka** » 18 Dez 2005 21:08

Prezado colega

Compile esse exemplo e veja se resolve o seu caso.

set scor off
fl=chr(13)+chr(10) // fim de linha
arquivo:="cadTexto.dbf"
if .not. file(arquivo)
dbcreate ( "&arquivo" , { { "historico" , "m" ,10 ,0}})
endif
use cadtexto
if recco()=0
appe blank
endif
cls
@ maxrow(),00 say "Control + W grava e sai "
set cursor on
vhistorico:=historico
l1:=09;c1:=04;l2:=maxrow()-5;c2:=76
set color to w/r
@ l1,c1 to l2,c2
vhistorico:=memoedit(vhistorico,l1+1,c1+1,l2-1,c2-1)
//
ajustaHis(@vhistorico,70)
//
repla cadtexto->historico with vhistorico
close cadtexto
cls
retu nil
/////////////////
funct ajustaHis(xhistorico,xlargura)
local contlin,texto,falta:=0,vhistorico
// justifica a direita
// obs: se a linha terminar com ponto nao justifica
contlin=mlcount(xhistorico,xlargura)
if contlin=0
retu .t.
endif
vhistorico:=""
for a=1 to contlin
texto:=trim(memoline(xhistorico,xlargura,a))
IF .NOT. EMPTY(TEXTO)
margemE:=len(texto)-len(ltrim(texto))
falta:=xlargura-len(texto)
// verifica a quantidade de ocorrencias dessa linha
if right(texto,1)#"." .and. falta>0
texto:=strtran(alltrim(texto)," "," ","",falta)
CONTA:=0
do while margeME+len(texto)<xlargura .AND. CONTA<XLARGURA
texto:=strtran(alltrim(texto)," "," ",1,1)
CONTA++
enddo
vhistorico+=space(MargemE)+texto+fl
else
vhistorico+=texto+fl
endif
ELSE
vhistorico+=texto+fl
ENDIF
next
xhistorico:=vhistorico
retu .t.

Um abraço

Poka