vba regex: dot matching newline

Question

Quiero hacer coincidir (en este fragmento de código) todo pero no incluir una nueva línea, que es lo que yo pensaba. haría. ¿Podría alguien arrojar luz sobre lo que me estoy perdiendo por favor?

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 

salida es

*one 
* 
*two 
* 

espera que la producción

*one* 
*two* 

¿Cómo puedo evitar el salto de línea en la salida? Gracias.

Answer 1

Si usa [^\n] en lugar de ., coincidirá con cualquier carácter excepto el carácter de la nueva línea.