football results script

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

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

football results script

Сообщение EvilHeart » 14 янв 2012 21:19

my script show first line
11:14:49pm / * <----> !fres
11:14:53pm / * <----> Saturday 14th January 2012
11:14:54pm / * <----> Granada v Vallecano

but i need all line
Next Fixtures
Saturday 14th January 2012
Granada v Vallecano
Mallorca v R Madrid
R Zaragoza v Getafe
Seville v Espanyol
Valencia v R Sociedad

Sunday 15th January 2012
Ath Bilbao v Levante
Atl Madrid v Villarreal
Barcelona v Real Betis
Osasuna v Santander
Sp Gijon v Malaga


website : http://www.statto.com/football/stats/spain/primera-liga
here code

proc fres {nick uhost hand chan text} {
set t [::http::geturl http://www.statto.com/football/stats/spain/primera-liga]
set data [::http::data $t]
::http::cleanup $t
set l [regexp -all -inline -- {<h2 class="ct">Next Fixtures</h2>.*?<td colspan="3">(.*?)</td>.*?<td class="steam"><a href=".*?" class="b">(.*?)</a></td>.*?<td class="c1 sc">(.*?)</td>.*?<td class="steam"><a href=".*?" class="b">(.*?)</a></td>} $data]
foreach {black a b c d} $l {
putserv "PRIVMSG $chan : $a"
putserv "PRIVMSG $chan : $b $c $d"
}
}
EvilHeart
 
Сообщения: 42
Зарегистрирован: 28 апр 2011 21:29
Благодарил (а): 7 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.8

Re: fres

Сообщение tvrsh » 15 янв 2012 22:03

Try this:
TCL: [ Скачать ] [ Скрыть ]
proc fres {nick uhost hand chan text} {
set t [::http::geturl http://www.statto.com/football/stats/spain/primera-liga]
set data [::http::data $t]
::http::cleanup $t
regsub -all -nocase -- "<td class="steam">" $data "|" data
regsub -all -nocase -- "\n" $data "" data

foreach line [split $data "|"] {       
    regexp {<a href=.*?>(.*?)</a></td><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td><td>(.*?)</td><td class="sir">(.*?)</td><td class="sip">(.*?)</td><td class="ob">(.*?)</td>} $line "" a b c d e f g h
    putserv "PRIVMSG $chan : $a $b $c $d $e $f $g $h"
}
}


Добавлено спустя 20 минут 57 секунд:
Re: football results script
Oh, first script parse Spanish Primera Liga results.
For Next Fixtures try it:

TCL: [ Скачать ] [ Скрыть ]
proc fres {nick uhost hand chan text} {
set t [::http::geturl http://www.statto.com/football/stats/spain/primera-liga]
set data [::http::data $t]
::http::cleanup $t

regexp {<h2 class="ct">Next Fixtures</h2>(.*?)<div class="news">} $data "" data
regsub -all -nocase -- "<tr class=\"c0\">" $data "|" data
regsub -all -nocase -- "\n" $data "" data

foreach line [split $data "|"] {        
    regexp {<td class="steam"><a href=".*?" class="b">(.*?)</a></td><td class="c1 sc">v</td><td class="steam"><a href=".*?" class="b">(.*?)</a></td>} $line "" a b
    putserv "PRIVMSG $chan : $a v $b"
}
}

I need to install new IRC client to test it. I will do it later.
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: football results script

Сообщение EvilHeart » 16 янв 2012 08:31

first script error
Tcl error [fres]: extra characters after close-quote


2nd script error
Tcl error [fress]: can't read "a": no such variable
EvilHeart
 
Сообщения: 42
Зарегистрирован: 28 апр 2011 21:29
Благодарил (а): 7 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.8

Re: football results script

Сообщение tvrsh » 22 янв 2012 15:00

First:
TCL: [ Скачать ] [ Скрыть ]
bind pub - !fres fres
proc fres {nick uhost hand chan text} {
set t [::http::geturl http://www.statto.com/football/stats/spain/primera-liga]
set data [::http::data $t]
::http::cleanup $t

regsub -all -nocase -- {^.*?<div class="tableMini">} $data "" data
regsub -all -nocase -- {</table>.*?$} $data "" data
regsub -all -nocase -- "<td class=\"steam\">" $data "|" data
regsub -all -- "\n" $data "" data

set i 1
putserv "PRIVMSG $chan <img src="https://forum.egghelp.ru/images/smilies/icon_razz.gif" alt=":P" title="Razz" />lace Team P GD Pt W-D-L Index Points Odds"
foreach line [lrange [split $data "|"] 2 end] {        
    regsub -all -- {<.*?>} $line {} line
    regsub -all -- "  " $line " " data
    putserv "PRIVMSG $chan :$i. $line"
    incr i
}
}


Result:
<tvrsh> !fres
<bionic> Place Team P GD Pt W-D-L Index Points Odds
<bionic> 1. R Madrid 18 +46 46 5-0-1 992 92 1.6 2
<bionic> 2. Barcelona 18 +44 41 4-1-1 992 86 2.5 3
<bionic> 3. Valencia 18 +9 34 3-1-2 921 68 251 4
...


Добавлено спустя 16 минут 8 секунд:
Second:
TCL: [ Скачать ] [ Скрыть ]
bind pub - !fres fres
proc fres {nick uhost hand chan text} {
set t [::http::geturl http://www.statto.com/football/stats/spain/primera-liga]
set data [::http::data $t]
::http::cleanup $t

regsub -all -nocase -- {^.*?<h2 class="ct">Next Fixtures</h2>} $data "" data
regsub -all -nocase -- {<div class="news">.*?$} $data "" data
regsub -all -nocase -- {</table>} $data "|" data
regsub -all -- {\n} $data "" data

putserv "PRIVMSG $chan :Next Fixtures"
foreach line [lrange [split $data "|"] 0 end-1] {        
    regexp {<td colspan="3">(.*?)</td>} $line "" date
    regsub -all -nocase -- {<tr class="c0">} $line "|" line
    putserv "PRIVMSG $chan :\002$date\002"
    foreach subline [lrange [split $line "|"] 1 end] {
        regsub -all -- {<.*?>} $subline {} subline
        putserv "PRIVMSG $chan :$subline"
    }
}
}

Result:
<tvrsh> !fres
<bionic> Next Fixtures
<bionic> Sunday 22nd January 2012
<bionic> Levante v R Zaragoza
<bionic> Malaga v Barcelona
...
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: football results script

Сообщение EvilHeart » 24 янв 2012 01:41

ty tvrsh
EvilHeart
 
Сообщения: 42
Зарегистрирован: 28 апр 2011 21:29
Благодарил (а): 7 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.8

Re: football results script

Сообщение EvilHeart » 03 мар 2012 02:28

can you give me result script
website :http://www.statto.com/football/stats/england/premier-league
need output
Код: Выделить всё
Latest Results
Sunday 26th February 2012
Arsenal    5-2    Tottenham
Norwich C    1-2    Man Utd
Stoke City    2-0    Swansea C

Saturday 25th February 2012
Chelsea    3-0    Bolton W
Man City    3-0    Blackburn
Newcastle    2-2    Wolves
QPR    0-1    Fulham
West Brom    4-0    Sunderland
Wigan Ath    0-0    Aston V
EvilHeart
 
Сообщения: 42
Зарегистрирован: 28 апр 2011 21:29
Благодарил (а): 7 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.8

Re: football results script

Сообщение tvrsh » 13 мар 2012 21:09

TCL: [ Скачать ] [ Скрыть ]
bind pub - !fres fres
proc fres {nick uhost hand chan text} {
set t [::http::geturl http://www.statto.com/football/stats/spain/primera-liga]
set data [::http::data $t]
::http::cleanup $t

regsub -all -nocase -- {^.*?<h2 class="ct">Latest Results</h2>} $data "" data
regsub -all -nocase -- {<h2 class="ct">Next Fixtures</h2>.*?$} $data "" data
regsub -all -nocase -- {</table>} $data "|" data
regsub -all -- {\n} $data "" data

putserv "PRIVMSG $chan :Latest Results"
foreach line [lrange [split $data "|"] 0 end-1] {        
    regexp {<td colspan="3">(.*?)</td>} $line "" date
    regsub -all -nocase -- {<tr class="c0">} $line "|" line
    putserv "PRIVMSG $chan :\002$date\002"
    foreach subline [lrange [split $line "|"] 1 end] {
        regsub -all -- {<.*?>} $subline {} subline
        putserv "PRIVMSG $chan :$subline"
    }
}
}


<tvrsh> !fres
<@bionic> Latest Results
<@bionic> Monday 12th March 2012
<@bionic> Villarreal 1-2 Getafe
<@bionic> Sunday 11th March 2012
<@bionic> Atl Madrid 2-0 Granada
<@bionic> Espanyol 5-1 Vallecano
<@bionic> Osasuna 2-1 Ath Bilbao
<@bionic> Santander 0-2 Barcelona
<@bionic> Valencia 2-2 Mallorca
<@bionic> Saturday 10th March 2012
<@bionic> Malaga 1-0 Levante
<@bionic> Real Betis 2-3 R Madrid
<@bionic> R Sociedad 3-0 R Zaragoza
<@bionic> Sp Gijon 1-0 Seville


Добавлено спустя 2 минуты 2 секунды:
And change link to http://www.statto.com/football/stats/en ... ier-league to get england info.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.

За это сообщение автора tvrsh поблагодарил:
EvilHeart (15 май 2013 02:08)
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Re: football results script

Сообщение EvilHeart » 20 мар 2012 04:40

thanks
EvilHeart
 
Сообщения: 42
Зарегистрирован: 28 апр 2011 21:29
Благодарил (а): 7 раз.
Поблагодарили: 0 раз.
Версия бота: Eggdrop 1.8


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

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

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

cron