Конвертация HEX в Long

[Игорь Столяров]

Привет всем !

Есть прекрасная функция LongToHEX() для конвертации числа из 10-чной в 16-тиричную систему исчисления.

А есть ли обратная функция ?
Есть строка 'ABCD' - можно ли как-то просто получить 10-тичное значение ?

Понятно, что можно распарсить в цикле с младшего разряда ... но неужели нет готового метода ?
Заранее спасибо !

[Дед Пахом]

Код: Выделить всё

sHexStr   STRING('ABCD')
x = EVALUATE('0' & sHexStr & 'h')

[Игорь Столяров]

Неожиданно. Спасибо !

[Игорь Столяров]

Всё работает. Теперь удалось сделать отображение версий DLL в человекочитабельном виде.

[Дед Пахом]

0x353Eh это сразу во всех форматах, надо либо 0x353E (c/c++), либо 0353Eh (Clarion).

[Игорь Столяров]

Спасибо. Сделал вариант 0x353E - думаю сисадминам он более понятен, чем Clarion'новский.

[kreator]

У меня тоже есть такая же конвертация. Через evaluate. Только забыл зачем этот evaluate там нужен? Старость - не радость. Может здесь это уже обсуждали? Не мог же я сам это придумать?

[gopstop2007]

Всё работает. Теперь удалось сделать отображение версий DLL в человекочитабельном виде.

Пока не сталкивался, но все равно интересно, как вы проверяете?
В основном app.exe или дополнительного? И если можете, поделитесь кусочком кода сего чуда Спасибо заранее.

[Игорь Столяров]

И если можете, поделитесь кусочком кода сего чуда

Идите Вы вот сюда: viewtopic.php?f=1&t=4844
А я там сейчас пример добавлю ...

[Игорь Столяров]

Забавно вышло, но нашёл ответ на свой вопрос вот здесь: https://github.com/deesoftprog/Clarion-Hint-library
И вообще, интересный раздел мелких функций в исходниках ... Вот это точно можно было бы в FAQ добавить.

[Игорь Столяров]

Нашёл интересный, и наверно оптимальный, вариант сабжа !

Код: Выделить всё

HexToLong            PROCEDURE  (String pHex)  !,Long
RetVal               Long,Auto
  Code
  pHex   = Upper(pHex)
  RetVal = InString(Sub(pHex,Len(Clip(pHex)),1),'123456789ABCDEF',1)
  If Len(Clip(pHex)) > 1
     RetVal += 16 * HexToLong(Sub(pHex,1,Len(Clip(pHex)) - 1))
  end
  Return RetVal  

[Дед Пахом]

Ну с рекурсией так себе скорость будет. Да ещё эти Clip, Len, InString явно не убыстряют.

[Игорь Столяров]

Здесь рекурсия предсказуемая ... В принципе, её мона заменить на цикл Len(pHex) по строке.

[Дед Пахом]

Мне нравится это "В принципе"

[Игорь Столяров]

Здесь нет халявщиков и мониторщиков ! На вскидку без рекурсии:

Код: Выделить всё

ZINT::HexToLong  Procedure(String pHex)  !,Long
RetVal  Long(0)
lCoef   Long(1)
bCount  Byte,Auto

  Code
  Loop bCount = Len(pHex) to 1 by -1
    RetVal += InString(Upper(Sub(pHex,bCount,1)),'123456789ABCDEF',1) * lCoef
    lCoef  *= 16
  end
  Return RetVal

Быстрее кусать строку как массив, но мы за безопасный код !