组合多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

尝试下面的regex (Chrome|Safari)

不熟悉VB，但它应该类似于if (Regex.Match(@"(Chrome|Safari)") != null)