(このスニペットでは)すべてを一致させたいのですが、改行は含めません。するでしょう。誰かが私が欠けているものに光を当てることができますか.
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*
出力で改行を避けるにはどうすればよいですか? ありがとう。