Как грамотно записать строку байтов в массив?

[Dimon111]

Иными словами как грамотно сделать это:

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

TRL2(262145) = &H12
TRL2(262146) = &HCB
TRL2(262147) = &H38
TRL2(262148) = &HFF
TRL2(262149) = &HFF
TRL2(262150) = &HFF
TRL2(262151) = &HFF
TRL2(262152) = &H94
TRL2(262153) = &H1E
TRL2(262154) = &H1A
TRL2(262155) = &H5F
TRL2(262156) = &H6D
TRL2(262157) = &H6C
TRL2(262158) = &H7C
TRL2(262159) = &H3B


Спасибо.

[Денис]

Циклом же!

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

Dim MyStr As String
Dim trl2(262145 To 262159) As Byte
Dim M As Integer

MyStr = "12CB38FFFFFFFF941E1A5F6D6C7C3B"

M = 1
For i = 262145 To 262159
  trl2(i) = "&H" & Mid(MyStr, M, 2)
  M = M + 2
  Debug.Print trl2(i)
Next

[Dimon111]

Спасибо. Работает.

[ANDLL]

Иными словами как грамотно сделать это:

Денис
А это точно грамотнее чем в первом случае?

[Денис]

ANDLL
Главное - клиент доволен. Видите - спасибо сказал. Хотя, конечно, пару оптимизаторских (оптимизационных?) трюков здесь бы можно было применить, но в зависимости от того, из какого контекста вырван этот кусок кода.

Например, можно избавиться от типа String:

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

Dim MyStr() As Byte

[Хакер]

Денис в лучших традициях самого себя вместо, пожалуй, действительно грамотного кода, который автору темы казался неграмотным, предложил истинно фиговый вариант.

Dimon111
Если black-coding для тебя приемлем, можешь сбросить указатель в структуре safearray на тот интересующий тебя блок данных.

[Денис]

Ога, а Хакер в лучших традициях самого себя не привел ни строчки кода.

[Хакер]

Главное - клиент доволен. Видите - спасибо сказал. Хотя, конечно, пару оптимизаторских (оптимизационных?) трюков здесь бы можно было применить, но в зависимости от того, из какого контекста вырван этот кусок кода.

Да, спасибо сказал. Но даже не предположил, что ему впарили гадость.

Ога, а Хакер в лучших традициях самого себя не привел ни строчки кода.

Все необходимое уже приведено в первом постинге.

[Денис]

ему впарили гадость.

Не гадость, а бета-версию.

safearray

Я поискал по этому ключевому слову. Всё. Молчу.

[Dimon111]

Не знал, что я оказывается умею писать. Думал мое решение не в лучших традициях.

Спасибо всем ответившим.

[Dimon111]

Dimon111
Если black-coding для тебя приемлем, можешь сбросить указатель в структуре safearray на тот интересующий тебя блок данных.

Все до чего я мог допереть - создать Array. Вот фрагмент кода:

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

Dim TRL2(266239) As Byte, i As Long, HeadArray() As Variant
HeadArray = Array(&H12, &HCB, &H38, &HFF, &HFF, &HFF, &HFF, &H94, &H1E, &H1A, &H5F, &H6D, &H6C, &H7C, &H3B, _
&H0, &H0, &H0, &H0, &HED, &HEE, &HE2, &HFB, &HE9, &H20, &HF2, &HF0, &HE5, &HEA, &H31, &H0, &HF1, &HEE, &HE7, _
&HE4, &HE0, &HED, &H20, &HE8, &HE7, &H20, &H56, &H33, &H0, &HEB, &H3E, &H7C)
For i = 0 To UBound(HeadArray)                 'Цикл заполнения строки заголовка трека
    TRL2(i + 262145) = HeadArray(i)            'Разбор строки заголовка трека
Next


[Хакер]

Dimon111
Самый первый твой вариант был на порядок лучше.

[alibek]

Dimon111, если тебе не нравится, как твой первый вариант выглядит внешне, то внеси значения в бинарный файл, файл добавь в ресурсы и затем загружай из ресурсов.

[Dimon111]

Dimon111, если тебе не нравится, как твой первый вариант выглядит внешне, то внеси значения в бинарный файл, файл добавь в ресурсы и затем загружай из ресурсов.

Да, наверно это будет лучший вариант. Спасибо.