Глупый вопрос

[xqz_me]

Есть переменная, содержащая шестнадцатеричное число. Есть ещё две переменные. В одну из них надо записать последнюю цифру данного шестнадцатеричного числа, в другую - все остальные.

[GAGArin]

Хм... Все числа в переменных шестнадцатиричные, если не сказать двоичные... Типы то какие у исходных данных и у конечных?

[keks-n]

Есть в басике функции такие: Right и Mid.

Свою переменную в строку преобразуешь, посредством Hex, назад преобразование посредством Val/

[xqz_me]

Числа целые от 0 до h2710.

[xqz_me]

Ответьте пожалуйста

[Хакер]

Делаем суб с тремя аргументами
1)Твоё число
2)Приёмник для последней цифры
3)Приёмник для "всего остального"

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


Public Sub MySplit(ByVal Num As Variant, ByRef Last As String, ByRef Another As String)

sNm = Hex$(Num)
Last = "&H" + Right(sNm,1)
If Len(sNm)>3 then
   Another = Left(sNm, Len(sNm)-1)
End If
End Sub


Пример использования:

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



MySplit &H123ABC7, a$, b$
MsgBox a$         'Сообщит "&H7"
MsgBox b$         'Сообщит "&H123ABC"


Есть ещё вопросы

[keks-n]

А можно и так:

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

Option Explicit
Private Sub Form_Load()
Dim Val1 As Long, Val2 As Long, Val3 As Long, tmstr As String
Val1 = &H2710 ' òâî¸ ÷èñëî
tmstr = Hex(Val1)
Val2 = Val("&H" & Right(tmstr, 1))
Val3 = Val("&H" & Left(tmstr, Len(tmstr) - 1))
MsgBox Hex(Val2)
MsgBox Hex(Val3)
End Sub


[Хакер]

А можно и так:

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

Option Explicit
Private Sub Form_Load()
Dim Val1 As Long, Val2 As Long, Val3 As Long, tmstr As String
Val1 = &H2710 ' òâî¸ ÷èñëî
tmstr = Hex(Val1)
Val2 = Val("&H" & Right(tmstr, 1))
Val3 = Val("&H" & Left(tmstr, Len(tmstr) - 1)) '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
MsgBox Hex(Val2)
MsgBox Hex(Val3)
End Sub


Val3 = Val("&H" & Left(tmstr, Len(tmstr) - 1))

Будет ведь "&H&H271"

[keks-n]

Неа, я проверял перед тем как писать, он когда делаешь Hex &H не добавляет почему-то...

[xqz_me]

И ещё один вопрос. Переменная содержит, например, такое строковое выражение: "08 3А 45 44 08 00 99 43 09 00" (без пробелов). Надо его записать в следующим строковом виде: третья цифра, шестая цифра, пятая цифра, восья цифра, седьмая цифра, десятая цифра, девятая цифра, двенядцатая цифра, одиннадцая цифра, четырнадцатая цифра, тринадцатая цифра, шестнадцатая цифра, пятнадцатая цифра, восемнадцатая цифра. В итоге получится "35444800099349".
Вот более наглядный пример: из "08 1A 32 54 76 98 10 32 54" (без пробелов) получаем "123456789012345".

[keks-n]

OutString=Mid(Instring,_номер цифры_,1) & Mid(Instring,_номер цифры_,1) & Mid(Instring,_номер цифры_,1) & и т. д.