******************************************************************************* * * * Name : xatchar.prg * * * * Description : This function is used to determine which of the characters * * from mchars parameter is the first to appear in mstring * * * * Parameters : mstring - (C) The source string * * default = [Mandatory] * * mchars - (C) The charset we are interested in * * default = [Mandatory] * * * * Returns : (N) The position of the first occurrence of a character from * * mchars in mstring * ******************************************************************************* parameters mstring, mchars private mstring, mchars, i, mlen mlen=len(mstring) for i=1 to mlen if substr(mstring, i, 1)$mchars return i endif next i return 0