人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

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

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


●質問者: jjkkjpjjkkjp
●カテゴリ:コンピュータ インターネット
✍キーワード:いるか コード サブルーチン プログラム 文字列
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● HALSPECIAL
●60ポイント ベストアンサー

'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
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