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