Posted to tcl by hypnotoad at Mon Oct 03 15:33:27 GMT 2016view raw
- proc findSprache {string} {
- # Find the start
- set i [string first "sprache=" [string tolower $string]"
- set i [expr {$i + [string length sprache=]}]
- set block [string range $string $i end]
- set j [string first | $block]
- return [string range $block 0 $j-1]
- }