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

[EvilHeart]

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"
}
}

[tvrsh]

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.

[EvilHeart]

first script error

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

2nd script error

Tcl error [fress]: can't read "a": no such variable

[tvrsh]

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
...

[EvilHeart]

ty tvrsh

[EvilHeart]

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


[tvrsh]

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.

[EvilHeart]

thanks