文字列に含まれる特定の文字列を検索する方法

◆概要


このページは、Visual Basic 6.0で文字列に含まれる特定の文字列を検索する方法について記載しています。


InStr 関数を使用すると、文字列の中から指定した文字列を検索し、最初に見つかった文字位置を取得することができます。

次の例を実行する前に、Visual Basic 6.0のメニュー[表示]-[イミディエイトウィンドウ]（ショートカットCtrl+G）でイミディエイトウィンドウを表示させておいてください。 

Option Explicit

Private Sub SearchString(strTarget As String, strSearch As String)


    Dim lngResult As Long
    
    'strtargetからstrSearchを検索する
    lngResult = InStr(strTarget, strSearch)
    
    If lngResult = 0 Then
        'strSearchが見つからなかった場合
        Debug.Print "「"; strSearch; "」は"; "" _
            ; "「"; strTarget; "」に含まれていません。"
    Else
        'strSearchが見つかった場合
        Debug.Print "「"; strSearch; "」は"; _
            "「"; strTarget; "」の"; _
            lngResult; "文字目に見つかりました。"
    End If
                         
End Sub

Private Sub Command1_Click()
    '「Visual Basic」から「Visual」を検索する
    SearchString "Visual Basic", "Visual"
    
    '「Visual Basic」から「Basic」を検索する
    SearchString "Visual Basic", "Basic"
    
    '「Visual Basic」から「BASIC」を検索する
    SearchString "Visual Basic", "BASIC"
End Sub
　　

◆実行結果


イミディエイトウィンドウ



▼ページトップへ