comma seperated list

[Jagg]

Hi,

if I have eg

"2,4,6,8,10,12,14" in a variable. How can "split" that into 9 "different variables" so that

eg $3 gives me 6

$1 gives me 2

and so on....

Thanks

[caesar]

Simple, split then use an for to make the variables.

[user]

Code: Select all

proc tokenize {str {split " "}} {
	set i -1
	foreach v [split $str $split] {
		uplevel 1 [list set [incr i] $v]
	}
	incr i
}

usage: tokenize $yourString ","
returns: the number of variables created (the first one is "0")

[Ofloo]

Code: Select all

proc tokenize {str {split " "}} {
	set i -1
	foreach v [split $str $split] {
		uplevel 1 [list set [incr i] $v]
	}
	incr i
}

usage: tokenize $yourString ","
returns: the number of variables created (the first one is "0")

this seems realy complicated just to split a ',' is it faster ? does uplevel export it outside the proc ? or something cause unless its doing that i must be missing something cause the tokenize is local..

sorr just curious can't get a grip on uplevel just yet i know it is something like eval but .. thats it

[awyeah]

Also string map can do the job for you, in only line. Regsub is also an alternative, but string map is faster.

Replace the comma's by an empty space. Now you have created a list with elements. Then foreach element in the list make a variable. Use a counter for the variable's name and the value will be the element.

[Jagg]

Thanks for your answers!!!

[user]

this seems realy complicated just to split a ',' is it faster ? does uplevel export it outside the proc ? or something cause unless its doing that i must be missing something cause the tokenize is local..

It does what he requested. (creates the variable(s) in the scope the proc is invoked from)

Replace the comma's by an empty space. Now you have created a list with elements.

Wrong. You also need to escape alot of special characters. 'split' exists for a reason.