文字列中に、ある文字が最後に現れる場所を探す

Function strrpos( haystack, needle, offset)

    Dim i
    strrpos = false

    If len(offset) = 0 Then
        offset = len( haystack)
    End If

    If len(needle) > 1 Then needle = Left(needle,1)

    i = InStrRev(haystack,needle,offset,vbBinaryCompare)

    If i > 0 Then
        strrpos = i
    End If

End Function

• GitHubで見る

引数

haystack = string 検索を行う文字列。
needle = string needle が文字列でない場合は、 それを整数に変換し、その番号に対応する文字として扱います。
offset = string オプションのパラメータ offset により、検索を開始する haystack の位置を指定することができます。 この場合でも返される位置は、 haystack の先頭からの位置のままとなります。

戻り値

needle が最後に現れた位置を返します。
needle が見つからない場合、FALSE を返します。

処理

・ 文字列 haystack の中で、 needle が最後に現れた位置を数字で返します。
・ needle に文字列が指定された場合、その文字列の最初の文字だけが使われます。

• GitHubで編集