radiorecord.ru

Просьбы о написании новых скриптов или поиске уже существующих.

Модератор: Модераторы

radiorecord.ru

Сообщение ViJIJIKA » 28 май 2012 08:56

Скрипт музыки! Что-бы считывал, что играет сайта http://www.radiorecord.ru/player/html5/
1) Радио рекорд
2) Транс
И выводил на канале! И помимо этого выводил ссылки, где можно скачать или посмотреть!
ViJIJIKA
 
Сообщения: 7
Зарегистрирован: 28 май 2012 08:52
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21

Re: radiorecord.ru

Сообщение tvrsh » 28 май 2012 11:12

Я не знаю как этот яваскриптовый сайт отпарсить. При просмотре исходного кода данных о исполнителе в нем нет.
Если кто-то подскажет как это сделать будет очень хорошо.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: radiorecord.ru

Сообщение ViJIJIKA » 30 май 2012 10:15

Вот может от сюда по лучиться! http://www.piter.fm/stations/FM_106.3
ViJIJIKA
 
Сообщения: 7
Зарегистрирован: 28 май 2012 08:52
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21

Re: radiorecord.ru

Сообщение tvrsh » 30 май 2012 16:37

Открываем вот этот пост post1958.html#p1958
И если все делать так, как там написано то в итоге получится вот что:
TCL: [ Скачать ] [ Скрыть ]
bind pub - !record parsing

proc parsing {nick uhost hand chan text} {
    putlog "bind: OK"

    ::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"
    # Указываем ссылку на мобильную версию сайта. НА ней меньше информации и ее удобнее парсить.
    set parsing_tok [::http::geturl http://m.moskva.fm/stations/FM_98.4]
    set data [::http::data $parsing_tok]
    ::http::cleanup $parsing_tok

    if {[info exists ::sp_version]} {
        set data [encoding convertfrom cp1251 $data]
    } else {
        set data [encoding convertto cp1251 [encoding convertfrom utf-8 $data]]
    }

    regsub -all -- {\n} $data "" data

    # Забираем время когда началась песенка.
    regexp {<p><small>(.*?)</small><br/>} $data "" time

    # Забираем испонителей.
    regexp {<a href=.*? class="artist">(.*?)</a>} $data "" artist
   
    # Забираем название песенки.
    regexp {<a href=.*? class="song">(.*?)</a>} $data "" track

    putserv "PRIVMSG $chan :$time $artist $track"

}
putlog "parsing.tcl loaded..."
 

<tvrsh> !record
<@bionic> 16:29 DJ Fresh Feat. Rita Ora Hot Right Now
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: radiorecord.ru

Сообщение ViJIJIKA » 03 июн 2012 10:13

[11:09:05] bind: OK
[11:09:05] Tcl error [parsing]: invalid command name "::http::config"

А еще можно что бы он выводил ссылки на скачку и прослушивание.
ViJIJIKA
 
Сообщения: 7
Зарегистрирован: 28 май 2012 08:52
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21

Re: radiorecord.ru

Сообщение tvrsh » 04 июн 2012 08:46

ViJIJIKA писал(а):[11:09:05] bind: OK
[11:09:05] Tcl error [parsing]: invalid command name "::http::config"

Перед загрузкой всех скриптов добавь в конфиг вот этот: http.tcl
Этот скрипт используется в большинстве скриптов работающих с интернет страницами.

ViJIJIKA писал(а):А еще можно что бы он выводил ссылки на скачку и прослушивание.

Сделаю чуть попозже. Для этого надо использовать не мобильную, а полную версию сайта, так как ссылка на прослушивание есть только на ней. Про скачку никаких ссылок я там не нашел.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: radiorecord.ru

Сообщение ViJIJIKA » 04 июн 2012 21:48

Можно другие сайты например видео можно с ютуба
Вот еще что нашёл http://www.moreradio.ru/playlist_radio. ... &record_fm
ViJIJIKA
 
Сообщения: 7
Зарегистрирован: 28 май 2012 08:52
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21

Re: radiorecord.ru

Сообщение tvrsh » 20 июн 2012 17:52

Вот, со ссылкой на прослушивание и с раскраской, можешь поменять ее по своему усмотрению.

<tvrsh> !record
<@bionic> <17:44> Bobina - Quattro 372: http://www.moskva.fm/play/4028/1340199840

TCL: [ Скачать ] [ Скрыть ]
bind pub - !record parsing

proc parsing {nick uhost hand chan text} {

    set parsing_tok [::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"]
    set parsing_tok [::http::geturl http://www.moskva.fm/stations/FM_98.4]
    set data [::http::data $parsing_tok]
    ::http::cleanup $parsing_tok

    if {[info exists ::sp_version]} {
        set data [encoding convertfrom cp1251 $data]
    } else {
        set data [encoding convertto cp1251 [encoding convertfrom utf-8 $data]]
    }

    regexp {<td class="msk-colorlist-songs-play-time">(.*?)<td class="msk-colorlist-songs-add-to-compilation">} $data "" data

    regsub -all -- {\n} $data "" data

    # время когда начался трэк.
    regexp {<small class="meta">(.*?)</small>} $data "" time

    # испонитель и название трэка.
    regexp {<a class="song" href="/artist/.*?><b>(.*?)</b>(.*?)</a>} $data "" artist track
   
    # ссылка на прослушивание.
    regexp {http://www.moskva.fm/play/(.*?)\">} $data "
" play
       
    putserv "
PRIVMSG $chan :\00303<\00304$time\00303> \002\00310$artist\002 \00314- $track: \00312\037http://www.moskva.fm/play/$play"

}
putlog "
record.tcl loaded..."
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: radiorecord.ru

Сообщение ViJIJIKA » 23 июн 2012 16:32

[19:31:06] <09ViJIJIKA> !record
[19:31:08] <BotkaCola> ${myPlaylist.totalCount} Chris Garcia Feat. Sherry St. Germain I Rock Alone: 12http://www.moskva.fm/play/4028/1340454252
Что то с временем напутано.
ViJIJIKA
 
Сообщения: 7
Зарегистрирован: 28 май 2012 08:52
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21

Re: radiorecord.ru

Сообщение tvrsh » 23 июн 2012 17:04

Замени
    regexp {<td class="msk-colorlist-songs-play-time">(.*?)<td class="msk-colorlist-songs-add-to-compilation">} $data "" data

на
    regexp {<td class="msk-colorlist-songs-play-time">(.*?)</table>} $data "" data
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: radiorecord.ru

Сообщение ViJIJIKA » 23 июн 2012 22:39

Спасибо, всё работает.
ViJIJIKA
 
Сообщения: 7
Зарегистрирован: 28 май 2012 08:52
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21


Вернуться в Заявки на скрипты

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

cron