![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Поиск в 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, удаляем все символы до позиции первого символа, рекурсией ищем дальнейшие вхождения.
Наверно так.