mas pra o amigo que nao sabe como fazer, ja da pra começar, depois ele melhora a rotina como achar melhor... he he he he. valeu ----- Original Message ----- From: Andreano Lanusse To: delphi-br@yahoogrupos.com.br Sent: Sunday, August 20, 2006 2:17 PM Subject: RES: [delphi-br] Manipular arquivo texto no delphi
Eu sou totalmente contrário essa forma de leitura posicional....., só em último caso aconselho usar... Fazer a leitura e gravação dos arquivos através de Record é muito mais eficiente e torna muito mais fácil a manutenção. []'s Andreano Lanusse System Engineer - Development Tools <blocked::BLOCKED::http://info.borland.com.br/borcon> Tel.: +55 (11) 2165 - 8000 / Mobile: +55 (11) 8196-5912 <blocked::BLOCKED::http://info.borland.com.br/borcon> [EMAIL PROTECTED] <blocked::BLOCKED::mailto:[EMAIL PROTECTED]> - www.borland.com.br <blocked::BLOCKED::http://www.borland.com.br/> Blogs: http://blogs.borland.com/andreanolanusse <blocked::BLOCKED::http://blogs.borland.com/andreanolanusse> Artigos: http://bdn.borland.com <blocked::BLOCKED::http://bdn.borland.com/> ________________________________ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Leide Santinello Enviada em: Saturday, August 19, 2006 03:26 PM Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Manipular arquivo texto no delphi vc tera que ler o arquivo texto e com a função copy pegar o que quer para gravar em outro arquivo procedure TRecArquivo.BitBtn1Click(Sender: TObject); var Txt :TextFile; Entrada :String; Filtra :String[2]; Conv :String[2]; Numero :String; qtdmes :real; intconfirma : integer; begin Dados.Transferencia.Close ; Dados.Transferencia.Exclusive := true; Dados.Transferencia.Open ; Dados.Transferencia.EmptyTable ; Dados.Transferencia.Refresh ; //------------------------------------------------------------------------------- //------------------------------------------------------------------------------- if parc.Checked = true then begin Assignfile(txt,open.FileName); //Associando o nome do arquivo a variavel Textfile Reset(txt); //Abrindo o Arquivo que será utilizado While not Eoln(Txt) do begin label1.update ; label2.update ; label1.caption := 'Recebendo Arquivo' ; label2.caption := ' '; Readln(Txt,entrada); Dados.Transferencia.insert; Dados.TransferenciaCampo1.asstring := copy(entrada,01,33); Dados.TransferenciaConv.asstring := copy(entrada,63,2); Dados.TransferenciaMes.asstring := copy(entrada,65,2); Dados.TransferenciaCampo2.asstring := copy(entrada,63,10); Dados.TransferenciaGrupo.asstring := '0'+ copy(entrada,67,1); Dados.TransferenciaCodigo.asstring := copy(entrada,68,5); Dados.TransferenciaCampo3.asstring := copy(entrada,79,03); Dados.TransferenciaCampo4.asstring := copy(entrada,107,10); Dados.TransferenciaCampo5.asstring := copy(entrada,146,45); Dados.TransferenciaDTpagamento.asstring := copy(entrada,111,2)+'/'+copy(entrada,113,2)+'/'+copy(entrada,115,2); Dados.TransferenciaDtmovimento.asstring := copy(entrada,294,2)+'/'+copy(entrada,296,2)+'/'+copy(entrada,298,2); Dados.TransferenciaVL_AMAIOR.ASSTRING := COPY(entrada,237,4); Dados.TransferenciaVL_AMENOR.ASSTRING := COPY(entrada,276,4); if (copy(entrada,262,1) = '0') and (copy(entrada,262,2) = '0') then begin Dados.TransferenciaVl_recebido.asstring := copy(entrada,264,3); end; if copy(entrada,262,1) = '0' then begin Dados.TransferenciaVl_recebido.asstring := copy(entrada,263,4); end; if copy(entrada,262,1) <> '0' then begin Dados.TransferenciaVl_recebido.asstring := copy(entrada,262,5); end; Dados.Transferencia.post; end; //======================================================== //======================================================== Dados.Transferencia.Filter := 'Conv = ''82'''; Dados.Transferencia.Filtered := true ; label1.Update ; label1.Caption := 'Preparando para Verificação de Parcelas Únicas' ; p.MaxValue := Dados.Transferencia.RecordCount ; Dados.Transferencia.Indexname := '' ; Dados.Transferencia.First; While not Dados.Transferencia.Eof do begin if (Copy(Dados.TransferenciaCampo2.value,1,4) = '8277') OR (Copy(Dados.TransferenciaCampo2.value,1,4) = '8288') then begin Qualquer duvida entre em contato Leide Santinello ----- Original Message ----- From: Renan To: Delphi Br Sent: Saturday, August 19, 2006 3:17 PM Subject: [delphi-br] Manipular arquivo texto no delphi Como faço para manipular partes de um arquivo texto ??? gostaria de pegar alguns caracteres do arquivo e ir salvando em outro arquivo. alguem pode me ajudar ?? valeu [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] ------------------------------------------------------------------------------ No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.405 / Virus Database: 268.11.3/423 - Release Date: 18/08/2006 [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