Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];

Вниз

Поиск в 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)?


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

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


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

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



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.02 c
1-35274
Evgeniy_MF
2002-07-31 15:27
2002.08.12
Помогите вытащить путь..


4-35500
Max2000
2002-06-04 12:48
2002.08.12
Как как на API открывать и закрывать доступ к диску или папке.


1-35337
Holodilnik
2002-07-30 12:09
2002.08.12
сортировка в TreeView


3-35150
roadrunner
2002-07-18 16:27
2002.08.12
Excell как мастер отчетов


1-35250
Lola
2002-07-31 09:30
2002.08.12
Куда физически TQuery пишет сформированный запрос?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский