egghelp/eggheads community

variable to lines

2002-06-02T23:58:00-04:00

actually, i dunno wtf i was thinking when i wrote that - there is a much simpler solution >>

set blah [split $instring |]
foreach a $blah {putserv "PRIVMSG $chan :$a"}

Statistics: Posted by Petersen — Sun Jun 02, 2002 11:58 pm

variable to lines

2002-06-02T23:12:00-04:00

thanks guys

Statistics: Posted by Guest — Sun Jun 02, 2002 11:12 pm

variable to lines

2002-06-02T23:06:00-04:00

thats a very convoluted way of doing it. personally I'd just split it into a list using | as the seperator, and run a for loop through it
something like
set blah [split $instring |]
for {set x 0} {$x == [llength $blah]} {incr x} {
putserv "PRIVMSG $chan :[lindex $blah $x]"
}

Statistics: Posted by Petersen — Sun Jun 02, 2002 11:06 pm

variable to lines

2002-06-02T20:41:00-04:00

Simplest/quickest way I can think of is this:

set test "some text | some more text | and even more text |"
set test [cleanarg $test]
set oga ""
foreach t $test {
if {$t != "|"} {
if {$oga == ""} {
set oga $t
} else {
set oga "$t $oga"
}
} else {
putserv "privMSG #somechan :$oga"
set oga ""
}
}
proc cleanarg {arg} {
set temp ""
for {set i 0} {$i < [string length $arg]} {incr i} {
set char [string index $arg $i]
if {($char != "12") && ($char != "15")} {
append temp $char
}
}
set temp [string trimright $temp "}"]
set temp [string trimleft $temp "{"]
return $temp
}

The cleanup proc seperates each word.

_________________
Searchig
One clueless user

[ This Message was edited by: Searchig on 2002-06-02 18:42 ]

Statistics: Posted by Guest — Sun Jun 02, 2002 8:41 pm

variable to lines

2002-06-02T20:12:00-04:00

Hi again, more problems
set test "some text | some more text | and even more text"

putserv "PRIVMSG #somechan :$test"

is it possible to make a new line after every | ? while thingy or something

Statistics: Posted by Guest — Sun Jun 02, 2002 8:12 pm