Bytewerte darstellen als Integer und Double

Kizum

Servus, habe wieder mal ein kleines Problem.

Undzwar versuche ich nach dem Schema (siehe Bild), die Werte aus einer Datei korrekt darzustellen.
von 9994 bis 106 ist auch alles korrekt aber dann ändert sich die Bytesortierung von BIG auf Little..

Erbitte Rat

Code

$f = "0000270A00000000000000000000000000000000000000000000006AE803000001000000128A48A3B79117410A495F25BD38564117EA5B0BD1971741005FF22AF13856410000000000000000000000000000000000000000000000000000000000000000000000010000000A01000000128A48A3B7911741005FF22AF1385641000000020000000A0100000014535860659517416583C9ABE0385641000000030000000A0100000048E8DC50099417418420CE2FCC385641000000040000000A0100000017EA5B0B9994"


For $i = 1 to 56 step +8

$f2=StringMid($f, $i, 8)
ConsoleWrite(Dec($f2) & @CRLF)

Next
ConsoleWrite("********" & @CRLF)


For $i = 57 to 200 step +8

$f2=StringMid($f, $i, 8)
ConsoleWrite($f2 & @CRLF)
Next

Alles anzeigen

**Musashi**

Hi Kizum !

Ich verstehe nicht ganz, worauf Du hinaus willst

In der Schleife : For $i = 1 to 56 step + 8 ...

interpretierst Du die ersten 7 Teilstrings (Länge 8 )mit DEC von Hex zu Dezimal.

In der Schleife : For $i = 57 to 200 step +8 ...

gibst Du einfach nur 18 weitere Teilstrings aus.

Nebenbei :

DEC ohne zweiten Parameter verwendet signed-Integer, d.h. Werte von -2.147.483.648 bis 2.147.483.647 .

Bei Element 8, also E8030000, würde es so zu einem Überlauf kommen (da dezimal = 3.892.510.720) !

-> Ausgabe = -402.456.576 -> siehe $NUMBER_64BIT (2)

Gruß Musashi

**Andy**

Hi,

und wo ist jetzt das Problem?

Zitat von Kizum

von 9994 bis 106 ist auch alles korrekt

Auch danach ist alles "korrekt" es ändert sich lediglich die sog. "Endianess". Schau mal HIER, ob du damit weiter kommst

Kizum

Element8 ist aber little Endian bzw. sollte so interpretiert werden.

Wenn ich aber die ganze Datei als utf16 BE = ($f) einlese, stimmen die Werte natürlich nicht mehr.

Als DEC kommt da nur Quatsch raus.

Element8 sollte den Wert 1000 haben.

**Musashi**

Zitat von Kizum

Element8 sollte den Wert 1000 haben.

In Little-Endian entspricht E8 03 00 00 dem Dezimalwert 1000, soweit also korrekt. Ich weiß allerdings nicht, wie deine Datei aufgebaut ist. In deinem Beispielcode gibt es nur den String, bestehend aus 4-Byte Sequenzen.

Falls hier Big- und Little-Endian gemischt auftreten, sehe ich keine Logik diese zu unterscheiden.

Beide Interpretationen liefern ja sinnvolle Dezimalergebnisse.

Wäre nicht ggf. eine Hilfstabelle (Array) sinnvoll, also :

Element 1 = Big-Endian

Element 2 = Big-Endian

Element 3 = Litte-Endian

Element 4 = Big-Endian

etc.

Dann könntest Du die jeweiligen Elemente bei Bedarf konvertieren.

Gruß Musashi

Kizum

Es ist eine Shapedatei welche zum visualisieren von Linien, Punkten und Polygonen in geeigneter Software ist.

Diese Daten möchte ich nun numerisch Darstellen.

Hier ist eine PDF welche den gesamten Dateiaufbau beschreibt shape

An dem Konvertieren scheitere ich gerade. Dachte ich Reverse einfach und geben dann als DEC(x, 3) aus, ist aber auch Quatsch

Die Datei habe ich mal angehängt

**Andy**

so müsste das passen...

Bei Little Endian dreht sich die Bytefolge um, man schreibt die Bytes also umgekehrt in eine 8 Byte große Bytestruct, erstellt an deren Adresse eine Doublestruct (auch 8 Bytes groß) und liest diese aus^^

Code

;aligncomment=50
$f = "0000270A" & _                                ;0
        "00000000" & _                             ;4
        "00000000" & _                             ;8
        "00000000" & _                             ;12
        "00000000" & _                             ;16
        "00000000" & _                             ;20
        "0000006A" & _                             ;24
        "E8030000" & _                             ;28 1000
        "01000000" & _                             ;32 shape
        "128A48A3B7911741" & _                     ;36 xmin
        "0A495F25BD385641" & _                     ;44
        "17EA5B0BD1971741" & _                     ;52
        "005FF22AF1385641" & _                     ;60
        "0000000000000000" & _                     ;68
        "0000000000000000" & _                     ;76
        "0000000000000000" & _                     ;84
        "0000000000000000" & _                     ;92
        "000000010000000A01000000128A48A3B7911741005FF22AF1385641000000020000000A0100000014535860659517416583C9ABE0385641000000030000000A0100000048E8DC50099417418420CE2FCC385641000000040000000A0100000017EA5B0B9994"


For $i = 1 To 56 Step +8

    $f2 = StringMid($f, $i, 8)
    ConsoleWrite(Dec($f2) & @CRLF)

Next
ConsoleWrite("********" & @CRLF)




;integer
For $i = 57 To 72 Step +8
    $f2 = StringMid($f, $i + 6, 2) & StringMid($f, $i + 4, 2) & StringMid($f, $i + 2, 2) & StringMid($f, $i + 0, 2) ;Endianess umkehren
    ConsoleWrite(Dec($f2) & @CRLF)
Next

;double
$struct_byte = DllStructCreate("ubyte[8]")         ;Double ist 8 Bytes lang
$struct_double = DllStructCreate("double", DllStructGetPtr($struct_byte)) ;Double ist 8 Bytes lang, an der adresse der 8 einzelnen Bytes
For $i = 73 To 185 Step +16
    $f2 = StringMid($f, $i, 16)
    For $x = 0 To 7
        $byte = ("0x" & StringMid($f2, $x * 2 + 1, 2))
        DllStructSetData($struct_byte, 1, $byte, $x + 1)
        ;$test = DllStructGetData($struct_byte, 1)
    Next

    $double = DllStructGetData($struct_double, 1)
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $double = ' & $double & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console

Next

Alles anzeigen

//EDIT

Da würde sich eine Funktion lohnen, die Anhand der übergebenen Bytes, des Typs und der Endianess den Rückgabewert ermittelt...

Habe gerade mal die PDF durchgeblättert, es sieht so aus, als ob alle Daten bis auf die ersten Werte (die sind in Big Endian) des Headers in Little Endian interpretiert werden müssen

Kizum

Stimmt, dann wäre ein FileOpen = LE am Anfang vielleicht ganz sinvoll und die erstens bytes (BE) könnte man ja dann Konvertieren.

Auf jedenFall schon mal vielen Dank an dieser Stelle, war schon ein wenig traumatisiert, das bringt mich schon mal um einiges weiter, werde den Code mal studieren.