Привет, Гость ( Вход | Регистрация )

 Клуб Янча      Трекер      КВН      ВиКи      Правообладателям   Помощь    Поиск    Участники    Календарь     

Каскадный · Стандартный · [ Линейный+ ]

> Все анекдоты RDA, надо?

Подписка | На e-mail | На печать
Valky
post Воскресенье, 01 Декабря 2002, 20:54
Сообщение #1


Арт-директор
******

Группа: Team RDA
Сообщений: 2386
Регистрация: 04 Июля '01
Откуда: Russia



2 Юзер   Цитировать

Самый долгоживущий топик форума, как известно, Анекдоты.
Хотите узнать кто больше всего анекдотов напостил? И кто входит в первую десятку анекдотчиков? Оказывается есть бесспорный лидер по постам в анекдотах, догадайтесь, кто smileold.gif

Скачайте, распакуйте и запустите эту программу: Анекдоты RDA (не бойтесь, не вирус smileold.gif)

Кроме статистики по нашим выдающимся юмористам, программа еще создает html-файл со всем содержимым топика Анекдоты (размер файла - больше мегабайта!).

User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Reply to this topicStart new topicStart Poll
Ответов(1 - 19)
alossenko
post Воскресенье, 01 Декабря 2002, 21:05
Сообщение #2


Видеоман
*******

Группа: Ветеран Team RDA
Сообщений: 3642
Регистрация: 09 Сен '02



2 Юзер   Цитировать

а работу через прокси то не учел frownold.gif


--------------------
http://cligs.ee <---- Мероприятия и фотки с тусовок!!!
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Valky
post Воскресенье, 01 Декабря 2002, 21:23
Сообщение #3


Арт-директор
******

Группа: Team RDA
Сообщений: 2386
Регистрация: 04 Июля '01
Откуда: Russia



2 Юзер   Цитировать

QUOTE (alossenko @ Dec 1 2002, 21:05)
а работу через прокси то не учел frownold.gif

Уже поправил, скачай еще раз! smileold.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
AciDWinD
post Воскресенье, 01 Декабря 2002, 21:24
Сообщение #4


Завсегдатай
****

Группа: Мемберы
Сообщений: 586
Регистрация: 31 Мар '01
Откуда: Canada



2 Юзер   Цитировать

Интересно! smileold.gif

[Domi], само собой, недосягаем biggrinold.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Bubble-Gum
post Воскресенье, 01 Декабря 2002, 22:18
Сообщение #5


Танкист со стажем
***********

Группа: Админы
Сообщений: 8012
Регистрация: 26 Сен '01
Откуда: Germany



2 Юзер   Цитировать

ух ты smileold.gif классная тулза biggrinold.gif


--------------------
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Leshii
post Понедельник, 02 Декабря 2002, 1:06
Сообщение #6


Видеоман
********

Группа: Ветеран Team RDA
Сообщений: 4188
Регистрация: 02 Окт '01
Откуда: Леса Караганды



2 Юзер   Цитировать

Valky не учел повторный поиск (номера страниц продолжают накручиваться) smileold.gif


