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

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

Module1.vb内に、次のような処理をしてくれるPublic Functionを作りたいです。

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

0. Public Functionの名前はAaaとする
1. 各種パラメータを受け取る
1-1. strGiven As String
1-2. strFind As String
1-3. strResult As String
2. strGivenの中に、strFindに格納されているのと同じ文字列が含まれているか、strGivenの後尾から順に探す
3-1. もし発見されなかったら、strResultに"NotExist"を代入する
3-2. もし発見されたら、
3-1-1. strGivenに格納されている文字列のうち、strFindに格納されている文字列そのものをも含む、その部分から見て前の側を、削除する
3-1-2. strResultに"Exist"を代入する


●質問者: jjkkjpjjkkjp
●カテゴリ:コンピュータ
✍キーワード:aaa as String VB いるか
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● Mook
●100ポイント ベストアンサー

仕様に従った実装例です。

Module Module1
 Const AAA_NoDirection As Integer = 0
 Const AAA_ToBackward As Integer = 1
 Const AAA_ToForward As Integer = 2

 Public Sub Aaa(ByRef strGiven As String, ByVal strFind As String, ByRef strResult As String)
 Const searchDirection As Integer = AAA_ToForward 
 Const deleteDirection As Integer = AAA_ToForward

 If InStr(strGiven, strFind) > 0 Then
 strResult = "Exist"
 Else
 strResult = "NoExist"
 Exit Sub
 End If

 Dim strPos As Integer
 Select Case searchDirection
 Case AAA_ToBackward
 strPos = InStr(strGiven, strFind)
 Case AAA_ToForward
 strPos = InStrRev(strGiven, strFind)
 Case Else
 Exit Sub
 End Select

 Select Case deleteDirection
 Case AAA_ToBackward
 strGiven = Right(strGiven, Len(strGiven) - Len(strFind) - strPos + 1)
 Case AAA_ToForward
 strGiven = Left(strGiven, strPos - 1)
 Exit Sub
 End Select
 End Sub
End Module
関連質問


●質問をもっと探す●



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