Imprimindo arquivo txt com variáveis.
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.
Curtidas 0
Respostas
Joel Rodrigues
10/08/2012
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.
GOSTEI 0
Deivison Melo
10/08/2012
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
GOSTEI 0
Cleverson.
10/08/2012
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í?
GOSTEI 0