--------------------
[b]Пить надо ЦЕЛЕУСТРЕМЛЕННО!![/b] [[url=http://www.byzantinecommunications.com/adamhoward/latinless.html]>>>[/url]]
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Bubble-Gum
post Понедельник, 02 Декабря 2002, 1:09
Сообщение #7


Танкист со стажем
***********

Группа: Админы
Сообщений: 8012
Регистрация: 26 Сен '01
Откуда: Germany



2 Юзер   Цитировать

ну вы, блин, критики доморощенные...
вас что, вежливости не учили в детском садике??

Сначала благодарят, а потом уже и критика...
Вот напишите такую штуку сами, а тогда и выступайте


--------------------
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
AciDWinD
post Понедельник, 02 Декабря 2002, 1:52
Сообщение #8


Завсегдатай
****

Группа: Мемберы
Сообщений: 586
Регистрация: 31 Мар '01
Откуда: Canada



2 Юзер   Цитировать

QUOTE (lexxei @ Dec 1 2002, 18:06)
Valky не учел повторный поиск (номера страниц продолжают накручиваться) smileold.gif

Специально из-за тебя ещё раз прокрутил, ничего подобного не замечено.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Leshii
post Понедельник, 02 Декабря 2002, 6:03
Сообщение #9


Видеоман
********

Группа: Ветеран Team RDA
Сообщений: 4188
Регистрация: 02 Окт '01
Откуда: Леса Караганды



2 Юзер   Цитировать

ясно - я особенный tongueold.gif

но прога все равно классная!! спасибо!

еще бы картинки на жесткий диск сохранять... winkold.gif


--------------------
[b]Пить надо ЦЕЛЕУСТРЕМЛЕННО!![/b] [[url=http://www.byzantinecommunications.com/adamhoward/latinless.html]>>>[/url]]
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Nightmare
post Понедельник, 02 Декабря 2002, 7:19
Сообщение #10


Видеоман
*****

Группа: Мемберы
Сообщений: 1928
Регистрация: 10 Дек '01
Откуда: Мой адрес не дом и не улица ...



2 Юзер   Цитировать

Хех, а я оказывается 5-й в списке! smileold.gif smileold.gif smileold.gif


--------------------
Если у вас нет паранойи, то это ещё не значит, что за вами никто не наблюдает...

http://bsa79.com.ru/avatar/girls_die.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Leshii
post Понедельник, 02 Декабря 2002, 7:30
Сообщение #11


Видеоман
********

Группа: Ветеран Team RDA
Сообщений: 4188
Регистрация: 02 Окт '01
Откуда: Леса Караганды



2 Юзер   Цитировать

а я 18-ый


--------------------
[b]Пить надо ЦЕЛЕУСТРЕМЛЕННО!![/b] [[url=http://www.byzantinecommunications.com/adamhoward/latinless.html]>>>[/url]]
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Korax
post Понедельник, 02 Декабря 2002, 12:10
Сообщение #12


Видеоман
*******

Группа: Мемберы
Сообщений: 3953
Регистрация: 07 Сен '01
Откуда: Estonia



2 Юзер   Цитировать

Классно... smileold.gif
2 Valky: А исходники не выложишь? winkold.gif


--------------------
Surprise! You're dead!!!
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
[Dominant]
post Понедельник, 02 Декабря 2002, 12:26
Сообщение #13


Бесполезное ископаемое
********

Группа: Модераторы
Сообщений: 4108
Регистрация: 20 Мар '01



2 Юзер   Цитировать

Хехехе... здорово smileold.gif давно уже хотел получить ВЕСЬ списочек, но копировать было бы глупо, а на большее мозгов не хватило. biggrinold.gif biggrinold.gif biggrinold.gif

Спасибо! biggrinold.gif


--------------------
Вороне Бог на вход подал 4 вольта...
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Yanch
post Понедельник, 02 Декабря 2002, 12:27
Сообщение #14


Любитель Пива
**********

Группа: Модераторы
Сообщений: 6686
Регистрация: 17 Мая '01
Откуда: Израиль



2 Юзер   Цитировать

Молодец, Валкирыч biggrinold.gif


--------------------
A man is as rich as the beer he drinks...
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
[Dominant]
post Понедельник, 02 Декабря 2002, 12:40
Сообщение #15


Бесполезное ископаемое
********

Группа: Модераторы
Сообщений: 4108
Регистрация: 20 Мар '01



2 Юзер   Цитировать

QUOTE (Korax @ Dec 2 2002, 11:10)
2 Valky: А исходники не выложишь? winkold.gif

2 Valky: Не давай им исходники! Они Читы хотят прописать! biggrinold.gif biggrinold.gif


--------------------
Вороне Бог на вход подал 4 вольта...
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Yanch
post Понедельник, 02 Декабря 2002, 12:45
Сообщение #16


Любитель Пива
**********

Группа: Модераторы
Сообщений: 6686
Регистрация: 17 Мая '01
Откуда: Израиль



2 Юзер   Цитировать

QUOTE ([Dominant] @ Dec 2 2002, 11:40)
2 Valky: Не давай им исходники! Они Читы хотят прописать! biggrinold.gif biggrinold.gif

Ну, тут много ума не надо. Ща вот Лехабой придет, и... winkold.gif


--------------------
A man is as rich as the beer he drinks...
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Korax
post Понедельник, 02 Декабря 2002, 13:43
Сообщение #17


Видеоман
*******

Группа: Мемберы
Сообщений: 3953
Регистрация: 07 Сен '01
Откуда: Estonia



2 Юзер   Цитировать

QUOTE ([Dominant] @ Dec 2 2002, 11:40)
QUOTE (Korax @ Dec 2 2002, 11:10)
2 Valky: А исходники не выложишь?  winkold.gif

2 Valky: Не давай им исходники! Они Читы хотят прописать! biggrinold.gif biggrinold.gif

Не правда! smileold.gif
Мне всегда интересно просто, как та или иная програмка сделана... biggrinold.gif

2 Valky: на чём писал кстати?


--------------------
Surprise! You're dead!!!
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Valky
post Понедельник, 02 Декабря 2002, 14:05
Сообщение #18


Арт-директор
******

Группа: Team RDA
Сообщений: 2386
Регистрация: 04 Июля '01
Откуда: Russia



2 Юзер   Цитировать

Delphi 6.0, а посему исходники выкладывать нет смысла, т.к. там всё готовенькое, в данном случае, работает элемент NMHTTP из библиотечки FastNet. Вот процедура его вызова:


try
NMHTTP1.InputFileMode := FALSE;
NMHTTP1.OutputFileMode := FALSE;
NMHTTP1.ReportLevel := Status_Basic;
If ProxyCheck.Checked then
Begin
NMHTTP1.Proxy := ProxyEdit1.Text;
NMHTTP1.ProxyPort := StrToInt(ProxyEdit2.Text);
End;
NMHTTP1.Get(Address);
PageContent.Text := NMHTTP1.Body; // PageContent : TStringList;
GetHTMLpage := True;
except
GetHTMLpage := False;
end...

(плюс еще добавляем обработку сообщений от NMHTTP, типа Invalid Host, Connection failed и т.п.)

А остальная часть программы элементарна (т.е. недостойна обнародования smileold.gif): вытаскиваем страничку, ищем некую ключевую фразу (например "Флейм" или "Анекдоты" и двигаемся дальше). Чистая логика и просмотр HTML-кода форума.

Вот если бы на основе такого опыта написать что-то более универсальное и менее ёмкое... Но, кажется, такие проги уже есть, да и задачка это будет на порядок посложнее - вот здесь и проходит граница между любительским (это я про себя) и профессиональным программированием! smileold.gif

ЗЫ. Спасибо! Было приятно услышать добрые отзывы.

User is offlineProfile CardPM
Go to the top of the page
+Quote Post
kuchin
post Понедельник, 02 Декабря 2002, 15:52
Сообщение #19


Зампотех RDA
********

Группа: Модераторы
Сообщений: 4099
Регистрация: 24 Апр '01
Откуда: Израиль



2 Юзер   Цитировать

Самое быстрое, это просто вытащить данные из MySQL-таблицы. smileold.gif
Можно сразу одним запросом получить нужный списочек...
Вот только для этого надо иметь доступ к базе данных. tongueold.gif


--------------------
Дима - http://kuchin.net
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Yanch
post Понедельник, 02 Декабря 2002, 16:32
Сообщение #20


Любитель Пива
**********

Группа: Модераторы
Сообщений: 6686
Регистрация: 17 Мая '01
Откуда: Израиль



2 Юзер   Цитировать

А слабо дать доступ к базе данных? biggrinold.gif Хотя бы в виде XML? winkold.gif


--------------------
A man is as rich as the beer he drinks...
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
« Пред · Флейм · След »
 

Reply to this topicTopic OptionsStart new topic
1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
здесь находятся:
 

Lo-Fi Версия CMSBlog Сейчас: Воскресенье, 04 Мая 2025, 10:41
Powered by Invision Power Board © 2025  IPS, Inc.