Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.08.2010, 12:52   #1
sxcine
Пользователь
 
Аватар для sxcine
 
Регистрация: 26.05.2010
Сообщений: 78
Восклицание и снова парсинг...

Приветствую!
У меня такой вопрос, как отпарсить страницу, что бы в лейбле2 выводился текст со страницы http://javagala.ru/uinfo/?uid=3902328, но не весь, а только после слова "авторитет", т.е. "неприкасаемый" ?
вот мой код, но ничего не получается..
Код:
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s := IdHTTP1.Get('http://javagala.ru/uinfo/?uid=3902328');
Label2.Caption := Copy(s, pos('<td bgcolor=#222222>', s) + 7, pos('<br>', s) - pos('</td>', s) -7);

end;
делфи изучаю относительно немного, полгода..
прошу помощи!
sxcine вне форума Ответить с цитированием
Старый 11.08.2010, 19:40   #2
SAMY93
Пользователь
 
Регистрация: 25.06.2010
Сообщений: 10
По умолчанию

Код:
label2.caption:=copy(s,pos('Авторитет',s)+38,13);
Вот так попробуй. У меня все получилось
SAMY93 вне форума Ответить с цитированием
Старый 11.08.2010, 21:23   #3
sxcine
Пользователь
 
Аватар для sxcine
 
Регистрация: 26.05.2010
Сообщений: 78
Радость

спасибо.
я сейчас тоже написал, вот код
Код:
s  := copy(s,pos('><b>Авторитет</b></td><td bgcolor=#222222>',s)+26,length(s));
s  := copy(s,0,pos('<br><img src=',s)-1);
delete(s, 1, 16);
label2.Caption:=s;
sxcine вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
И снова парсинг Sergionix Работа с сетью в Delphi 4 16.08.2011 13:07
MDIChild снова и снова... Siber_Dec Общие вопросы Delphi 2 13.12.2009 03:24
снова про парсинг spl1nter Работа с сетью в Delphi 4 02.12.2009 22:45