Разделение массива на секции - VBA
Формулировка задачи:
существует массив
10011100001101010000010001010110001110011001001001010001101101111111011000001001
нужно разделить его так чтобы выглядел он примерно так
10-01-110-0001-10-10-10-00001-0001-01-01-10-001-110-011-001-001-001-01-0001-10-110-11111110-110-00001-001
Т.е чтобы в каждой серии присутствовали оба знака.
Объясните последовательность действий.
Решение задачи: «Разделение массива на секции»
textual
Листинг программы
Sub asd() Const c$ = "10011100001101010000010001010110001110011001001001010001101101111111011000001001" Dim s$, i&, j& For i = 1 To Len(c) For j = i + 1 To Len(c) If Mid(c, i, 1) <> Mid(c, j, 1) Then s = s & "-" & Mid(c, i, j - i + 1) i = j Exit For End If Next Next s = Mid(s, 2) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д