正则表达式不工作（换行）

Question

这是我的最后一招。请帮助。

来源：

    <div class="custom">
    <div class="presence">Eating</div>

无效的代码：

Dim code As String = "\s*<div class=""custom"">""\n""\s*<div class=""presence"">.*</div>"

    Dim reg As New Regex(code)
    If reg.IsMatch(RichTextBox1.Text) Then
        MsgBox("h")
    End If

Answer 1

您可以尝试使用\r\n代替\n

Answer 2

\s足以解析任何空白字符，包括换行符：

Dim code As String = "\s*<div class=""custom"">\s*<div class=""presence"">.*</div>"