isin / string match

NewzUK · Post by **NewzUK** » Sun Feb 08, 2004 1:02 am

Hi

I'm trying to modify a script so that if the word reuters is contained in $url it will msg the channel one thing and if not, another.

This is what I've come up with but I don't know if 'isin' is valid in TCL like it is in mIRC scripting...

if (reuters isin $url) {
puthelp "PRIVMSG $chan :12,12 1,15 $title - Reuters "
puthelp "PRIVMSG $chan :» http://abcnews.go.com$url" }
else {
puthelp "PRIVMSG $chan :12,12 1,15 $title - AP "
puthelp "PRIVMSG $chan :» http://abcnews.go.com$url" }

Thanks in advance...

Post by **caesar** » Sun Feb 08, 2004 3:22 am

Code: Select all

if {[lsearch -exact [string tolower $url] "reuters"] != -1} {
# it matches..
}

NewzUK · Post by **NewzUK** » Sun Feb 08, 2004 5:11 am

thanks caesar

it dosn't seem to be catching the word, and is returning the news in the 'else' format everytime even if reuters is in the URL...here's the part of the script:

### Compair the both hashes, announce news if they differ and create new datafile.
if {$newhash != $oldhash} {
if {[lsearch -exact [string tolower $url] "reuters"] != -1} {
abcmsg "4,4 1,15 [gettime -5]ET $title - Reuters "
abcmsg "4,4 0,14 » http://abcnews.go.com$url "
} else {
abcmsg "4,4 1,15 [gettime -5]ET $title - AP "
abcmsg "4,4 0,14 » http://abcnews.go.com$url "
}
}

Here's an example of a url with the word in it:
http://abcnews.go.com/wire/World/reuter ... 08_93.html

that's the one I want it to send the first msgs in - if reuters isn't in it then I want it to send the other...

thanks again.

Post by **caesar** » Sun Feb 08, 2004 5:34 am

[11:31] (caesar): .tcl set url "foo bar reuters moo" ; if {[lsearch -exact [string tolower $url] "reuters"] != -1} { putlog "bla" }
[11:31] (Toy): [11:31] bla
[11:31] (Toy): Tcl:

As you can see is working fine at me.. probably your $url is not good or something..

Also, I've tryed that link and got an "Sorry. This content is not available. We apologize for the inconvenience." msg from that page..

NewzUK · Post by **NewzUK** » Sun Feb 08, 2004 5:49 am

sorry I mis-pasted the sample URL:

http://abcnews.go.com/wire/World/reuter ... 08_26.html

that one works...

arcane · Post by **arcane** » Sun Feb 08, 2004 8:08 am

caesar wrote:

Code: Select all

if {[lsearch -exact [string tolower $url] "reuters"] != -1} {
# it matches..
}

why not using string match -nocase *reuters* ? isn't $url a string?

NewzUK · Post by **NewzUK** » Sun Feb 08, 2004 8:27 am

thanks arcane - that works!

Post by **caesar** » Sun Feb 08, 2004 4:41 pm

lazy probably

NewzUK · Post by **NewzUK** » Sun Feb 08, 2004 4:59 pm

lazy? his worked and yours didn't so I'd ask myself who is the lazy one

arcane · Post by **arcane** » Mon Feb 09, 2004 10:41 am

NewzBoy wrote:lazy? his worked and yours didn't so I'd ask myself who is the lazy one

i think he meant himself.

...at least i hope so

@caesar: hmm... how long ago is it that you read that topic about "using list commands on strings" last time?

Post by **CrazyCat** » Mon Feb 09, 2004 12:25 pm

arcane, you're not fair....
remember that caesar is old and tired

Post by **caesar** » Mon Feb 09, 2004 3:45 pm

I'm Grandpa now?

I meant for myself that I sometimes tend to be lazy and screw up things..

Post by **CrazyCat** » Tue Feb 10, 2004 4:57 am

Caesar, don't worry

We all make mistakes sometimes, our brains are working too much.
But we can't do anything against that, it's the trouble that know any genious