ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Contar as linhas de um arquivo txt

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
joao_arthur
Profissional
Profissional


Registrado: Sexta-Feira, 10 de Novembro de 2006
Mensagens: 687
Localização: Fortaleza-CE
MensagemEnviada: Dom Set 30, 2007 6:15 pm    Assunto: Contar as linhas de um arquivo txt Responder com Citação
pessoal como faço para contar as linha de arquivo txt a mandar para uma variável antes de importa-lo?

grato
_________________
João Arthur.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
maxm.ro
Aprendiz
Aprendiz


Registrado: Sexta-Feira, 27 de Abril de 2007
Mensagens: 199
MensagemEnviada: Dom Set 30, 2007 6:39 pm    Assunto: testa ai... Responder com Citação
tenta usar isso ai:

Código:
VAr
Linhas : integer;
Lista: TStringList;


begin
    Lista := TStringList.Create;
    try
    Lista.LoadFromFile('C:\Arquivo.txt');
    Linhas:= Lista.Count;
    finally
      Lista.Free;
    end;
    Edit1.text := IntToStr(Linhas);
end;


não testei mas acho que pode funcionar....

vlw ...
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
joao_arthur
Profissional
Profissional


Registrado: Sexta-Feira, 10 de Novembro de 2006
Mensagens: 687
Localização: Fortaleza-CE
MensagemEnviada: Dom Set 30, 2007 6:51 pm    Assunto: Responder com Citação
ok maxm.ro perfeito queria jogar o valor das linha do arquivo PorgressBar.Max ficou assim:
Código:

var
  arq: textFile;
  linha: string;
  Lista: TStringList;
  Linhas: integer;
begin
  AssignFile(arq, 'c:\Fontes delphi\Produtos.txt');
  reset (arq);
  readLn (arq, linha);
  Lista := TStringList.Create;
    try
    Lista.LoadFromFile('c:\Fontes delphi\Produtos.txt');
    Linhas:= Lista.Count;
    ProgressBar1.Max:= lista.Count;
    finally
      Lista.Free;
    end;

  ProgressBar1.Position:= 0;
  while not eof (arq) do
    begin
      with IBQuery1 do
        begin
          SQL.Clear;
          SQL.Add('insert into produtos (prod_cod, prod_descricao, prod_codbarra)');
          SQL.Add(' values (:pCod, :pDescricao, :pCodBarra)');
          ParamByName('pCod').Value:= copy(linha,1,6);
          ParamByName('pDescricao').Value:= copy(linha,7,40);
          ParamByName('pCodBarra').Value:= copy(linha,57,15);
          ExecSQL;
          Readln(arq, linha);
          ProgressBar1.Position:= ProgressBar1.Position + 1;
        end;
    end;
    ShowMessage('Arquivo OK');
end;


grato cara pela ajuda té mais...
_________________
João Arthur.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB