Вытянуть из Div'a на сайте определенный текст, IdHTTP

@QAQA · Регистрация: 15.03.2014

Студворк — интернет-сервис помощи студентам

Сижу ломаю голову, никак не получается.
Методом

C++
1
Memo2->Text= IdHTTP1->Get("http://www.twitch.tv/sobaka");

получаю в Memo2 код страницы http://www.twitch.tv/sobaka:

HTML5
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
<!DOCTYPE html>
<html lang='en' style='overflow: hidden;' xml:lang='en' xmlns:fb='http://www.facebook.com/2008/fbml' xmlns:og='http://opengraphprotocol.org/schema/' xmlns='http://www.w3.org/1999/xhtml'>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=UTF-8" />
<title>Twitch</title>
<meta content='IE=edge,chrome=1' http-equiv='X-UA-Compatible'>
<meta content='app-id=460177396, app-argument=twitch://open' name='apple-itunes-app'>
<meta content='Twitch' name='description'>
<link href='/favicon.ico' rel='shortcut icon' type='image/x-icon'>
<meta content='general' name='rating'>
<meta content='NIH9y45AePyUB62Ur2myinvJOvH77ufgjd6wKiQB6sA' name='google-site-verification'>
<a href='https://plus.google.com/115463106831870703431' rel='publisher'></a>
<meta content='Twitch' property='og:site_name'>
<meta content='161273083968709' property='fb:app_id'>
<meta content='sobaka' property='og:title'>
<meta content='TYT NAZVANIE NUJNA ETA STROKA' property='og:description'>
<meta content='http://static-cdn.jtvnw.net/jtv_user_pictures/starladder1-profile_image-557367f831a49ebb-600x600.png' property='og:image'>
<meta property='og:url'>
<meta content='video.other' property='og:type'>
<meta content='http://www-cdn.jtvnw.net/swflibs/TwitchPlayer.swf?channel=starladder1&playerType=facebook' property='og:video'>
<meta content='https://www-cdn.jtvnw.net/swflibs/TwitchPlayer.swf?channel=starladder1&playerType=facebook' property='og:video:secure_url'>
<meta content='application/x-shockwave-flash' property='og:video:type'>
<meta content='378' property='og:video:height'>
<meta content='620' property='og:video:width'>
 
<script type="text/javascript">
//<![CDATA[
window.SiteOptions = {"deploy_flavor":"production","recaptcha_public_key":"6LdDh-wSAAAAAOS4xRBOjFKrgWCWF6QIQp_cu-Vd","twitch_api_hostport":"api.twitch.tv","twitch_swf_hostport":"www-cdn.jtvnw.net","following_hosts_experiment":true,"enable_rollbar_js":false,"current_experiments":[{"id":11,"name":"international_turbo_default_payment","description":null,"start_at":"2014-08-20T00:00:00Z","end_at":"2014-12-01T00:00:00Z","groups":[{"name":"month_paypal","weight":0.2},{"name":"month_recurly","weight":0.2},{"name":"month_xsolla","weight":0.2},{"name":"year_paypal","weight":0.2},{"name":"year_recurly","weight":0.2}]}],"enable_host_mode":true,"disable_group_chat":false,"disable_follows_side_panel":false,"disable_following_directory":false,"new_chat_client":true,"new_chat_client_darklaunch_range":"0-100","firebase_namespace":"production","load_more_on_follows":true,"following_videos":true,"dfp_sidebar_channel_ad":true,"dfp_fp_sizzlestrip":true,"chat_darklaunch_pct":1.0,"dfp_esl":true,"disable_youtube_exporter":false};
//]]>
</script>
...
и еще много внизу

Хочу в Label1->Caption="TYT NAZVANIE NUJNA ETA STROKA" (16-ая строка), откинув всё остальное. Как это сделать? И можно ли обойтись без Memo2, а всё прям с IdHTTP1->Get брать?
И можно ли таким же образом получать определенную картинку с сайта?
RAD Studio XE7.

Добавлено через 5 часов 13 минут

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
link = ListBox1->Items->Strings[ListBox1->ItemIndex];
GroupBox1->Visible=true;
//"http://www.twitch.tv/beyondthesummit"
//Label2->Caption=link;
AnsiString URL = "http://www." + link;
 
 
AnsiString FindText = IdHTTP1->Get(URL);// Код страницы
 
//--------------------------Group Info Zagolovok-----------------------------
 
    AnsiString outZagolovok;
     int a1=FindText.Pos("' property='og:description'");
     int b1=FindText.Pos("</html>");
     int c1=FindText.Pos("property='og:title'");
 
 
    FindText.Delete(a1,b1);
    FindText.Delete(1,c1);
    outZagolovok=FindText;
    outZagolovok.Delete(1,35);
    outZagolovok.Delete(Text.Length(),0);
    Label1->Caption=outZagolovok;
 
//--------------------------Group Info Kartinka------------------------------
 
AnsiString FindText2 = IdHTTP1->Get(URL);// Код страницы
 AnsiString linkPic;
     int a2=FindText2.Pos("' property='og:image'");
     int b2=FindText2.Pos("</html>");
     int c2=FindText2.Pos("' property='og:description'");
 
    FindText2.Delete(a2,b2);
    FindText2.Delete(1,c2);
    linkPic=FindText2;
    linkPic.Delete(1,43);
    linkPic.Delete(Text.Length(),0);
 
 
Label2->Caption=linkPic;
 
 
 
TJPEGImage *imagE = new TJPEGImage;
TStream *picturE = new TMemoryStream;
//IdHTTP1->Get("http://www.mts.ru/live/...", picturE);
picturE->Position=NULL;
imagE->LoadFromStream(picturE);
Image1->Canvas->Draw(0,0,imagE);
 
 
}

Сделал вот так, но это как-то кривовато, есть ли варианты получше?

@Avazart · 25.10.2014, 22:02

Парсинг через регулярки или html-парсеры

@QAQA · 27.10.2014, 18:38 **[ТС]**

Еще предложили на SOF:

C++
1
2
3
4
5
6
7
8
9
10
String Resp = IdHTTP1->Get("http://www.twitch.tv/starladder1");
String StreamName;
 
int i = Resp.Pos("property='og:description'");
if (i != 0)
{
    i = PosEx("content='", Resp, RPos("<meta ", Resp, i)) + 9;
    StreamName = Resp.SubString(i, PosEx("'", Resp, i) - i);
}
Label1->Caption = StreamName;

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	25.10.2014, 22:02
	Парсинг через регулярки или html-парсеры 0