vba正则表达式:点匹配换行符

Question

我想匹配(在这个片段中)所有内容,但不包括我认为的换行符.会做.请问有人能说清楚我错过的东西.

Public Sub regexp()

Dim oRegExp As regexp
Dim oMatches As MatchCollection
Dim oMatch As Match
Dim sString As String

sString = _
    "one" & vbNewLine & _
    "two" & vbNewLine

Set oRegExp = New regexp
With oRegExp
    .Global = True
    .Pattern = ".+"
    Set oMatches = .Execute(sString)
    For Each oMatch In oMatches
        Debug.Print "*" & oMatch.Value & "*"
    Next oMatch
End With

End Sub

输出是

*one
*
*two
*

预期产出

*one*
*two*

如何避免输出中的换行符？谢谢.

Answer 1

如果使用[^\n]代替.,它将匹配除新行字符之外的任何字符.