String insertion

What's the best (most elegant/efficient...) way to insert a string into another string at a given index?

Say I have the string 'Toto-Tata-Titi' and I want to build the string 'Toto-Tests-Tata-Titi'

I could think of the following:

| string sepIndex stream |
string := 'Toto-Tata-Titi'.
sepIndex := string indexOf: $-.
stream :=String new writeStream.
stream nextPutAll: (string copyFrom: 1 to: sepIndex).
stream nextPutAll: 'Tests'.
stream nextPutAll: (string copyFrom: sepIndex to: string size).
^ stream contents


Any suggestion?

--
 Simon




_______________________________________________
Pharo-users mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-users