vb.net – 在VB中覆盖GetHashCode没有选中/未选中的关键字支持?

前端之家收集整理的这篇文章主要介绍了vb.net – 在VB中覆盖GetHashCode没有选中/未选中的关键字支持?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
所以我试图找出如何正确覆盖GetHashCode()在VB中的大量自定义对象。有点搜索导致我到 this wonderful answer

除了有一个问题:VB在.NET 4.0中缺少checked和unchecked关键字。据我所知,无论如何。所以使用Jon Skeet的实现,我尝试在一个相当简单的类上创建了这样一个覆盖,它有三个主要的成员:Name As String,Value As Int32,以及[Type] As System.Type。所以我想出:

Public Overrides Function GetHashCode() As Int32
    Dim hash As Int32 = 17

    hash = hash * 23 + _Name.GetHashCode()
    hash = hash * 23 + _Value
    hash = hash * 23 + _Type.GetHashCode()
    Return hash
End Function

问题:Int32对于这样的简单对象来说太小了。我测试的特定实例具有“Name”作为一个简单的5个字符的字符串,并且该散列单独足够接近Int32的上限,当它尝试计算哈希(Value)的第二个字段时,它溢出。因为我没有找到一个等效的颗粒检查/未检查支持的VB,我无法解决这个问题。

我也不想删除整个项目的整数溢出检查。这个东西可能…. 40%完成(我做了,TBH),我有更多的代码写,所以我需要这些溢出检查在一段时间。

Jon的GetHashCode版本是VB和Int32的“安全”版本?或者,.NET 4.0是否已经检查/取消选中我在MSDN上找不到的地方?

编辑:
根据相关的SO问题,最底层的unloved answers之一提供了准解决方案。我说准,因为感觉就像是欺骗。乞丐不能选择,对吧?

从C#转换为更可读的VB并与上述对象(名称,值,类型)对齐,我们得到:

Public Overrides Function GetHashCode() As Int32
    Return New With { _
        Key .A = _Name,_
        Key .B = _Value,_
        Key .C = _Type
     }.GetHashCode()
End Function

这会触发编译器通过生成一个匿名类型来“欺骗”,然后它在项目名称空间之外进行编译,大概是在整数溢出检查被禁用的情况下进行编译,并允许数学发生,并在它溢出时简单地循环。它也似乎涉及盒式操作码,我知道是性能命中。不,不开箱。

但这提出了一个有趣的问题。无数次,我已经看到它在这里和其他地方说明了VB和C#生成相同的IL代码。这显然不是100%的时间…像使用C#的unchecked关键字简单地导致不同的操作码被发出。那么为什么我会继续看到两者产生完全相同的IL不断重复的假设呢? < /修辞-问题>

无论如何,我宁愿找到一个可以在每个对象模块中实现的解决方案。为每个单个对象创建匿名类型将从ILDASM的角度看起来很乱。当我说我在项目中实施了很多课程时,我不开玩笑。

EDIT2:我在MSFT Connect上打开了一个错误,VB PM的结果的要点是他们会考虑的,但不要呼吸:
https://connect.microsoft.com/VisualStudio/feedback/details/636564/checked-unchecked-keywords-in-visual-basic

快速浏览.NET 4.5中的变化表明他们还没有考虑过,所以也许.NET 5?

适用于GetHashCode的约束的最终实现方式,仍然在VB中快速而独特,低于this page上的“旋转哈希”示例:

'// The only sane way to do hashing in VB.NET because it lacks the
'// checked/unchecked keywords that C# has.
Public Const HASH_PRIME1 As Int32 = 4
Public Const HASH_PRIME2 As Int32 = 28
Public Const INT32_MASK As Int32 = &HFFFFFFFF

Public Function RotateHash(ByVal hash As Int64,ByVal hashcode As Int32) As Int64
    Return ((hash << HASH_PRIME1) Xor (hash >> HASH_PRIME2) Xor hashcode)
End Function

我也认为“Shift-Add-XOR”散列也可能适用,但我还没有测试。

使用长时间避免溢出:
Dim hash As Long = 17
'' etc..
Return CInt(hash And &H7fffffffL)

And运算符确保不会抛出溢出异常。然而,在计算的哈希码中确实丢失了一位“精度”,结果总是为正。 VB.NET没有内置的功能来避免它,但你可以使用一个技巧:

Imports System.Runtime.InteropServices

Module NoOverflows
    Public Function LongToInteger(ByVal value As Long) As Integer
        Dim cast As Caster
        cast.LongValue = value
        Return cast.IntValue
    End Function

    <StructLayout(LayoutKind.Explicit)> _
    Private Structure Caster
        <FieldOffset(0)> Public LongValue As Long
        <FieldOffset(0)> Public IntValue As Integer
    End Structure
End Module

现在你可以写:

Dim hash As Long = 17
'' etc..
Return NoOverflows.LongToInteger(hash)
原文链接:https://www.f2er.com/vb/256052.html

猜你在找的VB相关文章