在更容易的方法是使用Convert.ToInt32()解析字符串作为二进制文字并执行二进制数值AND:
Public Function MatchAsBinary(ByVal x As String, ByVal y As String) As Boolean
Dim x_int = Convert.ToInt32(x, 2)
Dim y_int = Convert.ToInt32(y, 2)
Return (x_int And y_int) = y_int
End Function
Run Code Online (Sandbox Code Playgroud)
该快(〜10次发布版本)的方法是将字符直接比较:
Public Function MatchAsChars(ByVal x As String, ByVal y As String) As Boolean
For i As Integer = 0 To y.Length - 1
If y(i) = "1"c AndAlso x(i) = "0"c Then
Return False
End If
Next
Return True
End Function
Run Code Online (Sandbox Code Playgroud)