VB6 VB6で正規表現を使ってテキストを抽出する方法

Question

で正規表現を使ってテキストを抽出する方法

Dim MyText As String 

MyText = "anything [*]textToExtract[*] anything" 

結果は次のようになりますどのようにあなたが正規表現を使用している

textToExtract

Answer 1

Sub test() 
    Dim re As RegExp, m As MatchCollection 
    Set re = New RegExp 
    Dim MyText As String, extractedText As String 
    MyText = "anything textToExtract anything" 

    re.Pattern = "anything (.*) anything" 
    Set m = re.Execute(MyText) 
    extractedText = m(0).SubMatches(0) 

End Sub