分割文本

CLEAR 
? getendnum('A100')

LOCAL 保存(1)
cString="中|华|人|民|共|和|国"
分割文本(cString,"|",@保存) &&这时的| 可以是其它任意字符如,
?"统计个数为:",ALEN(保存)
FOR i=1 TO ALEN(保存)
?保存[i]
ENDFOR

FUNCTION getendnum
LPARAMETERS AAA
FOR i=1 TO LEN(AAA)
IF ISDIGIT(right(AAA,i))=.F.
EXIT
ENDIF
ENDFOR

if LEN(Alltrim((STR(VAL(right(AAA,i-1))+1))))>i-1
RETURN ALLTRIM(LEFT(AAA,LEN(AAA)-i+1))+PADL(TRANSForM(Alltrim((STR(VAL(right(AAA,i-1))+1)))),i,'0')
ELSE
RETURN ALLTRIM(LEFT(AAA,LEN(AAA)-i+1))+PADL(TRANSForM(Alltrim((STR(VAL(right(AAA,i-1))+1)))),i-1,'0')
ENDIF

***********************************************************
***功 能:分割文本 如:分割文本("1,2,3,4,5," ,",",Data)
***函数名子:分割文本
***编写日期:2008年4月19日
***编 写 人:吕志杰
***********************************************************
FUNCTION 分割文本(字符串,分隔符,数组)
LOCAL 统计个数,计次,位置
字符串=字符串+分隔符
统计个数=OCCURS(分隔符,字符串)
dime 数组(统计个数)
FOR 计次=1 TO 统计个数
位置=AT(分隔符,字符串)
数组[计次]=LEFT(字符串,位置-1) &&将分隔结果保存到数组
字符串=RIGHT(字符串,LEN(字符串)-位置)
ENDFOR
ENDFUNC