22、正则表达式匹配与井字棋游戏开发

正则表达式匹配与井字棋游戏开发

1. 正则表达式匹配示例

在这个示例中，我们使用正则表达式来查找字符串中匹配的模式，并记录其起始位置。以下是示例代码：

strStory = "Once upon a time there were three little bears. There " & _
           "was a mama bear, a papa bear, and a baby bear. There was a cousin bear too!"
Set objMatchCollection = objRegExp.Execute(strStory)
For Each objMatch in objMatchCollection
    strDisplayMsg = strDisplayMsg & "An instance of " & _
                    objRegExp.Pattern & " found at position " & objMatch.FirstIndex & _
                    vbCrLf
Next
MsgBox strDisplayMsg

在这个代码中，我们首先定义了一个字符串 strStory ，然后使用 objRegExp.Execute() 方法执行正则表达式匹配，将匹配结果存储在 objMatchCollection 中。接着，使用 Fo