Основы офисного программирования и язык VBA


Пример 8.3


Public Sub SplitAndJoin()

'В этой процедуре сложное предложение разделяется на простые

'А затем после обработки строка восстанавливается

'Здесь же демонстрируется фильтрация элементов массива

'Объявляем динамический массив

Dim Simple() As String, i As Byte

Dim Simple1() As String, Res As String

Dim Simple2() As String

'Размерность массива Simple устанавливается автоматически

'в соответствии с размерностью массива, возвращаемого функцией Split

Simple = Split("А это пшеница, которая в темном чулане хранится в доме, " _

& "который построил Джек", ", ")

'Создаем новый массив

ReDim Simple1(1 To UBound(Simple) + 2)

Simple1(1) = "А это веселая птица - синица"

Simple1(2) = "которая часто ворует пшеницу"

For i = 3 To UBound(Simple1)

Simple1(i) = Simple(i - 2)

Next i

'Создаем строку из массива Simple1

Res = Join(Simple1, ", ")

Debug.Print Res

'Фильтрация элементов массива

Simple2 = Filter(Simple1, "котор")

Res = Join(Simple2, ", ")

Debug.Print Res

Simple2 = Filter(Simple1, "котор", False)

Res = Join(Simple2, ", ")

Debug.Print Res

End Sub




Начало  Назад  Вперед



Книжный магазин