Ich parse gerade an etwas rumm, dabei hab ich ein Problem mit meinem $Files Array.
$Data =
Die For Schleife:
löscht mir meine alten Ergebnisse, die ich weiter oben über
ermittelt habe.
Wo ist das Problem?^^
$Data =
Code:
00000000EC0000005D0000001C273F49000000005346540000000000555650414E0000000000009C010000610000001C273F490000000053465400000000005556574152424C4500000000000049010000530000001C273F490000000053465400000000005556524F54415445000000000000050300007B0000001C273F490000000053465400000000005753504F53585A50414E000000000000FD010000370000001C273F490000000053465400000000005753454E565245464C454354464C4F4F5200000000000034020000D10000001C273F490000000053465400000000005753504F53524F5441544541524F554E445900
Code:
While True
$i += 1
ReDim $Files[$i][3]
$posi = StringInStr($data, "1C273F49", 0, 1, $posi + 8)
If $posi Then
$Files[$i - 1][1] = Dec(ConvertRezBack(StringMid($data, $posi - 16, 8)))
$Files[$i - 1][2] = Dec(ConvertRezBack(StringMid($data, $posi - 8, 8)))
For $c = 2 To 8 Step 2
_ArrayDisplay($Files)
$Files[$i - 1][0] &= BinaryToString("0x" & (StringMid($data, $posi + 22 - $c, 2)))
Next
Else
ExitLoop
EndIf
ConsoleWrite($posi & @CRLF)
WEnd
Code:
For $c = 2 To 8 Step 2
_ArrayDisplay($Files)
$Files[$i - 1][0] &= BinaryToString("0x" & (StringMid($data, $posi + 22 - $c, 2)))
Next
Code:
$Files[$i - 1][1] = Dec(ConvertRezBack(StringMid($data, $posi - 16, 8))) $Files[$i - 1][2] = Dec(ConvertRezBack(StringMid($data, $posi - 8, 8)))
Wo ist das Problem?^^