[SOLVED] [tcl]split

Wim Sturkenboom · 07-05-2006, 09:02 AM

Code:

OK BVN060705FLN1625 2006/07/05 16:25:00 {eng, "Hondjes", "Een leuk langharig hondengezin, bestaande uit 3 puppies en hun ouders, hebben hun huis en baas ingeruild voor het vrije leven en komen terecht op een rangeerterrein in een grote stad. Daar beleven ze vele spannende avonturen.", "Kinderprogramma", E} 1099

The above is a list generated in tcl. The 5th element (lindex $variable 4) needs to be split into its 5 subelements.
I'm a bit stuck as it can't be split on comma as the subelements can contain commas as well; similar for space. Is there an intelligent tcl-way or do I have to analyze the line (basically char by char)?

Wim Sturkenboom · 07-05-2006, 09:07 AM

And of course, the bell rang a few minutes later

Replace <space><doublequote> by a <space><curly> and <doublequote><comma> by <curly><space>

Code:

set epg [string map {\", \}\  \ \" \ \{} [lindex $record 4]]