define l_cnt integer
define p_str,p_str2 string
define l_s1, l_e,l_len,l_len2 integer
define l_pos,l_ans integer
if ccl_null(p_str) or ccl_null(p_str2) then
let l_ans=0
return l_ans
end if
let p_str=p_str clipped
let p_str2=p_str2 clipped
let l_len=p_str.getlength()
let l_len2=p_str2.getlength()
let l_pos=1
let l_ans=0
while l_pos< l_len
let l_s1=p_str.getindexof(p_str2,l_pos)
if l_s1=0 then
exit while
end if
let l_ans=l_ans+1
let l_pos=l_len2+l_s1
end while
return l_ans
沒有留言:
張貼留言