字符串包含IP无法正确检测IP的前三个八进制

Question

我有一个字符串。.我试图找出它是否包含10.10。

'Dim s As String = "10.100.1.1"
'If s.Contains("10.10.") Then
'    MessageBox.Show("Contains")
'Else
'    MessageBox.Show("Doesn't contain 10.10.")
'End If

我应该以其他方式这样做吗？也许开始于？还是正则表达式？

Answer 1

看看这段代码

Private Function IsPartOf10dot10(ips As String) As Boolean
    Dim rv As Boolean = False
    Dim IP As System.Net.IPAddress
    If System.Net.IPAddress.TryParse(ips, IP) Then
        Dim b() As Byte
        b = IP.GetAddressBytes
        If b.Length = 4 Then
            If b(0) = 10 AndAlso b(1) = 10 Then
                rv = True
            End If
        End If
    End If
    Return rv
End Function

将IP地址作为字符串传递给它。

Answer 2

尝试一下：

obtenirCommunication

当然，您可以轻松地添加重载以接受自定义范围。