|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.06.2012, 15:40 | #1 | |
Пользователь
Регистрация: 08.10.2011
Сообщений: 26
|
Спарсить символы
Код:
Цитата:
|
|
20.06.2012, 16:41 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
ну, у Вас парсинг возвращает первое найденное значение.
если хотите получить все - крутите в цикле. например, так: Код:
1) не понял, зачем Вам эти заворот с TStringStream: Data:=TStringStream.Create(Memo2.Te xt) я выкинул нафиг. если понимаете, для чего это вам нужно - вернёте как было. 2) в алгоритме есть косячок. если встретится пустое содержимое внутри скобок () - цикл прервётся. Если так не должно быть - тогда нужно изменять условие прерывания цикла в until ... |
20.06.2012, 17:38 | #3 |
Форумчанин
Регистрация: 03.04.2009
Сообщений: 305
|
Парсятся данные из всех скобок:
Код:
На выходе получается строка "E,T,W," PS если файл для парсинга большой, то не стоит использовать функцию Delete, т.к. это сильно тормозит поиск. Последний раз редактировалось kangreon; 20.06.2012 в 17:41. |
20.06.2012, 18:32 | #4 |
Пользователь
Регистрация: 08.10.2011
Сообщений: 26
|
kangreon, cпасибо. Твой вариант получше.
С вариантом Serge_Bliznykov почему то две запятые в конце. |
20.06.2012, 22:26 | #5 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
согласен, вариант kangreon отличается от функции Pars как небо от земли!
Безусловно он и быстрее и проще и намного эффективнее! я просто (ошибочно, как выяснилось) думал, что Вам нужно использовать именно навороченные вами навороты вашей функции Pars... |
21.06.2012, 01:20 | #6 |
Пользователь
Регистрация: 08.10.2011
Сообщений: 26
|
Serge_Bliznykov, функцию Pars использовал. Ваши два совета помогли, дали урок парсинга. Временами использую и Ваши советы, так что, спасибо. Переписал код.
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Спарсить ставку ЦБ | vectord | PHP | 5 | 09.01.2012 12:26 |
Даны натуральное число n и символы s1,...,sn. Получите все символы, расположенные до первого двоеточия (Pascal) | Татьана | Помощь студентам | 16 | 22.09.2011 15:05 |
Спарсить страницу!!! | DKENT | Работа с сетью в Delphi | 10 | 07.02.2011 18:04 |
нужно спарсить delphi | rabbitsnew | Помощь студентам | 0 | 18.11.2010 20:00 |
Нужно спарсить | Айдар | Общие вопросы Delphi | 1 | 29.05.2010 00:03 |