String Help

[Esoteric]

I have a string that is in this format

username :: username :: username :: username ::

I need to output this as a single line in my channel but I don't want the first two to ever appear in the output.

Can anyone help?

Thanks!
-Erik

[greenbear]

Code: Select all

lrange [join [split $string ::]] 2 end

[Esoteric]

how exactly to I then print that out?

[greenbear]

Code: Select all

bind pub - !parse parse:string
proc parse:string {nick uhost hand chan text} {
 set string "a :: b :: c :: d ::"
 set out [lrange [join [split $string ::]] 2 end]
 putserv "PRIVMSG $chan :$out"
}

[De Kus]

PS: you cannot split on "::", the interpreter will threat it like ":", but because the empty elements are merged together with join again it won't bother as long USERNAME doesn't contain a ":".

[greenbear]

hmm, good point, maybe something like this then..

Code: Select all

bind pub - !parse parse:string
proc parse:string {nick uhost hand chan text} {
 set string "a:b :: b :: c :: d ::"
 foreach s $string {
  if ![string match :: $s] {lappend out $s}
 }
 putserv "PRIVMSG $chan :[lrange $out 2 e]"

 # use this one if you want to keep the :: as a seperator
 # putserv "PRIVMSG $chan :[join [lrange $out 2 e] { :: }]"
}

[Esoteric]

Alright one more question, now I need to make every other one a different color ... ie ...


blue :: red :: blue :: red :: blue :: red


etc..

Any ideas?

[Esoteric]

I haven't been able to find anything that will work ... can anyone help?

[greenbear]

Code: Select all

bind pub - !parse parse:string
proc parse:string {nick uhost hand chan text} {
 set string "a:b :: b :: c :: d ::"
 set type 0
 foreach s $string {
  if ![string match :: $s] {
   if !$type {
    lappend out \00302$s
    set type 1
   } {
    lappend out \00304$s
    set type 0
   }
  }
 }
 putserv "PRIVMSG $chan :[join [lrange $out 2 e] { :: }]"
}

[Esoteric]

It doesn't work if the text has spaces ... for example:

firt last :: name :: last first :: name

The coloring gets jacked ... can you help?

Thanks!

[greenbear]

Code: Select all

bind pub - !parse parse:string
proc parse:string {nick uhost hand chan text} {
 set string "a:b :: b :: c :: d ::"
 set string [string map {"::" "~"} $string]
 set type 0
 foreach s [split $string ~] {
  if !$type {
   lappend out \00302$s
   set type 1
  } {
   lappend out \00304$s
   set type 0
  }
 }
 putserv "PRIVMSG $chan :[join [lrange $out 0 e] { :: }]"
}

Edit: fixed typo, thanks Sir_Fz !

[Sir_Fz]

You will need to change

Code: Select all

set string [string map {"::" "~"] $string]

to

Code: Select all

set string [string map {"::" "~"} $string]

Edit: You're welcome gb

[greenbear]

oops, and this is why I shouldn't post code at 6am..