[Niger]

Hi всем!!! Хочу сделать мини-программу, которая будет показывать кто находиться в данный момент на моём форуме, что бы отслеживать посещения. Но появилась проблема: как найти ту часть страницы форума и высвятить в моей программе?

P.S. Я и яндексил, и рамблерил, и использовал поиск по сайту. Не помогло

[:S.p.a.m.]

Вобщем я не стал заморачиваться с парсерами и делал в своем скринсейвере примерно так: Искал блок на сайте, где выводится эта инфа. Блок я отделил <!-- Statistic --> и снизу <!-- EndStatistic --> Потом простым pos искал это место, а там примитивно анализировал строку, ища новые темы форума, между ">" и "<". Правда, чесно говоря мне идея с комментариями пришла после того как я начал распространять скринсейвер, я делал чуть чуть подругому, но идея та же.

[Niger]

Сообщение от :S.p.a.m.

Вобщем я не стал заморачиваться с парсерами и делал в своем скринсейвере примерно так: Искал блок на сайте, где выводится эта инфа. Блок я отделил <!-- Statistic --> и снизу <!-- EndStatistic --> Потом простым pos искал это место, а там примитивно анализировал строку, ища новые темы форума, между ">" и "<". Правда, чесно говоря мне идея с комментариями пришла после того как я начал распространять скринсейвер, я делал чуть чуть подругому, но идея та же.

Я не спроста добавил тему в раздел "начинающим". В том-то и проблема:
1.А Если форум не мой?
2.Как это: простым pos?
3.Как анализировать?

[mak-karpov]

Смотри в исходниках, кат. Сети/Интернет, программа Weather info, погода с сайта pda.gismeteo.ru. Тоже pos'ом искал

[Niger]

Сообщение от mak-karpov

Смотри в исходниках, кат. Сети/Интернет, программа Weather info, погода с сайта pda.gismeteo.ru. Тоже pos'ом искал

дА, у меня есть этот исходник. Да, там всё исписано коментами. Но всё равно нечего не понямаю((( Больше понимаю по шагово

[mak-karpov]

Вот этот отрезок кода

Код:

1   s := IdHTTP1.Get('http://pda.gismeteo.ru/'+IntToStr(CityID)+'.htm');
2   S := Copy(S, Pos('<td bgcolor="#E0FFE0">Облачность<br>и осадки</td>', S), MAXINT);
3   s1 := Copy(S, Pos('alt="', S)+5, MAXINT);
4   s1 := Copy(s1, 0, Pos('"', s1) - 1); //Облачность
5   s2 := Copy(S, Pos(TempStr, S)+Length(TempStr), MaxInt);
6   s2 := Copy(s2, Pos('r>', s2), MAXINT);
7   s2 := Copy(S2, Pos('>', s2)+1, MAXINT);
8   s2 := Copy(s2, 0, Pos('</td>', s2)-1);

Теперь пошагово

1. Получаем всю страницу из инета.
2. Ищем текст "Облачность и осадки" и копируем текст страницы начиная с этого текста.
3.Ищем текст "alt="(подсказка) и опять копируем.
4.Ищем символ ' " ' и обрезаем страницу до этого символа, получаем текст типа "Гроза, облачно, и т.д."
5,6,7,8 - аналогично, но для температуры