Conteúdo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Fundo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Desenho: Liso Onda Linha Retalho Madeira Rocha Couro Colméia Vertical Triângulo
Bem-vindo ao Fórum do BABOO!

Desde 2000 o Fórum do BABOO tem ajudado milhões de internautas de Windows a resolverem seus problemas e dúvidas, além de ajudar na remoção de vírus e malwares de seus computadores. Somos o único fórum brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows, então se você tem uma dúvida ou problema que nenhum outro fórum resolve, poste-a aqui pois o MVP Babooadora desafios!
  

O Fórum do BABOO também conta com a participação exclusiva do administrador da área de Segurança MVP Mr.Million que tem reconhecimento internacional da Microsoft pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Se o seu computador está infectado por algum vírus, ele te ajudará a removê-lo!
  

Nosso time de especialistas também inclui Patropi  Osvaldomp  Caze  Ciro-Mota  XERLOUCO ROUMS  Tatha que responderão suas dúvidas sobre diversos assuntos.
 

Participe da nossa comunidade! 

Entre para seguir isso  
Seguidores 0
Gary

como ler um arquivo texto no delphi?

6 posts neste tópico

oi gente blz?

seguinte.. eu não mexo com delphi, mas esse periodo na facul eu estou tendo análise e projeto de sistemas II, dae o professor está pedindo uma aplicação em delphi que tem de fazer o seguinte:

abrir um arquivo texto.

contar quantas linhas tem

e após a ultima linha inserir o comentário " total de linhas=" +total_de_linhas;

e salvar este arquivo assim.

bom.. minha dúvida é como fazer para abrir o arquivo texto..

tem no delphi akela " textarea" ?

da para carregar o arquivo la?

e como no caso eu pularia de uma linha para outra....

até aí eu acho que tenho algumas idéias para tentar lá em casa

o problema é como fazer para salvar esse arquivo, pois realmente não sei nada em delphi.. valeu!

Compartilhar este post


Link para o post
Compartilhar em outros sites

----------------

Gary escreveu:


oi gente blz?

seguinte.. eu não mexo com delphi, mas esse periodo na facul eu estou tendo análise e projeto de sistemas II, dae o professor está pedindo uma aplicação em delphi que tem de fazer o seguinte:

abrir um arquivo texto.

contar quantas linhas tem

e após a ultima linha inserir o comentário ' total de linhas=' +total_de_linhas;

e salvar este arquivo assim.

bom.. minha dúvida é como fazer para abrir o arquivo texto..

tem no delphi akela ' textarea' ?

da para carregar o arquivo la?

e como no caso eu pularia de uma linha para outra....

até aí eu acho que tenho algumas idéias para tentar lá em casa

o problema é como fazer para salvar esse arquivo, pois realmente não sei nada em delphi.. valeu!


----------------


O arquivo texto tem delimitadores de campos? Como espaços, pontos e virgulas??
se sim você pode fazer uma procedure de leitura do arquivo e verificar se ele encontra esse delimitador de campo, se encontrou ele incrementa o campo, depois é só posicionar no fim do arquivo e incluir o total de linhas.

EDIT: Procedure não, function. 4.gif

"A informação é a redução da dúvida"

Claude Shannon

18724-assinatura6.jpg

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olha, não sei exatamente se é isso que você quer, mas você pode fazer assim:

procedure TXT;

var

str: TStringList;

i : integer;

begin

str := TStringList.Create;

try

str.LoadFromFile({caminho do seu txt});

for i:= 0 to str.Count-1 do

str := str + ´ - ´ +IntToStr9.gif;

finally

//você PODE COLOCAR UM MEMO NO FORMULARIO E ATRIBUIR A ELE O RESULTADO FINALMEMO1.addStrings(Str);

str.free;

end;

end;

Eu não testei, mas ele passa o txt todo e no fim da linha coloca qtas linhas se passaram.

Espero ter ajudado


21872-iluvatar_novo.jpg

Compartilhar este post


Link para o post
Compartilhar em outros sites

gente.. é bem por ae mesmo.

o lance é um pouco mais complexo.. mas acho que por esse exemplo eu vou tentar..

hj a noite quando voltar da faculdade vou tentar dar uma olhada..

agora estou no serviço, não tem delhpi aki.

bom..

qto aos delimitadors.. na verdade tem sim

tipo.. depois explico com mais calma o que na verdae é a aplicaçãozinha.. mas por hora agradeço vcs..

e dexa só eu perguntar..

o cara quer que grave essas alterações no próprio arquivo que a gente selecionou...

e ae? como faz isso?

alguém tem idéia?

Compartilhar este post


Link para o post
Compartilhar em outros sites

bom..testei lá em casa ontem e acabei fazendo algo diferente..

pq a coisa é um pouco mais complexa..

dai meu problema e´ escrever no arquivo..

uma parte do programa está assim

AssignFile(arqtxt,'texto.txt');

Reset(arqtxt);

totalLinha:=0;

while not Eof(arqtxt) do

begin

Readln(arqtxt, linha);

Memo1.Text :=Memo1.Text+ linha;

totalLinha:=totalLinha+1;

end;

ta... o problema é que o programa so está rodando se eu abro em modo de leitura (com o reset) ou zerando o arquivo(rewrite) e eu preciso acrescentar no final dele, o total de linhas..

tentei o Append(arqtxt), mas não deu

Compartilhar este post


Link para o post
Compartilhar em outros sites

blz gente.. dei uma lida no help e consegui algo assim

memo1.strings.savetofile('c:texte.txt');

ou memo1.lines.save

nao me lembro

é que testei num computador agora a poco aqui que tinha delf..

consegui o que precisava

valeu a todos que ajudaram!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Responda via Facebook

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora
Esse tópico é útil para você?
Então compartilhe e ajude outros internautas!
Entre para seguir isso  
Seguidores 0

O site BABOO está no ar para informar e ajudar o internauta de Windows. Este site foi publicado em 1999 por Aurélio "Baboo", engenheiro e um dos maiores especialistas brasileiros em Windows, que trabalha profissionalmente com esse sistema operacional desde 1987. Desde 2004 ele é premiado anualmente pela Microsoft como MVP (Most Valuable Professional) pela sua contribuição e ajuda à comunidade de usuários de Windows.

Em 2001 foi criado o
Fórum do BABOO para ajudar o internauta brasileiro a solucionar problemas e dúvidas sobre Windows, Segurança, Office, Hardware e outros temas. Desde 2010 a Microsoft também tem premiado o Mr.Million, administrador da área de Segurança do Fórum do BABOO, pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Atualmente ele é o único MVP brasileiro de Segurança em desktop.

O BABOO é o único site brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows e que participa diariamente e ativamente nos comentários e discussões do site e fórum BABOO.