Letztes Wort aus String loeschen

[G-Fire]

Guten Abend,
ich bin gerade auf ein kleines Problem gestosen, ich moechte das letzte Wort aus einem String loeschen.

Bsp.:
"das ist ein TEST"
wird zu
"das ist ein"

das ich das erste Wort mit
set bla [lrange $string 1 end]
entfernen kann ist klar. Aber wie geht es mit dem letzten Wort ?

Danke fuer eine helfende Antwort

G-Fire

edit.: Es ist nicht bekannt, wieviele Woerter der String beinhaltet

[maec]

ich denke mal es geht so....

set bla [lrange $string 0 end-1]

wenn nicht sry...^^

ps: kann nur diese seite empfehlen

http://tcl.return0.de/TclCmd/contents.htm

[darton]

Wenns nicht funktioniert:
[lrange [split $arg] end end]