Разбитие текста на части...

[el-niko]

У меня в текстовом поле содержится текст из 0 и 1, Пусть он содеожит 400 символов... Мне нужно программно побить на группы по 4 символа в кажной групее и каждую из этих групп заменить 16-ричным кодом. Как это сделать.

Зараннее спасибо...

[tyomitch]

el-niko, и не лень тебе заводить три топика с одним и тем же вопросом?
http://bbs.vbstreets.ru/viewtopic.php?t=9765

[GM]

Почему то, я плохо понял вопрос. Может это

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

Dim result As String, sGroup As String, s As String
Dim i As Integer
s = Text1.Text
For i = 1 To Len(s) Step 4
sGroup = Mid(s, i, 4)
result = result & Hex(sGroup) & Space(1)
Next
Text1.Text = result


[tyomitch]

GM, я именно так и написал в том топике, на который дал ссылку. Только я ещё учёл, что исходная строка - двоичная.