readInt

18/03/2012 - 08:48 von Hermie | Report spam
Hallo!

Ich muss im Java-Stil aus einer Datei einen Long-Wert auslesen.

Dazu sage ich:

Dim b(3) As Byte

Get #m_iFile, , b()

Dim sThis$
sThis = "&H"

Dim l&
For l = 0 To UBound(b)
sThis = sThis & pHex(b(l))
Next l

readInt = CLng(sThis)

Die Werte in b() sind:

240
120
0
1

Ich müsste auf das Ergebnis 127096 kommen, aber ich komme nicht drauf,
wie ich die Werte umwurschteln muss, um auf diesen Wert zu kommen. Ich
denke mal, ich müsste die Reihenfolge umkehren, aber ich komme nicht auf
das Muster.

Vielen Dank.

Hermann

ps: Meine Hilfsfunktion "pHex":

Private Function pHex(ByVal uByte As Byte) As String

Dim sThat$
sThat = Hex(uByte)

If Len(sThat) = 1 Then
sThat = "0" & sThat
End If

pHex = sThat

End Function
 

Lesen sie die antworten

#1 Hermie
18/03/2012 - 09:01 | Warnen spam
Sorry, kleine Korrektur:

Ich bekomme die folgenden Werte:

120
240
1
0




Am 18.03.2012 08:48, schrieb Hermie:
Hallo!

Ich muss im Java-Stil aus einer Datei einen Long-Wert auslesen.

Dazu sage ich:

Dim b(3) As Byte

Get #m_iFile, , b()

Dim sThis$
sThis = "&H"

Dim l&
For l = 0 To UBound(b)
sThis = sThis & pHex(b(l))
Next l

readInt = CLng(sThis)

Die Werte in b() sind:

240
120
0
1

Ich müsste auf das Ergebnis 127096 kommen, aber ich komme nicht drauf,
wie ich die Werte umwurschteln muss, um auf diesen Wert zu kommen. Ich
denke mal, ich müsste die Reihenfolge umkehren, aber ich komme nicht auf
das Muster.

Vielen Dank.

Hermann

ps: Meine Hilfsfunktion "pHex":

Private Function pHex(ByVal uByte As Byte) As String

Dim sThat$
sThat = Hex(uByte)

If Len(sThat) = 1 Then
sThat = "0" & sThat
End If

pHex = sThat

End Function

Ähnliche fragen