vba regex: punto corrispondente newline

Question

Voglio abbinare (in questo frammento) tutto fino a ma non includendo una nuova riga che è quello che ho pensato a. farebbe. Qualcuno potrebbe far luce su ciò che mi manca, per favore.

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 

uscita è

*one 
* 
*two 
* 

Previsto in uscita

*one* 
*two* 

Come posso evitare il ritorno a capo in uscita? Grazie.

Answer 1

Se si utilizza [^\n] al posto di ., corrisponderà a qualsiasi carattere tranne il carattere di nuova riga.