>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 >>
if not empty(SpamStr) * do our ALINES processing here ENDIFAlso ALINES allows to specify delimiter character (but I forgot if this is already available in VFP8), so you don't have to use original CHRTRAN.