egghelp/eggheads community

Question to a script...

2004-09-16T20:27:04-04:00

Good luck!

Statistics: Posted by awyeah — Thu Sep 16, 2004 8:27 pm

Question to a script...

2004-09-16T16:52:49-04:00

Thank you very much !

my script is not working at the moment, but im working on it
im new in Tcl, so i will read some manuals, and i hope then i can bind your code into my script

but now i have a base, and know how it can work, so i thing i should be able to make it

greets, sceada

Statistics: Posted by Guest — Thu Sep 16, 2004 4:52 pm

Question to a script...

2004-09-15T21:20:04-04:00

Well use something like this.
Replace the variable $args with $text or $arg as $args in tcls stands for a list, and it is showing your variables in a list structure with the { }.

Example:
set mynames { "james" "lewis" "jessica" "dave" "michael" }

Code:

set newvar "[lindex $text 0]_[lindex $text 1]"#This should make them in the form "$var1_$var2"#or on your current settings you can doset newvar [join $var {_}] #where $var is the list being shown as {Black Lotus}

If you want to do it for "N" variables then you would need to do a for loop and incr value one at a time for each lindex in $text and lappend all the variables in a new list and then join with {_}.

Something like this: (not tested)

Code:

set variables [list]set textlength [expr [llength $text] - 1] for {set i 0} {$i < $textlength} {incr i} {  if {([lindex $text $i] != "")} {    lappend variables [lindex $text $i]   }  }  if {($variables != "")} { set variables [join $variables {_}] }  #Then go ahead and do your stuff with $variables and display them.

Alternatively, you can also use concat.
See the tcl manual for commands such as join, concat, lappend, append etc.

Statistics: Posted by awyeah — Wed Sep 15, 2004 9:20 pm

Question to a script...

2004-09-15T13:57:18-04:00

Hi !

I have a Problem with a search script i`ve written...
I have the script with different commands and urls, but i use only one of them here to explain you my Problem.
(this bot is for a bot in a channel where we talk about Magic the Gathering..)

The script:
bind pub - .info infosearch

proc infosearch { nick uhost hand chan args } {
putchan $chan http://magiccards.info/query.php?cardname=$args
}

This works fine, if there is only 1 keyword to search:
(@sceada) .info Lotus
(@|magicbot|) http://magiccards.info/query.php?cardname=Lotus

But now my Problem:
when there are 2 Words, it doesnt work :
(@sceada) .info Black Lotus
(@|magicbot|) http://magiccards.info/query.php?cardname={Black Lotus}

But i want the Bot to give out the 2 Words with an "_" between...
(http://magiccards.info/query.php?cardname=Black_Lotus)

how can i make this ?
(or even for more words...)

(im sorry for my bad english, but i`m from Austria...)
mfg, sceada

Statistics: Posted by Guest — Wed Sep 15, 2004 1:57 pm