split 1 string to "many" strings

gonzo · Post by **gonzo** » Sat Dec 03, 2005 2:18 pm

First of all: i only did very little tcl programming so far and couldn't find a solution to my problem in the forum and the tcl FAQ...

problem:
i have one string which looks like
{some numbers} {text1} {text2} {text3} {text4}

and i want every "information" between { } as a seperate string:
a = "some numbers"
b = "text1"....

i played around with string last/first and string range, but was only able to get the first ("some numbers") and the last ("text4") part.

bonus question

how do i extract the first word of text4 only?

thanx for your help!

demond · Post by **demond** » Sat Dec 03, 2005 3:58 pm

Code: Select all

foreach {foo word} [regexp -all -inline {{(.*?)}} $text] {lappend x $word}

then in x you have a list of the strings you need

or you can strip braces from each word (but this won't work if you lack spaces):

Code: Select all

foreach word [split $text] {lappend x [string trim $word {{}}]}

gonzo · Post by **gonzo** » Sun Dec 04, 2005 7:43 am

thx demond!