mirror of
https://github.com/gnustep/libs-steptalk.git
synced 2025-02-23 03:20:57 +00:00
c2c2d22254
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/steptalk/trunk@13642 72102866-910b-0410-8b05-ffd578937521
27 lines
801 B
Smalltalk
27 lines
801 B
Smalltalk
" Range example "
|
|
|str substr range|
|
|
|
|
str := 'I like apples and plums.'.
|
|
|
|
Transcript showLine: ('String is : \'', str, '\'').
|
|
|
|
substr := str substringWithRange: (7 <> 5).
|
|
|
|
Transcript showLine: ('Substring at location 7 with length 5 is \'',
|
|
substr, '\'').
|
|
|
|
range := str rangeOfString: 'tomato'.
|
|
|
|
((range location) = NSNotFound)
|
|
ifTrue:
|
|
[ Transcript showLine: 'Tomato not found' .].
|
|
|
|
range := str rangeOfString: 'plum'.
|
|
|
|
Transcript showLine: ('Location of \'plum\' is ', ((range location) stringValue),
|
|
' and length is ', ((range length) stringValue)).
|
|
|
|
range := ( (range location) <> 5).
|
|
|
|
Transcript showLine: ('Substring with modified range \'',
|
|
(str substringWithRange:range), '\'').
|