Posted to tcl by hypnotoad at Mon Oct 03 15:33:27 GMT 2016view raw

  1. proc findSprache {string} {
  2. # Find the start
  3. set i [string first "sprache=" [string tolower $string]"
  4. set i [expr {$i + [string length sprache=]}]
  5. set block [string range $string $i end]
  6. set j [string first | $block]
  7. return [string range $block 0 $j-1]
  8. }