查找某字符串在另外一个字符串中最后出现的位置

/*---------------------------------------------------------------------------------
*  调用方式:  gf_GetLastPosition(String as_string,string as_SubString)
*  函数作用:  查找字符串as_string中另一个子串as_SubString所出现的最后位置.
*  返 回 值:  integer类型的,最后出现的位置.
*  变量使用:  没有用到全局变量.
*----------------------------------------------------------------------------------*/

integer li_Pos,li_NextPos//用来保存当前位置和最后下一个位置

if as_String = "" or as_SubString = "" then return 0  //如果传递过来的是两各空字符串.

li_pos = Pos(as_String,as_SubString)//变量初始化.
if li_Pos = 0 then//没有找到
return 0
else
li_NextPos = Pos(as_String,as_SubString,li_Pos + 1)//第二个出现位置
end if

do while li_NextPos<>0
li_Pos = li_NextPos
li_NextPos = Pos(as_String,as_SubString,li_Pos + 1)
loop

return li_Pos