網頁

2010年12月30日 星期四

function ccl_str_occurs(p_str,p_str2)

function ccl_str_occurs(p_str,p_str2)
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

沒有留言:

張貼留言