Сложные типы данных

знаком
Single ‘С плавающей точкой одинарной точности
Double ‘С плавающей точкой двойной точности
Date ‘Дата и время
Decimal ‘Действительное значение, хранимое как целое
Currency ‘Число строго с четырьмя знаками после запятой

Информатика. 2 семестр. Тема 05. Сложные типы

«Почти-простые» типы данных

Variant ‘Нетипизированный указатель
Object ‘Указатель на объект
String ‘Строка символов

структуры
* * *
End Type

Информатика. 2 семестр. Тема 05. Сложные типы

Директива Type задает (декларирует) описание пользовательского типа. В VBA под пользовательским типом понимается структура ( struct в c# ) или запись (record в Delphi).

Пользовательские типы могут «вкладываться» друг в друга

Type extranewtype
element As newtype ‘ «Вложили» описанный ранее тип
* * *
End Type

newtype

element

* * *

newtype

element

* * *

element

* * *

Ivanov As student
Dim students() As student
* * *
Ivanov.fio = “Иванов“
students(1).score = 5
* * *
students(5) = Ivanov

Информатика. 2 семестр. Тема 05. Сложные типы

Главное преимущество использования пользовательских типов – поддержание целостности данных при копировании

Dim Ivanov_fio As String
Dim Ivanov_course As Integer
Dim Ivanov_score As Double
Dim students_fio() As String
Dim students_course() As Integer
Dim students_score() As Double
* * *
Ivanov_fio = “Иванов“
students_score(1) = 5
* * *
students_fio(5) = Ivanov_fio
students_course(5) = Ivanov_course
students_score(5) = Ivanov_score

А если нужно добавить студенту, например, возраст?

«стандартных» типов, объявление пользовательского типа должно быть доступно для любого кода, использующего этот тип.
Лучший вариант – вынесение объявлений в отдельный модуль

Если тип объявлен в нескольких модулях, то используем полное имя типа: ModuleName.TypeName

DefModule

Type student
fio As String
course As Integer
score As Double
End Type

Module1

Dim Ivanov As student

Dim Ivanov As DefModule.student

Если тип с совпадающим именем объявлен также в своём модуле, то его определение экранирует остальные. При необходимости, можно использовать полное имя типа: ModuleName.TypeName

сохранять набор однотипных данных

Если данные одного типа (даже пользовательского) и их можно упорядочить (пусть и формально) для хранения набора можно использовать массив

Для статического массива заранее известно количество элементов

usertype

type1

* * *

list

element

* * *

element

element

type2

type3

Type usertype
type1 As String
type2 As Integer
type3 As Double
* * *
End Type

Dim ArrayName(Length) As smthtype
Dim ArrayName() As smthtype

Для динамического массива - количество элементов может меняться

Важно:

(массива фиксированного размера):

Dim Array1(5) As Integer ‘Определена верхняя граница
Dim Array2(2 To 10) As Integer ‘Определены обе границы

Возможно создать многомерный «прямоугольный» массив

Dim Array3(5, 2 To 10) As Integer ‘Определен двумерный массив

Не путать размер и размерность!

Для динамического массива (массива переменного размера):

Dim Array4() As Integer ‘Определен динамический массив

Перед использованием обязательно указать размер и размерность

ReDim Array4(2 To 6, 3) As Integer ‘Настройка массива

При использовании ReDim массив «очищается», но

ReDim Preserve Array4(2 To 6, 5) As Integer ‘Данные сохраняются

Preserve используется только при изменении последнего индекса

выполняет контроль диапазонов индексов для массивов при обращении к элементам

Ошибка ‘9’: Subscript out of range

Option Base 2 ‘Установка нижнего индекса «по-умолчанию»

Индексы массива всегда образуют непрерывный ряд целых чисел

Dim Array5 ( 4 ) As Integer ‘Объявлен массив с 3 элементами
Dim Array5 ( 1 To 4 ) As Integer ‘Объявлен массив с 4 элементами

В VBA определены функции для получения граничных индексов

MinIndex = LBound ( ArrayName ) ‘Нижняя граница
MaxIndex = UBound ( ArrayName ) ‘Верхняя граница

N = UBound ( A ): ReDim Preserve A(N + 1): A(N + 1) = X ‘ «на вершину»

Пример: Добавление элемента X «в конец» массива A():

В VBA индекс элемента массива не равен его порядковому номеру

последовательность символов.

Dim str1 As String ‘Строка переменной длины
Dim str2 As String*10 ‘Строка фиксированной длины

Для строк определены два оператора

str1 = “Hello world!” ‘Присвоение значения
str1 = “Здравствуй, ” & “Мир!” ‘Конкатенация – слияние строк

Последовательность символов образующая строку хранится в памяти как неизменная величина в динамической памяти. Указатель на структуру, образующую строку, обрабатывается средой VBA «прозрачно» для пользователя.

Объявление переменной строкового типа

Функции преобразования типов

str1 = Str ( 100500 ) ‘Получение строкового представления
N = Val (“100500”) ‘Преобразование строки в число (тип Double)

VBA использует для строк кодировку Unicode ( UTF-16LE )

– это последовательность двухбайтных кодовых единиц.

Непосредственная работа с кодовыми единицами выполняется функциями Asc() и Chr():

1055 ← AscW ( “Привет” ) ‘ Unicode-код первого символа строки
31 ← AscB ( “Привет” ) ‘ Значение первого байта строки
207 ← Asc ( “Привет” ) ‘ ASCII-код первого символа строки
П ← ChrW ( 1055 ) ‘ Символ по Unicode-коду
Z ← ChrB ( 90 ) ‘ !!! Неполная кодовая единица !!!
П ← Chr ( 207 ) ‘ Символ по ASCII-коду

Можно использовать комбинации

П̅ ← ChrB( 31 ) & ChrB( 4 ) & ChrW( 774 ) ‘ «Надчёркнутое» П (cyrrilic)

Подсчет «длины» строки – функция Len()

L = Len ( “Привет” ) ‘ Число «полных» кодовых единиц в строке

L = LenB ( “Привет” ) ‘ «Устаревшая» функция «длина в байтах»

Число кодовых единиц не равно числу кодовых точек (символов)

<старт> [, <длина>]) ‘ Скопировать подстроку
Mid (<строка>, <старт>) ‘ Скопировать от <старт> до конца
Left (<строка>, <длина>) ‘ Скопировать от левого края
Right (<строка>, <длина>) ‘ Скопировать от правого края

