Как выделить байт из числовой переменной?

[Ruslan2000]

Привет. Подскажите, пожалуйста как будет выглядеть строка присваивающая переменной типа byte значение одного из байтов переменной типа long. Помидорами прошу не кидать.

[Хакер]

viewtopic.php?f=28&t=13432&p=92918

[alibek]

Можно создать UDT из четырех байтовых мемберов (или из одного байтового массива на 4 элемента) и присвоить ее переменной Long через LSet.
Можно присвоить байтовому массиву через GetMem или CopyMemory, после чего получить нужный элемент массива.
Можно извлечь нужный байт с помощью логических операций (AND и умножение/деление).

[Денис]

Есть еще вариант. Только в качестве иллюстрации, так как вышеописанный способ с LSet гораздо правильнее (и кода меньше)

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

Option Explicit

Private Sub Form_Load()

Dim A1 As Long
Dim A2 As Byte
Dim S1 As String

'Строковый буфер
S1 = String(8, "0")

'Число long
A1 = 2147483647

'Конвертация
Mid$(S1, Len(S1) - Len(Hex$(A1)) + 1, Len(Hex$(A1))) = Hex$(A1)
Debug.Print S1

'извлекаем второй байт
'1 - четвертый, 3 - третий, 5 - второй, 7 - первый
A2 = Val("&h" & Mid$(S1, 5, 2))
'                        ^
'Наше число Byte
Debug.Print A2

End Sub

[Viper]

Есть еще вариант. Только в качестве иллюстрации, так как вышеописанный способ с LSet гораздо правильнее (и кода меньше)

Такой вариант можно использовать лишь в качестве иллюстрации того, как не надо делать!

[Ruslan2000]

Спасибо. Я задавал вопрос с целью узнать существует ли оператор типа строкового Mid, только для побайтовых операций, который я не смог найти. С написанием процедурок по 20-30 строк делающих это я справлюсь сам.

[iGrok]

Спасибо. Я задавал вопрос с целью узнать существует ли оператор типа строкового Mid, только для побайтовых операций, который я не смог найти. С написанием процедурок по 20-30 строк делающих это я справлюсь сам.

Каждый из способов, описанных alibek'ом, занимает не более 2х строк. Способ с логическими операциями - не более 3х.
Что ты собираешься делать на 20-30 строках мне пока не понятно.

[SLIM]

Такой вариант можно использовать лишь в качестве иллюстрации того, как не надо делать!

При всем уважении Viper прав.

Я задавал вопрос с целью узнать существует ли оператор типа строкового Mid, только для побайтовых операций, который я не смог найти

Mid - не оператор. И не существует ф-й, способных обрезать какую-то переменную на части.

Изучай логические операции, и сразу станет легче. И Хакер дал тебе хорошую ссылку, и Алибек. Да у тебя тут материала - лопатить не перелопатить

З.Ы. Набери в Immedate окне
151 and 1
и
151 and 2
К примеру

[Хакер]

Не логические, а bitwise. Первых в VB даже нет.

[Денис]

как не надо делать
как не надо делать

Друзья! Ну вы же знаете, как я программирую!

Andrey: привет, ты слыша про такую штуку - дикое программирование?

Juriy: Порвать на себе тельняшку, укусить менеджера, отобрать ноутбук, забиться в угол рычать и писать код?