Help with splitup a line!

[KuBuntU]

I have this in a variable $line

Code: Select all

KuBuntU!~KuBuntU@xxxxxx.eu User: KuBuntU     IRC: KuBuntU!~KuBuntU@xxxxxx.eu  

and i wanted this splited up as variable.
$ircidentnow $username $savedircident

the User: and IRC: i not want in any of variables.

[speechles]

I have this in a variable $line

Code: Select all

KuBuntU!~KuBuntU@xxxxxx.eu User: KuBuntU     IRC: KuBuntU!~KuBuntU@xxxxxx.eu  

and i wanted this splited up as variable.
$ircidentnow $username $savedircident

the User: and IRC: i not want in any of variables.

Code: Select all

regexp -- {(.+?)\sUSER\:\s(.+?)\sIRC\:\s(.+?)} $line -> ircidentnow username savedircident

-- or like this --

Code: Select all

regsub -all {(?:USER\:\s|IRC\:\s|\s\s)} $line "" line
set ircidentnow [lindex [split $line] 0]
set username [lindex [split $line] 1]
set savedircident [lindex [split $line] 2]

Could've used 'scan' to do this as well, maybe. The top is easiest to accomplish, but if it cannot match this will not associate to any variables (it CAN fail). Eventually tcl errors or work arounds involving variables with empty contents/info exists checks will be required since at times this regexp pattern might not fit and run into code needing these variables.

The bottom way is better (it CANNOT fail). It removes user:, irc:, and double spacing from $line. Then when it splits $line to form the list it aligns perfectly to your variable assignments.

[Sir_Fz]

Using [scan] it can be done like this:

Code: Select all

scan $line "%s User: %s IRC: %s" ircidentnow username savedircident