查詢某字串在另外一個字串中最後出現的位置
阿新 • • 發佈:2019-02-12
/*---------------------------------------------------------------------------------
* 呼叫方式: 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
* 呼叫方式: 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