' 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