*!****************************************************************************** function aparser1 * Description.......: Function parses a text string into an array. * : Each element of the array contains one word... * Calling Samples...: dimension laWords[1] * : lcWordString = "Some text string" * : lnWords = aparser1(@laWords, lcWordString) * Parameter List....: taWords, tcWordString, tcDelimiter ******************************************************************** lparameter taWords, tcWordString, tcDelimiter local lnWords, lni external array taWords if vartype(m.tcWordString)<>"C" return .f. && First and second parameters are required endif if vartype(m.tcDelimiter)<>'C' tcDelimiter=space(1) && Default delimiter endif * Idea of Charlie Schreiner #011905 *!* Now put each element in an array. lnWords=alines(taWords, strtran(m.tcWordString, m.tcDelimiter, chr(13))) return m.lnWords