[Back to STRINGS SWAG index] [Back to Main SWAG index] [Original]

    {*****************************************************************************
     * Function ...... InStrR
     * Purpose ....... To locate a substring in a string starting at a given
     *                 position from the right of the string.
     * Parameters .... n        Position in the string to start searching
     *                 sub      Substring to search for
     *                 s        String to search in
     * Returns ....... Numeric position of <sub> in string <s> after position <n>
     *                 from right to left.
     * Notes ......... Uses function Right
     * Author ........ Martin Richardson
     * Date .......... October 2, 1992
     *****************************************************************************}
    FUNCTION InStrR( n: BYTE; sub: STRING; s: STRING ): BYTE;
    VAR i: INTEGER;
    BEGIN
         i := POS( sub, Right( s, LENGTH(s)-n+1 ) ) + n - 1;
         IF i = 0 THEN
             InStrR := i
         ELSE
             InStrR := LENGTH( s ) - i + 1;
    END;

[Back to STRINGS SWAG index] [Back to Main SWAG index] [Original]