egghelp/eggheads community

stopping at one line

2004-02-23T21:08:54-04:00

anyone able to help me with this one? nothing I've tried is working...

so near but so far!

thanks again...

Statistics: Posted by NewzUK — Mon Feb 23, 2004 9:08 pm

stopping at one line

2004-02-21T19:10:24-04:00

I got around some other problems by using your gettok proc user now the only thing that dosn't work is the compare so it dosn't repeat same items...

Statistics: Posted by NewzUK — Sat Feb 21, 2004 7:10 pm

stopping at one line

2004-02-21T19:07:55-04:00

thanks - have removed the "." from it - now I get either errors for can't read $mkwlast or wrong args - should be set varname newvalue

if {$mkwlast != $mkw} {
set mkwlast $mkw {

Statistics: Posted by NewzUK — Sat Feb 21, 2004 7:07 pm

stopping at one line

2004-02-21T18:49:12-04:00

Tcl error [pub:readmkw]: syntax error in expression "$mkw.last != $mkw": extra tokens at end of expression

That's due to the "." in your variable name. If you want to use special characters in your variable names you have to enclose the name in braces so tcl knows where the name ends. Eg: ${mkw.last}
Check this page for details.

Statistics: Posted by user — Sat Feb 21, 2004 6:49 pm

stopping at one line

2004-02-21T18:27:01-04:00

thanks - it now stops.
I'm also trying to set up a check so that it dosn't post the same headline if it was posted last - something like:

if {$mkw.last != $mkw} {
set mkw.last $mkw {

but that dosn't quite seem to work due to:
Tcl error [pub:readmkw]: syntax error in expression "$mkw.last != $mkw": extra tokens at end of expression

Statistics: Posted by NewzUK — Sat Feb 21, 2004 6:27 pm

stopping at one line

2004-02-21T18:04:37-04:00

This post reminds me alot of http://forum.egghelp.org/viewtopic.php?p=33786#33786
don't double post - go read the forum rules. (regarding your problem: use 'break' to break out of the loop)

Statistics: Posted by user — Sat Feb 21, 2004 6:04 pm

stopping at one line

2004-02-21T17:45:23-04:00

hi - I have this script to read a line in a file - it finds the line I want, but it reads the whole file to the channel - I only want it to read the first line with /04 in it...

proc pub:readmkw { nick uhost handle channel arg } {
set mkwf [open /home/citinews/Bots/Undernet/news/mkw2.txt r]
set data [read $mkwf]
foreach line [split $data \n] {
if {[string match */04* $line]} {
set mkw [string range $line 20 end]
if {[string match *\]* $mkw]} {
putserv "PRIVMSG #Newsroom2 :4,4 1,15 [gettime -18]ET $mkw "
} else {
putserv "PRIVMSG #Newsroom2 :4,4 4,15 [gettime -18]ET * $mkw "
}
}
}
}

thanks...

Statistics: Posted by NewzUK — Sat Feb 21, 2004 5:45 pm