[решено] Работа с бинарным значением, как с строкой.

Creat0R · Конфигурация компьютера

Цитата:

Мне нужно работать с этим, как с обычной строкой.

Код:

$nVar = 0x0A0000

GetLength($nVar)

Func GetLength($Data)
    $Data = '0x' & Hex($Data, 6)
    ConsoleWrite("IsString($Data): " & (IsString($Data) = 1) & @CRLF)

    Local $Return = StringMid($Data, 7, 1)

    $Return = 16 * $Return + StringMid($Data, 8, 1)
    $Return = 16 * $Return + StringMid($Data, 5, 1)
    $Return = 16 * $Return + StringMid($Data, 6, 1)
    $Return = 16 * $Return + StringMid($Data, 3, 1)
    $Return = 16 * $Return + StringMid($Data, 4, 1)

    ConsoleWrite("$Return = " & $Return & @CRLF)

    Return $Return
EndFunc

Я только не пойму как из этого должно получиться 10

.

SyDr · Конфигурация компьютера

Упс... Там где StringMid должно ещё и Dec стоять

Спасибо))

Creat0R · Конфигурация компьютера

А для чего предназначено конвертирование подобного рода?

SyDr · Конфигурация компьютера

Это перевод из 16-ричной системы счисления в 10 с использованием минимального числа сложений и умножений. При этом возведение в степень не используется. Просто у меня порядок цифр в числе другой. Сначала идёт младшие два разряда. Потом средние два. Потом старшие два.

Могу написать поподробнее про сам перевод. Только что-то я тут не вижу тега, чтобы писать индексы. Оффтоп, в принципе, подходит, но должно ведь быть что-то другое.