1

VisualBasic 名前空間を使用しないように関数を書き直しました。
たとえば、次のようにします。

Public Function _Between(ByVal _string As String, _
                         ByVal _firstchar As String, _
                         ByVal _secondchar As String) As String

    Dim retval As String = ""
    Dim first, second As Integer

    Try
        first = _string.IndexOf(_firstchar) + 1
        second = _string.IndexOf(_secondchar) - 1
        If first >= 0 And second >= 0 Then
            retval = _string.Substring(first, second)
        End If
    Catch ex As Exception
    End Try
    Return retval
End Function

これは基本的なMID$関数と同様に、指定された文字「first」と「second」の間の既存の文字列から文字列を作成する関数です。

この関数の使用は古典的です。たとえば、次のようになります。

mynumber = CDbl(_Between(cbovalue, " ", "%"))

質問は次のとおり
です。元の.NETの「文字列」クラスをサブクラス化することは可能ですか(およびその方法)、次のような「NET」の方法でそのような関数を使用できます:

 mynumber = CDbl(cbovalue._Between(" ", "%"))

... VB.IDE の提案リストでメンバー「_Between」を取得しますか?

4

1 に答える 1