VB6末尾の文字列と一致するかどうか判断する

スポンサーリンク

VB6 では、EndsWith のようなメソッドがありませんが、Right$ 関数を使えば容易に可能です。以下のような関数を自作します。

サンプルコード

以下にサンプルコードを示します。

VB6.0 以前
' -------------------------------------------------------------------------------
'       末尾の文字列と一致しているかどうかを判断します。
'
' @Param    stTarget    シーク対象となる文字列。
' @Param    stSeek      シークする文字列。
' @Return               末尾の文字列と一致する場合は True。それ以外は False。
' -------------------------------------------------------------------------------
Public Function EndsWithString(ByVal stTarget As String, ByVal stSeek As String) As Boolean
    Let EndsWithString = (Right$(stTarget, Len(stSeek)) = stSeek)
End Function

使用例は以下のようになります。

VB6.0 以前
    ' 必要な変数を宣言する
    Dim stTarget As String
    stTarget = "Hirotoshi Naka"

    ' 末尾の文字列と一致するかどうかを判断する
    If EndsWithString(stTarget, "Naka") Then
        Call MsgBox("末尾の文字列と一致します")
    End If

関連するリファレンス

準備中です。

スポンサーリンク