[原创]发个分割文本函数

阿杰

<p><font face="Verdana">*例子1:<br/>LOCAL 保存(1)<br/>cString="中|华|人|民|共|和|国"<br/>分割文本(cString,"|",@保存) &amp;&amp;这时的| 可以是其它任意字符如,<br/>**取结果<br/>?"统计个数为:",ALEN(保存)<br/>FOR i=1 TO ALEN(保存)<br/>&nbsp;&nbsp;&nbsp; ?保存<br/>ENDFOR<br/>运行结果:<br/>中<br/>华<br/>人<br/>民<br/>共<br/>和<br/>国</font></p>
<p><font face="Verdana">*例子2:<br/>LOCAL 保存(1)<br/>cString="1,2,3,4,5" <br/>分割文本(cString,",",@保存) &amp;&amp;这时的, 可以是其它任意字符如,<br/>**取结果<br/>?"统计个数为:",ALEN(保存)<br/>FOR i=1 TO ALEN(保存)<br/>&nbsp;&nbsp;&nbsp; ?保存<br/>ENDFOR<br/>运行结果:<br/>1<br/>2<br/>3<br/>4<br/>5</font></p>
<p><font face="Verdana">注:如果要分割符是回车可以写成 分割文本(cString,CHR(13)+CHR(10),@保存)</font></p>
<p><font face="Verdana">***********************************************************<br/>***功&nbsp;&nbsp;&nbsp; 能:分割文本 如:分割文本("1,2,3,4,5," ,",",Data)<br/>***函数名子:分割文本<br/>***编写日期:2008年4月19日<br/>***编 写 人:吕志杰<br/>***********************************************************<br/>FUNCTION 分割文本(字符串,分隔符,数组)<br/>&nbsp;LOCAL 统计个数,计次,位置<br/>&nbsp;字符串=字符串+分隔符<br/>&nbsp;统计个数=OCCURS(分隔符,字符串)<br/>&nbsp;dime 数组(统计个数)<br/>&nbsp;FOR 计次=1 TO 统计个数<br/>&nbsp;&nbsp;位置=AT(分隔符,字符串)<br/>&nbsp;&nbsp;数组[计次]=LEFT(字符串,位置-1) &amp;&amp;将分隔结果保存到数组<br/>&nbsp;&nbsp;字符串=RIGHT(字符串,LEN(字符串)-位置)<br/>&nbsp;ENDFOR<br/>ENDFUNC</font></p>