>spamstr = alltrim(xfer_payroll.spall) >ALINES(a__gen5, CHRTRAN(spamstr," ",CHR(13))) && copy the values to array >If vartype(a__gen5) # 'U' and vartype(a__gen5) # 'L' > first_sw = .t. > FOR i = 1 TO ALEN(a__gen5,0) > IF !EMPTY(ALLTRIM(a__gen5(i))) > IF first_sw = .t. > first_sw = .f. > crtspam = ALLTRIM(a__gen5(i)) && don't put space between string > ELSE > crtspam = crtspam + ' ' + ALLTRIM(a__gen5(i)) && put space while building spam str > ENDIF > ENDIF > ENDFOR > RELEASE a__gen5 > ALINES(a__gen6, CHRTRAN(crtspam," ",CHR(13))) && copy the values to array > FOR .f1 = 1 TO ALEN(a__gen6,0) > g1 = ALLTRIM(a__gen6(.f1)) > > Do case > Case g1 == 'FLSA' > cummflsa = evaluate('xfer_payroll.spamt'+allt(str(.f1,3,0))) > hldflsa = hldflsa + cummflsa >>
spamstr = ALLTRIM(xfer_payroll.spall) =ALINES(la_lines, spamstr, .t., ' ') lc_return = "" FOR EACH lc_word IN la_lines IF lc_word <> "" lc_return = lc_word + " " ENDIF ENDFOR lc_return = TRIM(lc_return) RETURN (lc_return)Don't know if it would be faster or not.