1. 程式人生 > >查詢某字串在另外一個字串中最後出現的位置

查詢某字串在另外一個字串中最後出現的位置

/*---------------------------------------------------------------------------------
*  呼叫方式:  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