Delphi поиск в блокноте

[OTGB]

Алексей_2012 1) Это да, надо же потом ей новых выпускников добавлять.
2) да по всем, а то там фамилии и года иногда совпадают.
Вот например вёл я только год, программа и ищет только тех людей у которых год такой и выводит их и в каких альбомах эти люди расположены и всё это отображается в memo1.

[Алексей_2012]

Предлагаю поиск додумать самостоятельно, после файл заданной структуры

год1
фамилия1
имя1
отчество1
год2
фамилия2
имя2
отчество2

т.е. там нужно изменить цикл
и посмотреть какие параметры для поиска заполнены, по ним и искать.

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

[OTGB]

Алексей_2012 Огромное спасибо.Постараюсь что нибудь сделать))

Уважаемый FaTaL простите меня за мою борзату, то что отвлекаю вас. Но есть вопросы всё по той же теме. Мне не понятно как сделать так чтобы каждый edit отвечал например за год,фамилию. и т.д.

Как понимаю для этого что то надо менять тут

procedure TForm1.Button1Click(Sender: TObject);
var s, filespisok: string; // строка пути к одному файлу из списка ts[i]
//строка текущее
  i, j: integer; //переменная для адресации по tsp[i], и вторая переменная
  //для поиска в search списке
  search: TStringList; //список, куда грузится файл

  god, fam, im, otch: string;
begin
  search := TStringList.Create;
  memo1.Clear;

  god := Trim(AnsiLowerCase(LabeledEdit1.text));
  fam := Trim(AnsiLowerCase(LabeledEdit2.text)); //убираем пробелы и приводим к общему регистру
  im := Trim(AnsiLowerCase(LabeledEdit3.text));
  otch := Trim(AnsiLowerCase(LabeledEdit4.text));

  for i := 0 to ts.Count - 1 do //просмотр списка с путями к файлам
  begin
    s := ts[i]; //загрузка i-го пути в строку
    search.clear; //чистка списка с содержимым загруженного файла


    if FileExists(s) then //если файл найден, то
    begin
      search.LoadFromFile(ts[i]); //загружаем его в список

      for j := 0 to search.count - 1 do //выполняем поиск по списку пока не последняя строка
      begin

        if Pos(Trim(AnsiLowerCase(search[j])), fam) = 1 then //если есть вхождение подстрки
       // в строку, то выводим название файла
       //т.е. если ввели вор, а в файле воропаев, то условие сработает и в memo результат
       //выведится

          memo1.Lines.Add(' ' + ExtractFileName(ts[i]));


      end;




    end
    else
    begin
      ShowMessage('файл потерян!');
      Continue;
    end;


  end;

  search.free; //освобождаем память.
end;




end.

[FaTaL]

OTGB, я не понимаю, что ты этим пытаешься сказать.

[evg_m]

чтобы искать в файле именно ПО фамилии надо знать что вот эта строка и ЕСТЬ фамилия (а не имя похоже на фамилию).

     for j := 0 to search.count - 1 do //выполняем поиск по списку пока не последняя строка
      begin

        if (j mod 8)=4  and  // эта строка есть строка на которой ДОЛЖНА быть записана фамилия
                            Pos(Trim(AnsiLowerCase(search[j])), fam) = 1 then //если есть вхождение подстрки

аналогично для остальных типов данных
P.S. цифры для определения строки фамилии взяты произвольно.
P.P.S. использование позиционной (по номеру строк) системы очень-очень ненадежно,
если будет пропущена(или добавлена лишняя) строчка, то ВСЕ дальнейшие строки приобретут НЕВЕРНЫЙ тип (фамилия окажется именем, имя отчеством и т.д.)
т.е. ОЧЕНЬ не рекомендуется допускать ручную коррекцию (через блокнот) данных.

[FaTaL]

evg_m, по этому я и рекомендовал использовать INI-файл, чтобы было меньше проблем в дальнейшем.

[evg_m]

evg_m, по этому я и рекомендовал использовать INI-файл, чтобы было меньше проблем в дальнейшем.

я бы пошел еще дальше, взял бы xml.

либо делал бы полу-позиционную схему.
разделение записей по ключу(строке определенного вида) и позиционная запись полей.

if search[j]='****' then levstring:=j; //определение начала записи
if (j -levstring =3) and // эта строка должно быть и есть фамилия

[FaTaL]

Сообщение от evg_m

я бы пошел еще дальше, взял бы xml.

Можно конечно, но если ТС с INI то разобраться не может, то уж куда ему XML.

[OTGB]

Можно конечно, но если ТС с INI то разобраться не может, то уж куда ему XML.

согласен. куда мне.

В чём ошибка и как её исправить?

[evg_m]

if ( (j mod 8)=4 ) and
  ( Pos(......, fam) =1 ) then

или так

if (j mod 8) =4 then 
begin
  if Pos(....., fam) =1 then 
    .....
end;

Вар 3 с учетом будущих поисков по другим полям (по нескольким полям ОДНОВРЕМЕННО).

case j mod 8 of
0: ///это ведь начало записи
    isgoodSearch:=false;
....
4: //это ведь фамилия
   isgoodsearch:=isgoodseach or  //А что если мы УЖЕ решили что это нам надо при проверке ДРУГИХ полей 
                      ( Pos(...., fam)=1 ); //да- да можно и так  отметить что нужно нам(fam) есть там где положено(в начале строки(1) с фамилией

/// 4:  if Pos(...., fam)=1 then isgoodsearch:=true; // ДРУГОЙ вариант отметить что поиск(проверка) была успешной
....
end;
if isgoodseeach and // и вот КОГДА решаем что подходящее найдено 
( КОД как бы на увериться что мы проверили ВСЕ поля (год/фамилия/имя/...) записи)  then begin 
  ... .// что-то делаем (куда-то что-то выводим
end;