结合多个IndexOf

Question

有没有办法将多个indexOf（）结合起来，使其更简洁？

Dim UserAgent As String = HttpContext.Current.Request.UserAgent

If Not (UserAgent.IndexOf("Chrome") > -1) OrElse Not (UserAgent.IndexOf("Safari") > -1) Then

    ' do this

End If

Answer 1

您可以使用Contains代替IndexOf和一个集合来查找：

Dim browsers = {"Chrome", "Safari"}
if Not browsers.Any(Function(b) UserAgent.Contains(b)) Then

End If

或使用查询语法：

Dim matchingBrowsers = From browser In browsers
                       Where UserAgent.Contains(browser)
If Not matchingBrowsers.Any() Then

End If

Answer 2

尝试以下正则表达式(Chrome|Safari)
不熟悉VB但它应该类似于if (Regex.Match(@"(Chrome|Safari)") != null)