| View previous topic :: View next topic |
| Author |
Message |
gonzo Voice
Joined: 03 Dec 2005 Posts: 2
|
Posted: Sat Dec 03, 2005 2:18 pm Post subject: split 1 string to "many" strings |
|
|
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! |
|
| Back to top |
|
 |
demond Revered One

Joined: 12 Jun 2004 Posts: 3073 Location: San Francisco, CA
|
Posted: Sat Dec 03, 2005 3:58 pm Post subject: |
|
|
| Code: |
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: |
foreach word [split $text] {lappend x [string trim $word {{}}]}
|
_________________ connection, sharing, dcc problems? click <here>
before asking for scripting help, read <this>
use [code] tag when posting logs, code |
|
| Back to top |
|
 |
gonzo Voice
Joined: 03 Dec 2005 Posts: 2
|
Posted: Sun Dec 04, 2005 7:43 am Post subject: |
|
|
| thx demond! |
|
| Back to top |
|
 |
|