VisualBasic2008ExpressEditionでプログラムしています。


次のようなサブルーチンを作りたいです。

1. strGivenの中に、strFindに格納されているのと同じ文字列が含まれているかどうか判定する。
2. strResultOfFindに、もし含まれていたら"Exist"を、含まれていなかったら"NotExist"を代入する。

つきましては、コードをご教示ください。

回答の条件
  • 1人2回まで
  • 登録:2009/10/21 21:29:35
  • 終了:2009/10/26 14:58:18

ベストアンサー

id:HALSPECIAL No.1

HALSPECIAL回答回数407ベストアンサー獲得回数862009/10/22 11:17:35

ポイント60pt

'1. strGivenの中に、strFindに格納されているのと同じ文字列が含まれているかどうか判定する。

'2. strResultOfFindに、もし含まれていたら"Exist"を、含まれていなかったら"NotExist"を代入する。


ロジック的には

Private Sub ボタン1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ボタン1.Click

    Dim strGiven As String = "xxxxxHitxxxxxxxx"
    Dim strFind As String = "Hit"
    Dim strResultOfFind As String = "NotExist"
    If InStr(strGiven, strFind) > 0 Then
        strResultOfFind = "Exist"
    End If
    MsgBox(strResultOfFind)

End Sub

関数にすると、

Private Sub ボタン2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ボタン2.Click

    Dim strGiven As String = "xxxxxHitxxxxxxxx"
    Dim strFind As String = "Hit"
    Dim strResultOfFind As String

    strResultOfFind = CheckInStr(strGiven, strFind)

    MsgBox(strResultOfFind)

End Sub

Function CheckInStr(ByVal strGiven As String, ByVal strFind As String) As String
    If InStr(strGiven, strFind) > 0 Then
        Return "Exist"
    Else
        Return "NotExist"
    End If
End Function

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません