Что нового

Перевести в Hex отдельные числа в одной строке

Isn

Новичок
Сообщения
119
Репутация
3
Приветствую
Имеются числа в одной строке: 120 233 205 17
Как перевести в Hex числа разделенные пробелами что бы на выходе получить 78E9CD11 пример из справки преобразует только первое число.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Isn,
Можно примерно так сделать.
Код:
Local $sStr = '120 233 205 17'

Local $aTmp, $sHex, $iLen

$aTmp = StringSplit(StringStripWS($sStr, 7), ' ')
For $i = 1 To $aTmp[0]
	$aTmp[$i] = Int($aTmp[$i])
	Switch $aTmp[$i]
		Case 0x00 To 0xFF
			$iLen = 2
		Case 0x0100 To 0xFFFF
			$iLen = 4
		Case Else
			$iLen = 8
	EndSwitch
	$sHex &= Hex($aTmp[$i], $iLen)
Next
ConsoleWrite($sHex & @TAB & $iLen & @LF)
 
Верх