[此贴子已经被作者于2006-2-24 13:37:22编辑过]
这样吧:name_='刘小青370402198811224567x'l_name=len(name_)if l_name>0 for i=1 to l_name s=SUBSTR(name_, i , 1) if type(s)='N' s1=SUBSTR(name_, 1, i-1) &&s1=名称 s2=SUBSTR(name_, i, l_name+1-i) &&s2=号码 exit endif endforendif?name_?s1?s2