karofilm.tcl - информация о сеансах в сети кинотеатров КАРО.

Решение вопросов при работе с TCL скриптами.

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

karofilm.tcl - информация о сеансах в сети кинотеатров КАРО.

Сообщение tvrsh » 27 ноя 2011 11:59

Название: karofilm.tcl
Версия: 1.1
Автор: tvrsh
Описание: Скрипт забирает с сайта http://karofilm.ru/ информацию о сеансах. Для описания параметров команды используйте !karo help
Поддержка Suzi: Да
Пример работы:
# Сеансы на сегодня.
<tvrsh> !karo help
-bionic- Расписание фильмов, идущих в кинотеатрах сети «Каро фильм».
-bionic- В параметрах команды можно указать <название кинотеатра> и +<дни> для поиска в кинотеатрах отличных от дефотного и на указанное количество дней вперед.
-bionic- Например: !karo алтуфьево +2 - просмотр сеансов в кинотеатре Каро фильм Алтуфьево на послезавтра.

# Смотрим сеансы на сегодня в дефолтном кинотеатре.
<tvrsh> !karo
<@bionic> Каро Фильм Подольск: 22.12.2012.
<@bionic> 'Хоббит: Нежданное путешествие' - 19:50/Зал 4, 23:10/Зал 4.
<@bionic> 'Хоббит: Нежданное путешествие 3D' - 21:30/Зал 2, 20:20/Зал 3.
<@bionic> Любовный переплёт (Digital) - 23:35/Зал 3.

Ссылка на скрипт: karofilm.tcl
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: karofilm.tcl - информация о сеансах в сети кинотеатров К

Сообщение wr` » 25 апр 2012 10:55

Приветствую!нарисовалась ошибочка
при запросе !karo
•(10:52:21)• <(Paul> [10:49:40] Tcl error [::karofilm::karofilm_pub]: can't read "week": no such variable
•(10:52:33)• <ban> .set errorInfo
•(10:52:34)• <(Paul> [10:49:54] #ban# set errorInfo
•(10:52:34)• <(Paul> Currently: can't read "week": no such variable
•(10:52:34)• <(Paul> Currently: while executing
•(10:52:34)• <(Paul> Currently: "regsub -all -- {<div class=menu>} $week "|" week"
•(10:52:34)• <(Paul> Currently: (procedure "::karofilm::karofilm_proc" line 42)
•(10:52:34)• <(Paul> Currently: invoked from within
•(10:52:34)• <(Paul> Currently: "::karofilm::karofilm_proc $nick $uhost $hand $chan $text"
•(10:52:34)• <(Paul> Currently: (procedure "::karofilm::karofilm_pub" line 8)
•(10:52:34)• <(Paul> Currently: invoked from within
•(10:52:34)• <(Paul> Currently: "::karofilm::karofilm_pub $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"
Аватара пользователя
wr`
 
Сообщения: 121
Зарегистрирован: 26 май 2009 21:17
Благодарил (а): 19 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21+suzi

Re: karofilm.tcl - информация о сеансах в сети кинотеатров К

Сообщение tvrsh » 25 апр 2012 11:02

Сайт полностью обновился, пропала pda версия. Появился экспорт сеансов в xml.
Посмотрю что можно сделать.
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: karofilm.tcl - информация о сеансах в сети кинотеатров К

Сообщение tvrsh » 22 дек 2012 19:43

Скрипт полностью обновил. Смотрите первый пост.
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: karofilm.tcl - информация о сеансах в сети кинотеатров К

Сообщение Jake » 18 янв 2013 05:47

вместо буквы "р" в начале слов, выводится знак вопроса:

[13:30:50] «друг» !karo Южное бутово
[13:30:51] «@Zeus» Дублер - 14:05/Зал №8, 18:50/Зал №8, 23:20/Зал №8.
[13:30:51] «@Zeus» Анна Каренина 2D - 11:50/Зал №3, 21:50/Зал №3.
[13:31:51] «@Zeus» Джанго освобожденный 2D - 15:10/Зал №3, 18:30/Зал №3.
[13:31:51] «@Zeus» Джек ? ичер 2D - 10:00/Зал №4, 12:40/Зал №4, 15:20/Зал №4, 18:10/Зал №4, 21:10/Зал №4, 23:50/Зал №4.
[13:31:52] «@Zeus» ? одительский беспредел 2D - 11:15/Зал №5, 15:25/Зал №5, 19:35/Зал №5, 22:00/Зал №5.
Jake
 
Сообщения: 26
Зарегистрирован: 21 май 2012 11:17
Благодарил (а): 3 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.6.21+suzi

Re: karofilm.tcl - информация о сеансах в сети кинотеатров К

Сообщение tvrsh » 19 мар 2013 19:06

Jake, замени строку
    regsub -all -- {\s} $data " " data

на
    regsub -all -- {[\x20\x09]+} $data " " data

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


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

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

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

cron