' TAILSTR$(0.0)  Get Character String Tail                 09/23/1992-01/29/2010
' ------------------------------------------------------------------------------
' Copyright (C) 1992-2010 by Vladimir Veytsel                      www.davar.net

' Type -------------------------------------------------------------------------

'    Function

' Description ------------------------------------------------------------------

'    TAILSTR$ function returns string tail of its first argument delimited by
'    first occurrence of its second argument.

' Parameters -------------------------------------------------------------------

'    Strng$  - Character string
'    Delim$  - Delimiting substring of string tail

' Value ------------------------------------------------------------------------

'  - IF specified string is EMPTY,
'       THEN returned string is EMPTY.

'  - IF specified string is NOT empty        AND
'       delimiting substring is either empty OR
'       NOT found within specified string,
'       THEN returned string is EMPTY.

'  - IF specified string is NOT empty AND
'       delimiter is found within specified string,
'       THEN string tail is returned to the point of invocation.

' Notes ------------------------------------------------------------------------

'  - First delimiter occurance from string left side delimits
'    the returned substring.
'  - If specified string ends with unique delimiter,
'    then returned substring will be empty.
'  - Returned substring never contains delimiter itself.

' Examples ---------------------------------------------------------------------

'    TAILSTR$(""   ,"XYZ")=""
'    TAILSTR$("ABC",""   )=""
'    TAILSTR$("ABC","XYZ")=""
'    TAILSTR$("ABC","A"  )="BC"
'    TAILSTR$("ABC","AB" )="C"
'    TAILSTR$("ABC","C"  )=""

' Start Function ---------------------------------------------------------------

     DEFINT A-Z  ' All defaulted variables are integer

     FUNCTION TAILSTR$(Strng$,Delim$)

' Form and Return Function Value to the Point of Invocation --------------------

     IF ((LEN(Strng$)=0)OR _
         (LEN(Delim$)=0)) THEN
        TAILSTR$=""
     ELSE
        I=INSTR(Strng$,Delim$)
        IF ((I=0)OR _
            (I=LEN(Strng$)-LEN(Delim$)+1)) THEN
           TAILSTR$=""
        ELSE
           TAILSTR$=MID$(Strng$,I+LEN(Delim$))
        END IF
     END IF

' Finish Function --------------------------------------------------------------

     END FUNCTION