Java und Basic CVDMBF

[mitse]

Hallo zusammen, ich bin neu hier.
Ich lese mit Java Daten aus einer Datei, die mit Basic erstellt wurde. Dabei bin ich an meine Grenzen gestoßen.
Ich habe die Datei über eine RandomAccessFile geöffnet und lese damit die Datensätze in ein ByteArray ein. Auch hier habe ich noch keine Probleme die Teilbereiche in Strings, Integer usw. umzuwandeln. Aber es gibt da einen Datentyp der in Basic per CVDMBF in eine Zahl umgewandelt wird. Welcher Datentyp ist das in Java, bzw. wie kann ich diese 8 Bytes aus meinem ByteArray in einen in Java verwendbaren Datentyp umwandeln?
Bin schon gespannt auf die Antworten.

 

[mitse]

Kennt sich niemand damit aus? Wäre mir wirklich sehr wichtig, wie ich an diese Daten komme.

 

[njans]

Der richtige Typ wäre double, allerding sist die Formatsconvertierung ein Problem. Das ist MS altes binär Format, da müsstest du dann manuell die bits zerlegen und wieder zusammenbauen:
https://en.wikipedia.org/wiki/Microsoft_Binary_Format


Das ist bei dir ein 64 bit Block und den müsstest du dann in einen double umrechnen.

 

[mitse]

Vielen Dank, aber ich habe keine Ahnung wie ich das mache. Ich habe die 8 Bytes in einem ByteArray, mit dem ich arbeiten kann. In C++ gibt es ja auch eine derartige Routine, nur leider verstehe ich C++ nicht. Kann mir jemand dabei helfen?

Hier der Code in C dazu:
Public Function CVSMBF(ByVal s As String) As Single
Dim i As Integer
Dim msbin(4) As Byte
Dim ieee(4) As Byte
Dim ieee_exp As Byte
Dim sng As Single

If Len(s) <> 4 Then
Err.Raise 1000, "CVSMBF", "Invalid string argument"
CVSMBF = 0
Exit Function
End If

' copy s and to msbin
Call CopyMemory(msbin(0), ByVal s, 4)


' Any msbin with an exponent of zero = 0
If msbin(3) = 0 Then
CVSMBF = 0
Exit Function
End If

ieee(3) = msbin(2) And &H80

' MBF is bias 128 and IEEE is bias 127. Also, MBF places
' the decimal point before the assumed bit, while IEEE
' places the decimal point after the assumed bit.
ieee_exp = msbin(3) - 2 ' Actually ms_bin(3)-1-128+127

' The first 7 bits of the exponent in ieee(3)
ieee(3) = ieee(3) Or (ieee_exp \ 2)

' The one remaining bit in the first bit of ieee(2)
ieee(2) = ieee(2) Or ((ieee_exp And 1) * 128)

' mask out the msbin sign bit
ieee(2) = ieee(2) Or (msbin(2) And &H7F)

ieee(1) = msbin(1)
ieee(0) = msbin(0)

'Copy ieee to sng
Call CopyMemory(sng, ieee(0), 4)

CVSMBF = sng
End Function