Форум о ботах Eggdrop/Windrop

[Radiosignal]

biathlon.tcl - Выводит статистику c http://winter.sport-express.ru/biathlon ... 2/ratings/ по Кубку мира - общий зачет женщин и мужчин по гонкам, и по командному зачету.

[tvrsh]

Вот пример с комментариями. Все элементарно и просто, про ф1 пишется ничуть не сложнее. Не тестировал.

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

# Биндим паблик команду.
bind pub - !biathlon biathlon

# Начинаем процедуру.
proc biathlon {nick uhost hand chan text} {

# Указываем юзерагент.
::http::config -useragent "UserAgent"

# Урл и таймаут.
set tok [::http::geturl "http://m.sport-express.ru/winter/biathlon/ratings.wtm?ratingtype=n&sex=0" -timeout 15000]

# Получаем содержимое страницы.
set data [::http::data $tok]

# Очищаем токен.
::http::cleanup $tok

# Превращаем данные в одну строку заменив перенос строки на пустоту.
regsub -all -- {\n} $data "" data

# Забираем тайтл таблицы и выводим его в канал.
regexp -- {<h2 class=\"gray_section\">(.*?)</h2>} $data "" title
putserv "PRIVMSG $chan :$title"

# Забираем нужную нам часть с таблицей стран и очков.
regexp -- {<tr class=\"playtable_values\">(.*?)</table>} $data "" a

# Заменяем тэги на символ | чтобы потом разбить по ним строку.
regsub -all -- {<tr class=\"playtable_values\">} $a "|" a

# Перебираем каждую страну разбивая строку по |, достаем номер, название и очки. Выводим в канал.
foreach line {[split $a "|"]} {
    regexp -- {<td>(.*?)</td>.*?<td>(.*?)</td>.*?<td class=\"last\">(.*?)</td>} $a "" b c d
    putserv "PRIVMSG $chan :$b $c $d"
}

# Процедура закончена.
}

[Radiosignal]

Спасибо за скрипт tvrsh. Но там ошибка появилась.

Tcl error [biathlon]: list element in quotes followed by "]" instead of space
.tcl set errorInfo
Tcl: list element in quotes followed by "]" instead of space
Tcl: while executing
Tcl: "foreach line {[split $a "|"]} {
Tcl: regexp -- {<td>(.*?)</td>.*?<td>(.*?)</td>.*?<td class=\"last\">(.*?)</td>} $a "" b c d
Tcl: putserv "PRIVMSG $chan..."
Tcl: (procedure "biathlon" line 29)
Tcl: invoked from within
Tcl: "biathlon $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

Но, когда убираешь скобку ], то выводит только одну строку со страной.

[Vertigo]

foreach line {[split $a "|"]} { - лолшто
foreach line [split $a "|"] { - пробуй.

[tvrsh]

Я их специально вписал, чтобы вас проверить. Да.

[Radiosignal]

Выдает только одну строку.

Кубок наций (м.)
1 Франция 413

[tvrsh]

Замени

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

    regexp -- {<td>(.*?)</td>.*?<td>(.*?)</td>.*?<td class=\"last\">(.*?)</td>} $a "" b c d

на

TCL: [ Скачать ] [ Скрыть ]

Синтаксис: [ Скачать ] [ Показать ]

    regexp -- {<td>(.*?)</td>.*?<td>(.*?)</td>.*?<td class=\"last\">(.*?)</td>} $line "" b c d

А то регэксп брался не по каждой $line, а по общей $a.

[Radiosignal]

Спасибо Vertigo и tvrsh.

Добавлено спустя 20 минут 41 секунду:
tvrsh, а можешь добавить команду, что б можно было выбирать просмотр результатов - от Общего зачета до Эстафет. Например, !biathlon 1 - выдает результат по Кубку наций мужчин и так далее.