VB文件中的数据存储问题

韩誉 2005-09-05 10:57:57

二进制文件中
0A 11 可以根据（后一字节*256+前一字节）换算出十进制的整数4362
那 A4 70 9D 3F（通过什么公式）换算出单精度数1.23呢?
那00 EF E3 2D 8D 1E D9 E2 40这8个字节通过什么公式算出日期为2005-9-5 22:54:49
当然对于双精度数我也想知道

...全文

163 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

韩誉 2005-09-06

打赏
举报

谢谢 northwolves(狼行天下)
这个问题虽然没有得到答案但这种方法也够我用的了。我把零散分数给帮忙顶的朋友总分给你算是报答。

韩誉 2005-09-06

打赏
举报

这个可不仅仅是补码我连二次补码都试过了，整数也不是采用补码保存的
就象我们十进制数一样十位数*10+个位数就是这个数了。
计算机保存的字节可以想象为256进制的只不过数位是倒置的
整数：A B =B*256+A
A B C D=单精度数呢？我就想知道这个公式
这里肯定有个公式可利用的

northwolves 2005-09-06

打赏
举报

copymemory

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Dim a() As Byte
Function trans(ByVal x As String, ByVal types As Integer)
Dim s() As String, b() As Byte, i As Long, x0 As Integer, x1 As Single, x2 As Double, x3 As Date
s = Split(x, " ")
ReDim b(UBound(s))
For i = 0 To UBound(s)
b(i) = CInt("&H" & s(i))
Next
If types = 1 Then CopyMemory x0, b(0), 2: trans = x0 'to integer
If types = 2 Then CopyMemory x1, b(0), 4: trans = x1 ' to single
If types = 3 Then CopyMemory x2, b(0), 8: trans = x2 ' to double
If types = 4 Then CopyMemory x3, b(1), 8: trans = x3 ' to date
End Function

Private Sub Command1_Click()
Print trans("0A 11", 1)
Print trans("A4 70 9D 3F", 2)
Print trans("00 EF E3 2D 8D 1E D9 E2 40", 3)
Print trans("00 EF E3 2D 8D 1E D9 E2 40", 4)
End Sub