Разделение массива на секции - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
