Поиск в StringList

← →
Валет (2002-06-03 16:36) [0]

Уважаемые мастера.
Передо мной встала следующая задача:
В выбранном текстовом файле необходимо произвести поиск по заданному в Edit-е слову.
После нахожденния данного слова его(заданное слово) и 25 символов идущих за ним необходимо добавить в листбокс.
Эту опирацию необходимо выполнять до тех пор пока не кончится файл.
Файл подгружается не в мемо или в ричь-эдит, а в стринглист.
Как такое реализовать ?
Буду очень признателен за любую оказанную помощь.

← →
Yuri Btr © (2002-06-03 16:46) [1]

Наверное надо склеить все строки в стринглисте и затем определить вхождение (AnsiPos)текста из Edit в полученную строку, определим позицию первого символа, делаем Copy фрагмента строки - с длиной Length(Edit.text)+25, удаляем все символы до позиции первого символа, рекурсией ищем дальнейшие вхождения.
Наверно так.

← →
MBo © (2002-06-03 16:58) [2]

stringlist.text содержит все строки в одной. Учти CRLF.

← →
Валет (2002-06-03 17:14) [3]

А как в нём поиск-то осуществить (stringlist.text)?

Всё тем же способом, как я описал. Только пропускаешь склейку строк, и дополнительно ищешь #13 в полученном тексте и удаляешь его, а затем всё как я написал.
Удаляем символы через Delete.

← →
Валет (2002-06-03 17:24) [5]

Я в общую тему вопрос перенёс.
А именно сюда - http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1023110342&n=0

Поиск в StringList Найти похожие ветки