Есть ли функция преобразования строки в двоичные данные ?

[ALX_2002]

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

[A.A.Z.]

Код генерит рандомную строку из 1000 символов, затем запихивает ее в Text1 и байты в Text2.

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

Option Explicit

Private Sub Form_Load()
Dim S$, Arr() As Byte, I&, T!, S2$
For I = 0 To 1000
S = S & Chr(32 + Rnd * (223))
Next
T = Timer
For I = 0 To 1000
ReDim Preserve Arr(I) As Byte
Arr(I) = Asc(Mid(S, I + 1, 1))
S2 = S2 & Hex(Arr(I))
Next
MsgBox "Время (в с): " & Timer - T
Text1.Text = "Строка: " & S
Text2.Text = "Байты: " & S2
End Sub

Пойдёт?

[ALX_2002]

Хм..... если 1 мег перелапачивать, то всё таки тормозит

[A.A.Z.]

Ты же сказал 1000 символов

[Eugenio]

Try this:

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

Dim Bytes() as Byte
Dim StrMyString As String, StrMyNewString As String

While Len(StrMyString) < 1000
    StrMyString = StrMyString & "How do you do?"
Wend
Bytes() = StrMyString

StrMyNewString = Bytes()

По результатам отладочной печати у меня занимает < 1 cек. А тут, заметь, есть преобразование и туда, и обратно.
Правда, комп - мощный.

[ALX_2002]

Хм.... А это идея....Вроде пашет даже....

Пойду в тот пост - спрошу как указать с какого места в масив читать.

А ваще пасиба !!!

[tyomitch]

По результатам отладочной печати у меня занимает < 1 cек. А тут, заметь, есть преобразование и туда, и обратно.
Правда, комп - мощный.

Имхо скорость можно увеличить ещё на порядок, выделяя всю строку заранее и потом насовывая туда данные оператором Mid.
Конкатенация - медленная операция, из-за того, что она создаёт новую строку и освобождает старую.