egghelp/eggheads community

web query

2007-01-11T13:03:42-04:00

or you could use break, instead of appending each result?

Code:

set match ""foreach line [split $all \n] {  if {[string match *2007-* $line]} {    set match "$line"    break  }}if {$match == ""} { return }# continue with script

Statistics: Posted by r0t3n — Thu Jan 11, 2007 1:03 pm

web query

2007-01-11T12:49:33-04:00

great thanks for the help ros...it`s working fine now.

thanks again!

Statistics: Posted by NewzUK — Thu Jan 11, 2007 12:49 pm

web query

2007-01-11T12:03:47-04:00

It gets the last line because of the foreach, each time it matches, it clobbers the 1st match.. So, you should take out the foreach, or alternatively use lappend to append each subsequent match and then use lindex 0 to get the 1st match.

Statistics: Posted by rosc2112 — Thu Jan 11, 2007 12:03 pm

web query

2007-01-11T11:17:42-04:00

Hi - I`m trying to retrieve the first line of a list of headlines from a webpage, but instead it gets the last one at the bottom of the list...?

Here`s the first part of the script - 2007- is what I`m using to identify the lines...

set query "http://a-website-goes-here.com"
set token [http::geturl $query]
set all [http::data $token]
foreach line [split $all \n] {
if {[string match "*2007-*" $line]} {

Thanks in advance for any help

Statistics: Posted by NewzUK — Thu Jan 11, 2007 11:17 am