Portability Function: Locates the index of the last occurrence of a substring within a string.
result = RINDEX (string,substr)
string |
(Input) Character*(*). Original string to search.
|
substr |
(Input) Character*(*). String to search for.
|
結果
The result type is INTEGER(4). The result is the starting position of the final occurrence of substrg in string. The result is zero if substring does not occur in string.
例
USE IFPORT
character*80 mainstring
character*4 shortstr
integer(4) where
mainstring="Hello Hello Hello Hello There There There"
shortstr="Hello"
where=rindex(mainstring,shortstr)
! where is 19