«Чистка» от служебных символов и пробелов

Trim (<строка>) ‘ Удаление краевых пробелов (всех)
LTrim (<строка>) ‘ Удаление пробелов слева
RTrim (<строка>) ‘ То же, но справа

Анализ строки (поиск подстрок и замена вхождений)

InStr([<старт>,] < строка1>, <строка2> [,<сравнение>]) ‘ Поиск подстроки
InStrRev( … ) ‘ Поиск подстроки, но с конца
Replace (<строка>, <строкаПоиск>, <строкаЗамена>) ‘ Замена

Задание: Напишите программу обработки CSV:

S = “1; 2; 3; 4” ‘ Загрузить в Dim A() AS String по отдельности

в строках

StrReverse (<строка>) ‘ «Переворот» строки
UCase (<строка>) ‘ Всё в ВЕРХНИЙ регистр
LCase (<строка>) ‘ Всё в нижний регистр
StrConv (<строка> [, <метод>]) ‘ Преобразование строки
‘ метод = vbProperCase (Слова
‘ начинаются с заглавных)

Проверка и сравнение строк

<строка> Like <шаблон> ‘ Сравнить с шаблоном
StrComp (<строка1>, <строка2> [, <метод>]) ‘ Сравнить строки:
‘ Результат = {-1, 0, 1, Null } для { < , = , > , Null }
‘ <метод> = {vbBinaryCompare, vbTextCompare}

Заполнение

String (<длина>, <символ>) ‘ Создать строку из символов
Space (<длина>) ‘ То же, но из пробелов

в массив по символу-разделителю

Buf = “” ‘ Это буфер
For I = 1 To Len( Str1) ‘ «Пробежимся» по строке
If (Mid(Str1, I, 1) = “;”) Then ‘ Если i-тый символ – разделитель
* * * Buf → S() * * * ‘ Здесь код добавления в массив
Else ‘ Если i-тый символ – не разделитель
Buf = Buf & Mid(Str1, I, 1) ‘ Добавляем в буфер
Next I

Очистка буфера, последний элемент , а если нет разделителя?

Split (<строка> [, <разделитель>]) ‘ Разбить строку на подстроки
Join (<массив строк> [, <разделитель>]) ‘ Объединить строки
Filter(<массив строк>, <фрагмент>[, <включение>] [, <сравнение>])
‘ Просмотр массива строк с целью поиска искомой
‘ Возвращает массив подходящих строк

Ничего не упустили?

Что предлагает VBA?

As String
End Type
Dim myarr() As rowtype
myarr(2).el(3) = “X”

X

array

row_0

row_1

row_2

…

…

0:

2:

1:

3:

1:

2:

…

…

Type celltype
id As Integer
value As String
End Type
Type rowtype
el() As celltype
End Type
* * *

А есть ещё «облака» и коллекции…