从ULong转换为整数

Question

我正在尝试将ULONG的列表转换为整数数组。

这个问题与如何丢弃ULONG的MSB有关！我尝试过各种操作，它们都会引发“溢出异常”错误：

dim MyInteger as Integer = CInt(ULong_Number)     
dim MyInteger as Integer = Convert.ToInt32(ULong_Number)
dim MyInteger as Integer = Convert.ToUInt32(ULong_Number) 
dim MyInteger as Integer = ULong_Number xor &HFFFFFFFF00000000 xor &HFFFFFFFF00000000

我试图避免转换为临时字节数组，之后，将每4个字节读入整数(如果列表很大，几乎有200万个数字)。

有人知道将这个ULONG隐式转换成整数吗？

谢谢!

Answer 1

如果您确信ULong_Number的值不大于整数的最大值(2^31 - 1或&H7FFFFFF)，或者您想忽略任何高阶位(这是一件很奇怪的事情，但是您试图将一个8字节的数字拟合成4个字节)，您可以使用它。

Dim MyInteger As Integer = CInt(ULong_Number And CULng(&H000000007FFFFFFF))