VB6先頭の文字列と一致するかどうか判断する

スポンサーリンク

VB6 では、Left$ 関数を使用すれば容易に可能です。以下のような関数を自作します。

サンプルコード

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

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

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

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

    ' 先頭の文字列と一致するかどうかを判断する
    If StartsWithString(stTarget, "Hiro") Then
        Call MsgBox("先頭の文字列と一致します")
    End If

関連するリファレンス

準備中です。

スポンサーリンク