Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.03.2021, 18:34   #1
cutter47
Пользователь
 
Регистрация: 22.06.2020
Сообщений: 23
По умолчанию Поиск фразы в тексте.

Здравствуйте уважаемые форумчане, допустим у меня есть три TStringList'a в первый txtList загружается текстовый файл DataFName, во втором списке Keys хранятся слова для поиска фраз, третий нужен для результата. В третьем должен формироваться результат в формате TStringList'a, который состоит из ключа поиска по всему тексту, например в тексте найден нужный ключ из списка Keys - Гатчина нужно в список TRES добавить ключ Гатчина + 10 слов после него из текста (txtList).
Подскажите пожалуйста как такое реализовать.
Код:
Function GetData(DataFName:String):TStringList;
var
TRES, Keys, txtList:TStringList;
begin
 txtList:=TStringList.Create;
    Keys:=TStringList.Create;
    TRES:=TStringList.Create;

txtList.LoadFromfile(DataFName);

Keys.Add('Пушкин');
Keys.Add('Гатчина');
Keys.Add('Приозерск');
Keys.Add('Кировск');
Keys.Add('Павлово');

 for i:= 0 to txtList.Count-1 do begin
 for z:= 0 to Keys.Count-1 do begin

/////// тут я просто застрял

end;
end;

result:=TRES;

 txtList.Free;
    Keys.Free;
    TRES.Free;

end;
cutter47 вне форума Ответить с цитированием
Старый 01.04.2021, 21:47   #2
cutter47
Пользователь
 
Регистрация: 22.06.2020
Сообщений: 23
По умолчанию

Всем спасибо за внимание, разобрался сам.
cutter47 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подсчет количества заданной фразы в тексте, не получается сделать infosimple JavaScript, Ajax 6 14.12.2013 13:52
Поиск фразы в тексте spoilbabe Помощь студентам 6 11.08.2011 21:01
Поиск последнего слова фразы в дереве предложения. the_deer_one Свободное общение 5 17.08.2010 14:48
Поиск в тексте Whiter Общие вопросы Delphi 10 30.07.2009 15:55
Поиск в тексте jone Общие вопросы Delphi 14 28.09.2008 12:42