Понедельник, 20.08.2018
Королевство Delphi
Главное меню
Статьи
Наш опрос
Нравится раздел статьи?
Всего ответов: 65
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Разные » Примеры Delphi

Delphi парсинг

Нужно спарсить слово "ПлОхО=И=ОдИнОкО". Как это сделать ?

<img src="115" h="14" w="14" /> <a title="" lst="Перелететь:Инфо планеты" lst_action="-JOIN 
ПлОхО=И=ОдИнОкО:GET #huyo2#usercur=7424930&a=channels_w 
hois&chanid=536444&">ПлОхО=И=ОдИнОк О</a> [50]<br />

Решение:

procedure TForm1.Button1Click(Sender: TObject); 
var 
 text_pars,out_s:string; 
begin 
 text_pars:='<img src="115" h="14" w="14" /> <a title="" 
lst="Перелететь:Инфо планеты" lst_action="-JOIN ПлОхО=И=ОдИнОкО:GET 
#huyo2#usercur=7424930&a=channels_w 
hois&chanid=536444&">ПлОхО=И=ОдИнОк</a> [50] <br />'; 
 delete(text_pars,1,pos('&">',text_pars)+length('&">')-1); 
 out_s:=copy(text_pars,1,pos('</a>',text_pars)-1); 
 Caption:=out_s; 
end; 

Получить ссылку на материал

Категория: Примеры Delphi | Добавил: Барон (21.12.2011)
Просмотров: 1064 | Теги: Парсинг, delphi | Рейтинг: 0.0/0
[ Пожертвования для сайта ] [ Пожаловаться на материал ]

Если вам помог материал сайта кликните по оплаченной рекламе размещенной в центре

Поиск
Категории раздела
Delphi.NET [3]
Kylix Delphi for Linux [9]
Советы Дельферу [6]
Хитрости в Delphi [2]
Обзор Delphi [45]
Инсталлятор [11]
Пользовательский интерфейс [18]
Примеры Delphi [93]
Функции и процедуры [16]
Разные [31]
Королевство Delphi © 2010-2018
Яндекс цитирования