работа с *.txt

[vovk]

Мне кажется что тут после чтения каждой строки надо проводить по ней поиск соответствует или нет, если соответствует то сохранять если нет, то и суда нет как говорится.
Ну както так

var
tf:TextFile;
begin

 AssignFile(tf,'c\:1.txt');

   Reset(tf);
memo1.clear;
    while not Eof(TF)  do
     begin
       
       Readln(TF, str);
if pos ('http:\',str)>0 then
    memo1.Lines.Add(str);
  
       end;

  CloseFile(tf);
end;

где в условии if pos ('http:\',str)>0 then добавить все ключевые моменты строки содержащие которые надо дописать к примеру условие может выглядеть так

if (pos ('http:\',str)>0) or (pos ('@',str)>0) or (pos ('чтото ещё',str)>0) then

ЗЫ это только пример условия уж свои поставте, а то думалка чтото уже не работает

[Impuls1989]

Я так понимаю вам нужно из этого файлика достать e-mail и пароль?
Можно попробовать так:
Считаваем каждую строку из файла(показано ранее)
и сразу же применяем к ним данный кусочек кода:

if (pos('|',s)<>0) then
begin
 i:=pos('|',s);
 j:=i;
 repeat
  dec(i);
 until (s[i] = ' ') or (i = 1);
 mail:=copy(s,i+1,j-i);
 pass:=copy(s,j+1,Length(s)-j);
end;

Вот как-то так.

[мимо]

надо достать e-mail и пароль вместе со строчкой.
тока на строку Readln(TF, str); ругается: (считаем, что это строка 41)
[Error] Unit1.pas(41): '(' expected but ')' found
[Error] Unit1.pas(42): Statement expected but 'VAR' found
[Error] Unit1.pas(49): Undeclared identifier: 'memo1'
[Error] Unit1.pas(53): '(' expected but ')' found
[Error] Unit1.pas(54): '(' expected but ')' found
[Error] Unit1.pas(55): Type of expression must be BOOLEAN
[Error] Unit1.pas(64): Statement expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[vovk]

так str надо ещё обьявить, я почемуто стёр ..
вот тут

var
tf:TextFile;
str:String;
begin

....
потом тут

AssignFile(tf,'c\:1.txt');

надо указать своё файл, или перенести нужный файл в C:\ и назвать 1.txt,
на форму надо поставить Memo с именем Memo1
переменные обьявляются до блока
begin
end;
то есть допустим по клику на кнопку это бы выглядело

procedure TForm1.Button1Click(Sender: TObject);
var
tf:TextFile;
str:string;
begin
.............
............
.............
end;

остальное относится к условию как понял.. если поменяли условие покажите как это у вас выглядит

[мимо]

а подскажите еще.
вот я открываю файл

begin
if OpenDialog1.Execute
then AssignFile(F, OpenDialog1.FileName)

а как мне открыть ПАПКУ и работать с ней (с моими условиями), в которой лежат файлы.

и я открыл файл одной кнопкой. как мне сделать вторую кнопку, в которой можно выполнить любое условие.
если вставляю так (вторая кнопка)

procedure Tparser.Button2Click(Sender: TObject);
var
tf:TextFile;
str:string;
begin
Readln(tf, str);
if (pos ('данные',str)<>0) then
memo1.Lines.Add(str);
CloseFile(tf);
end;

то - на выходе ошибка

[Stilet]

на выходе ошибка

Конечно ошибка. Ты же не открыл файл.

AssignFile(tf, имя файла); reset(tf);

[мимо]

но я открываю файл первой кнопкой - Button1
а условие хочу задать второй кнопкой.

[Neeter]

Ну тогда надо переменную tf переместить в секцию private формы с этими двумя кнопками, чтобы переменная была одна во всем проекте:

private
 tf: TextFile;

И не объявлять переменную в обработчиках кнопок:

procedure Tparser.Button2Click(Sender: TObject);
var
 str:string;
begin
 Readln(tf, str);
 if (pos ('данные',str)<>0) then
  memo1.Lines.Add(str);
 CloseFile(tf);
end;

Но, зачем вы открываете файл одной кнопкой, а другой проверяете первую строчку? Не лучше ли будет все сделать в одной кнопке как сказал Stilet?

[vovk]

Тогда переменную F ктоторую используеш тутъ

begin
if OpenDialog1.Execute
then AssignFile(F, OpenDialog1.FileName)

обьявляй тв разделе interface

тут

var
 Form1: TForm1;
 F:TextFile;
implementation

а при клике на второй кнопке её же и используй

procedure Tparser.Button2Click(Sender: TObject);
var
str:string;
begin
Readln(F str);
if (pos ('данные',str)<>0) then
memo1.Lines.Add(str);
CloseFile(F);
end;

неУспел

[мимо]

спасибо за ответы.
еще вопросик.
вот. выводятся у меня результат. нужно убрать дубликаты.
первая кнопка- открывает файл. выполняет условие

procedure Tparser.Button3Click(Sender: TObject);
var
F:TextFile;
S:string;
begin
if OpenDialog1.Execute
then AssignFile(F, OpenDialog1.FileName)

if (pos ('данные',S)<>0) then
Memo1.Lines.Add(S);

end;

вторая кнопка - удаляет дубли

procedure Tparser.Button2Click(Sender: TObject);
 var
   sl: TStringList;
 begin
   sl := TStringList.Create;
   try
     with sl do
     begin
      Sorted := True;
      Duplicates := dupIgnore;
       Add(Memo1.Text);
     end;
     Listbox1.Items.Assign(sl);
   finally
     sl.Free;
   end;
 end;

но выводит их у меня в Listbox1.
как мне совместить все это в одну кнопку? и вывод в Memo1?
заранее спасибо

и доп вопрос:

procedure Tparser.Button1Click(Sender: TObject);
  var
  EditFile: string;
begin
 if OpenDialog2.Execute then
  begin
   EditFile:=OpenDialog2.FileName;
   Memo1.Lines.LoadFromFile(EditFile);
  end;

где в опциях стоит - ofAllowMultiSelect, однако открывается только один файл ( почему не все сразу?