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に格納されているのと同じ文字列が含まれているかどうか判定する
3. strResultに結果を代入する
  3-1. もし含まれていたら、strResultに"Exist"を代入する
  3-2. もし含まれていなかったら、strResultに"NotExist"を代入する

回答の条件
  • 1人2回まで
  • 登録:2009/10/26 21:48:51
  • 終了:2009/10/26 22:08:41

ベストアンサー

id:Mook No.1

Mook回答回数1312ベストアンサー獲得回数3912009/10/26 21:57:04

ポイント100pt

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

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_NoDirection 
        Const deleteDirection As Integer = AAA_NoDirection 

        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

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

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

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

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

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