Autor
Mensagem
Postado em: 12/2/2004 12:00:00 AM
Pessoal,
Como faço pra pegar todos os arquivos txt de uma pasta, abrir e verificar se dentro deles existe determinada string? A rotina para listar os arquivos eu já sei, só preciso descobrir como abrir e procurar a string..
Valeu..
Como faço pra pegar todos os arquivos txt de uma pasta, abrir e verificar se dentro deles existe determinada string? A rotina para listar os arquivos eu já sei, só preciso descobrir como abrir e procurar a string..
Valeu..
Postado em: 12/2/2004 12:00:00 AM
Olá,
para abrir o arquivo TXT e ler uma string, utilize o exemplo abaixo:
var
TXT : textfile;
Diretorio, NomeArq, Linha, Nome : String;
begin
Diretorio : ´C\TESTE\´ + NomeArq; // Local aonde se encontra o arquivo TXT
try // Abre o TXT e se não encontrar fecha o programa
AssignFile(TXT,NomeArq);
except
ShowMessage(´Arquivo não encontrado´);
Close;
end;
Reset(TXT);
while not eoln(TXT) do // Le o arquivo TXT
begin
Readln(TXT,Linha); // Pega a linha por inteiro do arquivo TXT
Nome := copy(Linha,01,40); // grava na variavel nome o espaço correspondente entre o 1º e 40º caracter da linha gravada
end;
CloseFile(TXT); fecha o arquivo TXT
end;
Acho que pude lhe ajudar.
Bruno Marques
bruno@allegrare.com.br
para abrir o arquivo TXT e ler uma string, utilize o exemplo abaixo:
var
TXT : textfile;
Diretorio, NomeArq, Linha, Nome : String;
begin
Diretorio : ´C\TESTE\´ + NomeArq; // Local aonde se encontra o arquivo TXT
try // Abre o TXT e se não encontrar fecha o programa
AssignFile(TXT,NomeArq);
except
ShowMessage(´Arquivo não encontrado´);
Close;
end;
Reset(TXT);
while not eoln(TXT) do // Le o arquivo TXT
begin
Readln(TXT,Linha); // Pega a linha por inteiro do arquivo TXT
Nome := copy(Linha,01,40); // grava na variavel nome o espaço correspondente entre o 1º e 40º caracter da linha gravada
end;
CloseFile(TXT); fecha o arquivo TXT
end;
Acho que pude lhe ajudar.
Bruno Marques
bruno@allegrare.com.br
Postado em: 12/2/2004 12:00:00 AM
po kara, o q vc ta querendo saber eu tb estou. no exemplo q o nosso amigo deu, so da pra abrir o arquivo e ler a linha, mas agente tem que saber se a string q vc quer esta contida nesta linha.
Exemplo: quero saber se a palavra DELPHI esta contida na frase ´O pessoal do forum do clube delphi é show de bola´ (hehehehe puxa-saquice). Quem souber manda ae q to precisando da dica tb.
magicbyte
Exemplo: quero saber se a palavra DELPHI esta contida na frase ´O pessoal do forum do clube delphi é show de bola´ (hehehehe puxa-saquice). Quem souber manda ae q to precisando da dica tb.
magicbyte
Postado em: 12/2/2004 12:00:00 AM
po kara, o q vc ta querendo saber eu tb estou. no exemplo q o nosso amigo deu, so da pra abrir o arquivo e ler a linha, mas agente tem que saber se a string q vc quer esta contida nesta linha.
Exemplo: quero saber se a palavra DELPHI esta contida na frase ´O pessoal do forum do clube delphi é show de bola´ (hehehehe puxa-saquice). Quem souber manda ae q to precisando da dica tb.
magicbyte
Exemplo: quero saber se a palavra DELPHI esta contida na frase ´O pessoal do forum do clube delphi é show de bola´ (hehehehe puxa-saquice). Quem souber manda ae q to precisando da dica tb.
magicbyte
Postado em: 12/2/2004 12:00:00 AM
Valeu Bruno...
Isso ajuda sim..e muito... tpw.. sem querer parecer abusado, vc sabe se no delphi existe um método Search() ? Tpw, trbalho com JavaScript e lah existe esse método que e ´Show de Bola´ pra procurar strings, vc conhece algo parecido no Delphi ?
Valeu....
Isso ajuda sim..e muito... tpw.. sem querer parecer abusado, vc sabe se no delphi existe um método Search() ? Tpw, trbalho com JavaScript e lah existe esse método que e ´Show de Bola´ pra procurar strings, vc conhece algo parecido no Delphi ?
Valeu....
