RES: [delphi-br] Gerar Arquivo .txt
Bom, estou respondendo pensando em termos de programação, não de Delphi,
por isso se não estiver correto, descupe-me.
Tente isso:
1)Crie dois objetos 'TSQLQUERY': um para tabela mestre e outra para
detalhe.
2) pesquise a informação que vc deseja da tabela mestre.
3) para cada item da tabela mestre faça uma pesquisa na tabela itens.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de MarcioCC
Enviada em: terça-feira, 4 de setembro de 2007 09:32
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Gerar Arquivo .txt
Pessoal é o seguinte to tentando gerar um arquivo texto entre uma
tabela Pai e Filha (Master/Detail) da seguinte maneira:
AssignFile(F,'C:\GerConv\DrogariaNovaCampina.txt');
Rewrite(F);
TabGlobal.DTB_LOTE.First;
While not TabGlobal.DTB_LOTE.Eof do
begin
StrLinhaLote :=
(TabGlobal.DTB_LOTE.CONSTANTE.Conteudo)+(TabGlobal.DTB_LOTE.CONSTANTE_LO
TE.Conteudo)+FormatFloat('0',campointeiro)+IntToStr(campointeiro2)+F
ormatfloat('000',campointeiro3)+FormatFloat('000',campointeiro4)+IntToSt
r(campointeiro5)+FormatFloat('00',campointeiro6)+FormatFloat('00',campoi
nteiro7)+FormatFloat('',campointeiro8)+IntToStr(campointeiro9)+I
ntToStr(campointeiro10)+(TabGlobal.DTB_LOTE.TOTAL_REG_INFO.Conteudo)+(Ta
bGlobal.DTB_LOTE.SOMA_MATR_INFOR.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_EV_I
NFOR.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_UN_INFOR.Conteudo)+(TabGlobal.DT
B_LOTE.SOMA_VAL_INF.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_TOT_INFOR.Conteud
o)+(TabGlobal.DTB_LOTE.SOMA_VAL_INF.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_T
OT_INFOR.Conteudo)+(TabGlobal.DTB_LOTE.FILLER.Conteudo)+(TabGlobal.DTB_L
OTE.CONSTANTE_1.Conteudo);
Writeln(F, strLinhaLote);
TabGlobal.DTB_MOV_ITENS.First;//adicionei agora
// TabGlobal.DTB_LOTE.next; //tirei agora
/// TabGlobal.DTB_MOV_ITENS.next;
// TabGlobal.DTB_MOV_ITENS.First;
While not TabGlobal.DTB_MOV_ITENS.Eof do
begin
strLinhaMov_Item := (TabGlobal.DTB_MOV_ITENS.CONSTANTE.Conteudo) +
(TabGlobal.DTB_MOV_ITENS.CONST_LOTE.Conteudo) +
FormatFloat('0',campointeiro11)+
IntToStr(campointeiro12) +
Formatfloat('000',campointeiro13) +
FormatFloat('000',campointeiro14) +
(TabGlobal.DTB_MOV_ITENS.COD_CAT_SAL.Conteudo)
+
FormatFloat('00',campointeiro16) +
FormatFloat('00',campointeiro17) +
FormatFloat('',campointeiro18) +
IntToStr(campointeiro19) +
IntToStr(campointeiro20) +
FormatFloat('',campointeiro21) +
IntToStr(campointeiro22) +
FormatFloat('00',campointeiro23) +
FormatFloat('000',campointeiro24) +
(TabGlobal.DTB_MOV_ITENS.FILLER.Conteudo) +
(TabGlobal.DTB_MOV_ITENS.CONSTANTE_FIM.Conteudo);
Writeln(F, strLinhaMov_Item);
TabGlobal.DTB_MOV_ITENS.next;
///TabGlobal.DTB_LOTE.next;
end;
TabGlobal.DTB_LOTE.next;
end;
CloseFile(F);
end;
Ta gerando tudo certinho mais ta acontecendo o seguinte nos dados
inclusos no .txt:
mvtolote000441002001007200704571900
0
mvtolote000162002001004571909894650
mvtolote000441002001007200704571900
0
mvtolote000162002001004571909894650
Tenho 2 registros na tabela pai e 2 registros na tabela filha sendo
eles:
TABELA PAI = 00044 e 00045
TABELA FILHA = 00016 e 00017
Notem que ta duplicando o registro pai e filha da tabela,e os registros
00045 e 00017 não estão vindo , o que estou fazendo de errado por favor
me ajudem ...
JESUS TE AMA !!!
MarcioCC®
**
Itabyte Tecnologia® - www.itabyte.com
Analista/Programador - For Delphi
MSN : [EMAIL PROTECTED]
SKYPE : itabytetec
Fone : 15-3524-1946
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
[delphi-br] Gerar Arquivo .txt
Pessoal é o seguinte to tentando gerar um arquivo texto entre uma tabela Pai e
Filha (Master/Detail) da seguinte maneira:
AssignFile(F,'C:\GerConv\DrogariaNovaCampina.txt');
Rewrite(F);
TabGlobal.DTB_LOTE.First;
While not TabGlobal.DTB_LOTE.Eof do
begin
StrLinhaLote :=
(TabGlobal.DTB_LOTE.CONSTANTE.Conteudo)+(TabGlobal.DTB_LOTE.CONSTANTE_LOTE.Conteudo)+FormatFloat('0',campointeiro)+IntToStr(campointeiro2)+Formatfloat('000',campointeiro3)+FormatFloat('000',campointeiro4)+IntToStr(campointeiro5)+FormatFloat('00',campointeiro6)+FormatFloat('00',campointeiro7)+FormatFloat('',campointeiro8)+IntToStr(campointeiro9)+IntToStr(campointeiro10)+(TabGlobal.DTB_LOTE.TOTAL_REG_INFO.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_MATR_INFOR.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_EV_INFOR.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_UN_INFOR.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_VAL_INF.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_TOT_INFOR.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_VAL_INF.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_TOT_INFOR.Conteudo)+(TabGlobal.DTB_LOTE.FILLER.Conteudo)+(TabGlobal.DTB_LOTE.CONSTANTE_1.Conteudo);
Writeln(F, strLinhaLote);
TabGlobal.DTB_MOV_ITENS.First;//adicionei agora
// TabGlobal.DTB_LOTE.next; //tirei agora
/// TabGlobal.DTB_MOV_ITENS.next;
// TabGlobal.DTB_MOV_ITENS.First;
While not TabGlobal.DTB_MOV_ITENS.Eof do
begin
strLinhaMov_Item := (TabGlobal.DTB_MOV_ITENS.CONSTANTE.Conteudo) +
(TabGlobal.DTB_MOV_ITENS.CONST_LOTE.Conteudo) +
FormatFloat('0',campointeiro11)+
IntToStr(campointeiro12) +
Formatfloat('000',campointeiro13) +
FormatFloat('000',campointeiro14) +
(TabGlobal.DTB_MOV_ITENS.COD_CAT_SAL.Conteudo) +
FormatFloat('00',campointeiro16) +
FormatFloat('00',campointeiro17) +
FormatFloat('',campointeiro18) +
IntToStr(campointeiro19) +
IntToStr(campointeiro20) +
FormatFloat('',campointeiro21) +
IntToStr(campointeiro22) +
FormatFloat('00',campointeiro23) +
FormatFloat('000',campointeiro24) +
(TabGlobal.DTB_MOV_ITENS.FILLER.Conteudo) +
(TabGlobal.DTB_MOV_ITENS.CONSTANTE_FIM.Conteudo);
Writeln(F, strLinhaMov_Item);
TabGlobal.DTB_MOV_ITENS.next;
///TabGlobal.DTB_LOTE.next;
end;
TabGlobal.DTB_LOTE.next;
end;
CloseFile(F);
end;
Ta gerando tudo certinho mais ta acontecendo o seguinte nos dados inclusos no
.txt:
mvtolote0004410020010072007045719000
mvtolote000162002001004571909894650
mvtolote0004410020010072007045719000
mvtolote000162002001004571909894650
Tenho 2 registros na tabela pai e 2 registros na tabela filha sendo eles:
TABELA PAI = 00044 e 00045
TABELA FILHA = 00016 e 00017
Notem que ta duplicando o registro pai e filha da tabela,e os registros 00045 e
00017 não estão vindo , o que estou fazendo de errado por favor me ajudem ...
JESUS TE AMA !!!
MarcioCC®
**
Itabyte Tecnologia® - www.itabyte.com
Analista/Programador - For Delphi
MSN : [EMAIL PROTECTED]
SKYPE : itabytetec
Fone : 15-3524-1946
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Gerar arquivo txt no D2005 / ASP.NET
Eu de novo, alguém sabe como gerar arquivos txt no D2005 em aplicações ASP.NET? Grato Murillo Proença -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Gerar arquivo txt no D2005 / ASP.NET
Murilo você pode usar da mesma forma que fazia em Win32 através dos assemblies da VCL.NET []'s Andreano Lanusse System Engineer Borland Latin America Tel: +55 (11) 2165.8089 / Mobile: +55 (11) 8196.5912 [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] - www.borland.com.br blocked::http://www.borland.com.br/ A Borland Software é líder global em soluções independentes de plataforma para o Software Delivery Optimization, auxiliando nossos clientes a resolverem as restrições no desenvolvimento de aplicações nos dias de hoje, para maximizar o valor do negócio de seu software. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Murillo Proença Enviada em: quarta-feira, 25 de janeiro de 2006 14:06 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Gerar arquivo txt no D2005 / ASP.NET Eu de novo, alguém sabe como gerar arquivos txt no D2005 em aplicações ASP.NET? Grato Murillo Proença -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE http://br.rd.yahoo.com/SIG=12fcc7s6r/M=393477.7870451.8719931.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1138212455/A=3254979/R=0/id=noscript/SIG=12k5j3olb/*http://www.momentumquiz.com.br/index.php?md5ref=372BBEE98E9544bd8B2F9E87847EEEBE_3 Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Gerar arquivo txt
Tente usar da seguinte forma:
procedure AddLog;
var
log: textfile;
begin
try
AssignFile(log, 'c:\log.log');
if not FileExists('c:\log.log') then Rewrite(log,'c:\log.log');
Append(log);
WriteLn(log, 'informações a serem inclusas');
finally
CloseFile(log);
end;
end;
- Original Message -
From: Anderson A. Lima
Sent: Tuesday, November 22, 2005 3:32 PM
Subject: [delphi-br] Gerar arquivo txt
Olá pessoal,
preciso gerar um arquivo txt com as informações de um campo de uma
tabela (paradox)...
Tentei fazer com o codigo abaixo mas não consegui...alguém pode me ajudar?
PS: Obrigado aos amigos pela dica do instalador, muito bom o progama
(Inno setup) :)
--
DM.tConjTeste.First;
while not DM.tConjTeste.Eof do
begin
Writeln(DM.tParametrosArquivoRetorno.Text,DM.tConjTestePerfil.Text);
DM.tConjTeste.Next;
end;
SaveDialog1.FileName := DM.tParametrosArquivoRetorno.Text;
--
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Gerar arquivo txt
Olá pessoal, preciso gerar um arquivo txt com as informações de um campo de uma tabela (paradox)... Tentei fazer com o codigo abaixo mas não consegui...alguém pode me ajudar? PS: Obrigado aos amigos pela dica do instalador, muito bom o progama (Inno setup) :) -- DM.tConjTeste.First; while not DM.tConjTeste.Eof do begin Writeln(DM.tParametrosArquivoRetorno.Text,DM.tConjTestePerfil.Text); DM.tConjTeste.Next; end; SaveDialog1.FileName := DM.tParametrosArquivoRetorno.Text; -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Gerar arquivo txt
preciso gerar um arquivo txt com as informações de um campo de uma tabela (paradox)... Tentei fazer com o codigo abaixo mas não consegui...alguém pode me ajudar? DM.tConjTeste.First; while not DM.tConjTeste.Eof do begin Writeln(DM.tParametrosArquivoRetorno.Text,DM.tConjTestePerfil.Text); DM.tConjTeste.Next; end; SaveDialog1.FileName := DM.tParametrosArquivoRetorno.Text; Ihhh, que confusao! Teste com algum arquivo 'teste.txt'. A proposito, vc abriu o arquivo com assignFile()? A manipulacao de arquivo texto se da atraves de um handle, o qual é gerado pelo assignfile. Tipo assim: digita assignfile e tecle F1 em cima da palavra. Dae, o help diz o resto. E porque o SaveDialog1? Alencar --- Philler Informatica Ltda Jose Alencar Philereno ICQ 13458351 Messenger/Skype (voz): alencar Feliz aquele que transfere o que sabe e aprende o que ensina Cora Coralina -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Gerar arquivo Txt
Olá, boa noite... Pessoal, eu preciso gerar um arquivo Txt e, alguém pode me mandar um exemplo do código para fazer isto, eu não lembro agora, e precisava do mais rápido possível... Desde já... Obrigado... Cleber. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
