1

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

procedure TForm1.Button1Click(Sender: TObject);
var
  Vhod, Vihod: TextFile;
  S: string;
  i: integer;
  Dictionary: TDictionary<string, integer>;
begin
  if OpenDialog1.Execute then
  begin
    Dictionary := TDictionary<string, integer>.Create;
    AssignFile(Vhod, OpenDialog1.FileName);
    reset(Vhod);
    AssignFile(Vihod, ExtractFileDir(OpenDialog1.FileName) + '\svr_files.txt');
    rewrite(Vihod);
  end;

  // Предполагаю что тут нужно подключить тут
  Dictionary := TDictionary<string, integer>.Create;

  while not Eof(Vhod) do
  begin
    ReadLn(Vhod, S);

    // Предполагаю что и тут нужно подключить
    if (Dictionary.ContainsKey(S)) then

      if (Pos('Что ищем', S) > 0) then
        writeln(Vihod, S);
  end;

  CloseFile(Vhod);
  CloseFile(Vihod);
end;
6
  • 1
    непонятна суть вопроса
    – user176262
    3 фев 2019 в 17:05
  • @Igor, ну хотелось бы поиск осуществлять через словарь дабы ускорить работу функции Pos.
    – Денис
    3 фев 2019 в 17:09
  • 1
    Что должен делать этот код?
    – user176262
    3 фев 2019 в 17:10
  • @Igor, ну я ввожу одно слово в memo или список слов и по этим ключевым словам ищутся все строки что в текстовом файле и записываются в другой текстовый файл.
    – Денис
    3 фев 2019 в 17:13
  • 1
    может будет быстрее, а может нет. Почему бы Вам не засечь время для двух вариантов?
    – user176262
    3 фев 2019 в 17:14

1 ответ 1

1

В файле много повторяющихся строк?

dictYes := TDictionary<string, integer>.Create;
dictNo := TDictionary<string, integer>.Create;

while not Eof(Vhod) do
begin
  ReadLn(Vhod, S);

  if dictYes.ContainsKey(S) then
  begin
    WriteLn(Vihod, S);
  end
  else if not dictNo.ContainsKey(S) then
  begin
    if Pos('Что ищем', S) > 0 then
    begin
      dictYes.Add(S, 1);
      WriteLn(Vihod, S);
    end
    else
    begin
      dictNo.Add(S, 1);
    end;    
  end;

end;

dictNo.Free;
dictYes.Free;
5
  • Да, практически 45%. То есть тут есть какая то особенность ?
    – Денис
    3 фев 2019 в 17:30
  • 1
    @Денис Если одинаковых строк нет или мало, то словарь только помешает.
    – user176262
    3 фев 2019 в 17:34
  • Сделал, как Вы сказали и при открытии файла: Сразу пишет вот такое сообщение - Item not Found
    – Денис
    3 фев 2019 в 17:37
  • Спасибо заработало, но скорость и в самом деле не увеличилась. По сути даже уменьшилась. По сути дела это максимум что можно выжать с словаря TDictionary ?
    – Денис
    3 фев 2019 в 17:48
  • 1
    @Денис Видимо - да.
    – user176262
    3 фев 2019 в 17:49

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.