如何在VB6中使用正则表达式提取文本

Question

如何在VB6中使用正则表达式提取文本

Dim MyText As String

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

结果应该是：

textToExtract

- faressoft

---

你在VB 6中如何使用正则表达式？你必须使用某种自定义库，因此需要确保你的代码遵循该库使用的语法。 - Cody Gray

@Cody：Microsoft VBScript正则表达式5.5 - faressoft

@Cody 在他之前的问题中接受的参考意见指导他使用VBScript。 - Dr. belisarius

@Cody Gray：任何需要在VB6中使用正则表达式的人都会使用微软正则表达式解析器，它是任何年龄不到10年的Windows系统的一部分。 - Doc Brown

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

- Doc Brown