PB 按指定长度截取中文

//as_value是要截取的字符串
//ai_len 是要截取的长度
string ls_ret
int li_i
li_i = 0
if len(as_value) <= ai_len then return as_value
ls_ret = left(as_value,ai_len)
do while li_i < ai_len
if Asc(right(ls_ret,1)) > 128 then
ls_ret = left(ls_ret,ai_len - 1 - li_i)

else
exit
end if
li_i += 1
loop


if mod(li_i,2) = 0 then
ls_ret = left(as_value,ai_len)
else
ls_ret = left(as_value,ai_len - 1)
end if
//messagebox('字符串长度',string(len(ls_ret)))
return ls_ret