|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.04.2016, 20:49 | #1 |
Форумчанин
Регистрация: 28.01.2014
Сообщений: 126
|
Анекдот в форме
Добрый вечер всем! Сегодня нашел код для вставки случайного анекдота на вэб страничку:
Код HTML:
<script type="text/javascript" src="http://www.anekdot.ru/rss/randomu.html" charset="utf-8"></script> Игорь, если можно, то как? Последний раз редактировалось Demetros; 26.04.2016 в 20:53. |
26.04.2016, 21:33 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
1. нужно иметь список анекдотов (файл, вэб страницу, базу данных)
2. нужно из списка получить случайный анекдот когда есть ответ на п.1, то п.2 - это как два байта отослать
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
26.04.2016, 21:35 | #3 |
Форумчанин
Регистрация: 28.01.2014
Сообщений: 126
|
это все уже есть, этот код отображает случайный анекдот с адреса анекдот.ру
открой вложенный файл в браузере, обнови несколько раз. |
26.04.2016, 21:49 | #4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
http://www.anekdot.ru - вижу страницу с анекдотами
http://www.anekdot.ru/rss/randomu.html - вижу хрень какую-то я могу решить конкретную задачу, и не готов решать ребусы типа http://www.anekdot.ru/rss/randomu.html - а угадай-ка, где здесь анекдот ребусы в другой ветке форума, пишите туда
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
26.04.2016, 22:09 | #5 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
1) прогружаем исходный код веб-страницы по ссылке
http://excelvba.ru/code/GetHTTPResponse (сразу с перекодировкой в UTF-8) 2) берем текст из результата Код:
Пробуйте |
27.04.2016, 21:02 | #6 |
Форумчанин
Регистрация: 28.01.2014
Сообщений: 126
|
EducatedFool, все работает, спасибо!
|
27.04.2016, 21:03 | #7 | |
Форумчанин
Регистрация: 28.01.2014
Сообщений: 126
|
Цитата:
|
|
28.04.2016, 00:10 | #8 |
Форумчанин
Регистрация: 28.01.2014
Сообщений: 126
|
немного переделал
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Очередной анекдот, или как я потерял пароль на свою аську | rpy3uH | Свободное общение | 28 | 30.06.2011 13:36 |
Форма на форме) | Irina_87 | Компоненты Delphi | 3 | 28.04.2010 09:32 |
Scroll на форме | MasterofCDM | Общие вопросы Delphi | 5 | 24.02.2009 16:18 |
рисование на форме | Kostua | Помощь студентам | 2 | 26.07.2008 16:24 |