一个截取字符串的函数终于写成了，分享一下

[xuxuezhi1975]

//功能：截取字符串
// as_parm[](by ref)中.用于在窗口间传递多个参数
//参数：as_parmstring：以';'作分隔符的多参数组成的字符串
// as_parm[]：存放分解后的独立参数
//返回值：成功，返回变量个数；否则，返回 -1
//编制：徐学治 /31566426

integer li_finger,li_start=1,li_counter,i
string ls_fz //仅做测试，无实际意义
if as_parmstring="" then return -1
li_finger=pos(as_parmstring,';',li_start)
do while li_finger>0
li_counter ++
as_parm[li_counter]=mid(as_parmstring,li_start ,li_finger - li_start )
ls_fz = as_parm[li_counter]
li_start=li_finger + 1
li_finger=pos(as_parmstring,';',li_start )
loop
if li_start<=len(as_parmstring) then
li_counter ++
as_parm[li_counter]=mid(as_parmstring,li_start ,len(as_parmstring) - li_start +1)
end if
return li_counter

[zhgwbzhd]

鼓励一下，不过这个代码不是C或C++的。

[aolixiaox]

可以试试着拓展一下，

[sanyuan35]

学习学习学习

[tldmv5]

刚好能用到。

[sswind1982]

感谢分享 谢谢了

[AT152S]

为什么不返回 拆分后的字符？ 返回个数有何意义？

[runsoft]

好久没来了。抢分。