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

[EvilHeart]

here website : http://www.fxstreet.com/rates-charts/currency-rates/
need only data

EUR/USD 1.2931 1.2920 1.2936 1.2918 +0.0011 +0.08% 21:59:18
USD/JPY 102.2850 102.4100 102.4400 102.2550 -0.1300 -0.12% 21:59:18
EUR/JPY 132.2555 132.3140 132.3800 132.1950 -0.0575 -0.04% 21:59:17

[tvrsh]

<tvrsh> !rates
<@bionic> Name - Last - Open - High - Low - Net chg. - Chg. % Last Time
<@bionic> EUR/USD - 1.2996 - 1.2998 - 1.3000 - 1.2996 - -0.0002 - -0.01 - 19:10:54
<@bionic> USD/JPY - 100.4800 - 100.4955 - 100.5055 - 100.3750 - -0.0200 - -0.02 - 19:11:33
<@bionic> EUR/JPY - 130.5850 - 130.5900 - 130.6305 - 130.5050 - 0.0050 - 0.00 - 19:10:51

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

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

bind pub - !rates fx

set needrates "EUR/USD USD/JPY EUR/JPY"

proc fx {nick uhost hand chan text} {
global needrates

::http::config -useragent "UserAgent"
set tok [::http::geturl "http://www.fxstreet.com/rates-charts/currency-rates/" -timeout 15000]
set data [::http::data $tok]
::http::cleanup $tok

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

putserv "PRIVMSG $chan :Name - Last - Open - High - Low - Net chg. - Chg. %     Last Time"

regexp -- {<table width="100%" style="cursor:pointer">(.*?)</table>} $data "" a

regsub -all -- {</tr>} $a "|" a
regsub -all -- {<td.*?>} $a "" a

foreach line [lrange [split $a "|"] 1 end] {
    regexp -- {<tr .*?> (.*?)</td> (.*?)</td> (.*?)</td> (.*?)</td> (.*?)</td> (.*?)</td> (.*?)</td> (.*?)</td>} $line "" b c d e f g h j
    foreach rate [split $needrates " "] {
        if {$b == $rate} {
            putserv "PRIVMSG $chan :$b - $c - $d - $e - $f - $g - $h - $j"
        }
    }
}

}

Show only first 10 results. See

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

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

if {$i < 10} {

to change it.

[EvilHeart]

thanks but i dont want full data
only need

EUR/USD 1.2931 1.2920 1.2936 1.2918 +0.0011 +0.08% 21:59:18
USD/JPY 102.2850 102.4100 102.4400 102.2550 -0.1300 -0.12% 21:59:18
EUR/JPY 132.2555 132.3140 132.3800 132.1950 -0.0575 -0.04% 21:59:17

data

Posted after 2 minutes 25 seconds:
or make script like this

<user> !rates EUR/USD < Bot Show Update Only EUR/USD >
<BOT> EUR/USD - 1.2996 - 1.2998 - 1.3000 - 1.2996 - -0.0002 - -0.01 - 13:55:30

[tvrsh]

Updated in previous post. You can add rates to needrates variable.

[EvilHeart]

ty alot