egghelp/eggheads community

Please look at this tcl-script

2002-10-04T15:01:12-04:00

Yep, I just got the error too, so it is. Unfortunately, this thread is going to spit that out of every reply now (I think). It happens

Statistics: Posted by slennox — Fri Oct 04, 2002 3:01 pm

Please look at this tcl-script

2002-10-04T15:00:14-04:00

darko, I think it's related to the old error discussed here:

http://forum.egghelp.org/viewtopic.php? ... ight=#8690

Statistics: Posted by slennox — Fri Oct 04, 2002 3:00 pm

Please look at this tcl-script

2002-10-03T16:12:32-04:00

@darko

Could you please explain how this regexp lines must look like?
(please paste the whole script again with your changes)

THANKS
jagg

Statistics: Posted by Guest — Thu Oct 03, 2002 4:12 pm

Please look at this tcl-script

2002-09-26T12:09:37-04:00

Umm, offtopic, but someone check why my reply to this msg shows twice, while i tought it wouldn't show even once... There was some error: General error - couldn't find template email-notify :/

Statistics: Posted by darko`` — Thu Sep 26, 2002 12:09 pm

Please look at this tcl-script

2002-09-26T12:06:53-04:00

I would suggest using regexp to find which lines are the ones containing info you seek and then proceede with the original script. Shouldn't be a problem really, cause the lines themselves are most probably are templates filled with data.

Statistics: Posted by darko`` — Thu Sep 26, 2002 12:06 pm

Please look at this tcl-script

2002-09-26T12:06:33-04:00

Statistics: Posted by darko`` — Thu Sep 26, 2002 12:06 pm

Please look at this tcl-script

2002-09-25T16:01:02-04:00

Hi,

here is the code i have made:

Code:

proc pub:pivot {nick host hand chan arg} {if {[llength $arg]==0} {putserv "PRIVMSG $channel :\0035 Ein Symbol musst Du schon eingeben :-)\003"} else {set stock [string toupper [lindex $arg 0]]set tok [http::geturl http://quotes.barchart.com/quote.asp?sym=$stock&code=BHTDR]set data [http::data $tok]set high [lindex [split $data \n] 127]set low [lindex [split $data \n] 128]set close [lindex [split $data \n] 129]set pivot [expr {([string map {{color="#000000">} {} {} {}} [lindex $high 7]] + [string map {{color="#000000">} {} {} {}} [lindex $low 7]] + [string map {{color="#000000">} {} {} {}} [lindex $close 7]]) / 3}]set r1 [expr {(2 * $pivot) - [string map {{color="#000000">} {} {} {}} [lindex $low 7]]}]set r2 [expr {$pivot + ([string map {{color="#000000">} {} {} {}} [lindex $high 7]] - [string map {{color="#000000">} {} {} {}} [lindex $low 7]])}]set s1 [expr {(2 * $pivot) - [string map {{color="#000000">} {} {} {}} [lindex $high 7]]}]set s2 [expr {$pivot - ([string map {{color="#000000">} {} {} {}} [lindex $high 7]] - [string map {{color="#000000">} {} {} {}} [lindex $low 7]])}]putserv "PRIVMSG $chan :\0030,14 Pivots for $stock -> \0038,14[format %.2f $r2] \0035,14(R2) \0038,14[format %.2f $r1] \0035,14(R1) \0038,14[format %.2f $pivot] \0035,14(Pivot) \0038,14[format %.2f $s1] \0035,14(S1) \0038,14[format %.2f $s2] \0035,14(S2) \003"}}

This script reads different lines from e.g. http://quotes.barchart.com/quote.asp?sy ... code=BHTDR and calculates pivot points.

Until now I look for the line nr. in the source to fetch the high, low and the close stockquote from yesterday (see the picture)

BUT

this won't work for the most of the time because the line nr. in the source code change VERY OFFEN

How could I fetch the needed stockquotes (high, low and the close from yesterday) in a better way (so that it doesnt care what line nr the needed stockquotes have)?

THANKS
jagg

I need these stockquotes

P.S.: The formula for calculate the pivot points can be see e.g. here
http://www.technical-investor.de/conten ... 2&hl=pivot

Statistics: Posted by Guest — Wed Sep 25, 2002 4:01 pm