6

(このスニペットでは)すべてを一致させたいのですが、改行は含めません。するでしょう。誰かが私が欠けているものに光を当てることができますか.

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*

出力で改行を避けるにはどうすればよいですか? ありがとう。

4

1 に答える 1

9

[^\n]の代わりに使用すると、改行文字以外.の任意の文字に一致します。

于 2012-04-24T12:04:18.413 に答える