VF里有没有可以把有分隔符的字符串放入数组的函数
VF里有没有可以把有分隔符的字符串放入数组的函数?如1,1,2,3,4,5,6,7
AA="1,1,2,3,4,5,6,7" AA=CHRTRANC(AA,",","") LOCAL ARR(LEN(AA)) ARR="" FOR I=1 TO LEN(AA) ARR(I)=SUBSTRC(AA,I,1) &&将AA中的数字分别存入数组中 ? ARR(I) ENDFOR
AA="1,1,2,3,4,5,6,7" FOR I=1 TO ALINES(ARR,AA,",") ? ARR(I) ENDFOR
CLEAR DIMENSION aArray[1] Split(@aArray, "Hello,chen,ling,xiao", ",") FOR nIndex = 1 TO ALEN(aArray, 1) ? aArray[nIndex] NEXT RETURN *---------------------- * 功能:把一个字符串按指定的分隔符分割成数组 * 参数: taArray -- 返回的数组(在调用处用地址传递方式传入,用于返回) * tcString -- 被分割的源字符串 * tcDelimiter -- 分隔字符串 * 返回:分割出的数组的元素数目 *---------------------- FUNCTION Split(taArray, tcString, tcDelimiter) LOCAL lnCount, lnIndex lnCount = GETWORDCOUNT(tcString, tcDelimiter) DIMENSION taArray[lnCount] && 不管传入的数组原来是怎样的,都重新分配 FOR lnIndex = 1 TO lnCount taArray[lnIndex] = GETWORDNUM(tcString, lnIndex, tcDelimiter) NEXT RETURN lnCount ENDFUNC