Fórum Imprimindo arquivo txt com variáveis. #421393
10/08/2012
0
Bom dia pessoal,
Como faço para imprimir arquivos txt com variáveis, tipo, imprimir um pedido de venda e configurar os campos no próprio txt?
Como faço para imprimir arquivos txt com variáveis, tipo, imprimir um pedido de venda e configurar os campos no próprio txt?
Cleverson.
Curtir tópico
+ 0
Responder
Posts
10/08/2012
Joel Rodrigues
Uma ideia é você colocar campos no texto como parâmetros, por exemplo:
Conteúdo do arquivo:
No Delphi, você carregaria o texto e usaria o StrRplace para substituir os parâmetros pelos devidos valores.
Conteúdo do arquivo:
Cliente: @CLIENTE Pedido: @PEDIDO Data: @DATA
No Delphi, você carregaria o texto e usaria o StrRplace para substituir os parâmetros pelos devidos valores.
Responder
Gostei + 0
10/08/2012
Deivison Melo
Boa tarde,
Já tentou com o word?
Abaixo tem um link de uma solução parecido, mas com o word
https://www.devmedia.com.br/recibo-de-pagamento-integrando-delphi-com-word/22821
Já tentou com o word?
Abaixo tem um link de uma solução parecido, mas com o word
https://www.devmedia.com.br/recibo-de-pagamento-integrando-delphi-com-word/22821
Responder
Gostei + 0
10/08/2012
Cleverson.
Eu fiz assim:
procedure TForm1.Button1Click(Sender: TObject);
var
f:TextFile;
t:string;
begin
AssignFile(f,c:\pedido.text);
reset(f);
while not Eof(f) do
begin
Readln(f,t);
fnControlR(t,NF-RAZAOSOCIAL%,CME);
Write(f,t);
end;
CloseFile(f);
end;
function TForm1.fnControlR(Texto, Busca, Troca: String): String;
begin
result := StringReplace( Texto , Busca, Troca, [rfreplaceAll]);
end;
O que está errado aí?
procedure TForm1.Button1Click(Sender: TObject);
var
f:TextFile;
t:string;
begin
AssignFile(f,c:\pedido.text);
reset(f);
while not Eof(f) do
begin
Readln(f,t);
fnControlR(t,NF-RAZAOSOCIAL%,CME);
Write(f,t);
end;
CloseFile(f);
end;
function TForm1.fnControlR(Texto, Busca, Troca: String): String;
begin
result := StringReplace( Texto , Busca, Troca, [rfreplaceAll]);
end;
O que está errado aí?
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)