Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Поиск в StringList


Валет ©   (2002-06-03 16:36:00) 

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


Yuri Btr   (2002-06-03 17:24:00) [1]

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


Валет   (2002-06-03 17:24:00) [2]

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


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

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


MBo   (2002-06-03 16:58:00) [4]

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


Yuri Btr   (2002-06-03 16:46:00) [5]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо