RINDEX

 

Portability Function: Locates the index of the last occurrence of a substring within a string.

Module

USE IFPORT

Syntax

result = RINDEX (string,substr)

string

(Input) Character*(*). Original string to search.

substr

(Input) Character*(*). String to search for.

Results

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.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

Example

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

See Also