不足ファイル3 を解決するには？ (ID:92395)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ちなみに、当方はこのサンプルで動作確認済みです。

'[HOWTO] Microsoft Visual Basic 6.0 で正規表現を使用する方法
'http://support.microsoft.com/default.aspx?scid=kb;ja;818802
'レイトバインド化 by もげ
Private Sub Command1_Click()
    MsgBox (TestRegExp("is.", "IS1 is2 IS3 is4"))
End Sub
Function TestRegExp(myPattern As String, myString As String)
   'オブジェクトを作成します。
   Dim objRegExp As Object
   Dim objMatch As Object
   Dim colMatches   As Object
   Dim RetStr As String

' 正規表現のオブジェクトを作成します。
   Set objRegExp = CreateObject("VBScript.RegExp")
   'Pattern プロパティを使用してパターンを設定します。
   objRegExp.Pattern = myPattern
   ' 大文字、小文字を区別するかどうかを指定します。
   objRegExp.IgnoreCase = True
   ' 全文検索か、最初の一致のみの検索かを指定します。
   objRegExp.Global = True
   ' 文字列に指定したパターンが存在するかどうかを確認します。
   If (objRegExp.Test(myString) = True) Then
   ' 一致する文字列を取得します。
    Set colMatches = objRegExp.Execute(myString)   ' 検索を実行します。
    For Each objMatch In colMatches   ' colMatches を繰り返し実行します。
      RetStr = RetStr & "Match found at position "
      RetStr = RetStr & objMatch.FirstIndex & ". Match Value is '"
      RetStr = RetStr & objMatch.Value & "'." & vbCrLf
    Next
   Else
    RetStr = "String Matching Failed"
   End If
   TestRegExp = RetStr
End Function

←解決時は質問者本人がここをチェックしてください。

戻る