Кодировка символов. Символьный тип. Строковые функции. Примеры. Лекция 4

Кодировка символов
Для кодировки символов в Windows используется таблица ASCII (American Standard Code for Interchange of Information).
Кодировка символов (часто называемая также кодовой страницей) – это набор числовых значений, которые ставятся в соответствие группе алфавитно-цифровых символов, знаков пунктуации и специальных символов.
В ASCII первые 128 символов всех кодовых страниц состоят из базовой таблицы символов. Первые 32 кода базовой таблицы, начиная с нулевого, размещают управляющие коды.

Служебные символы
Кодировка ANSII

Кодировка символов - ANSII
Alt+Код

Кодировка символов – расширенная
866 DOS
Alt+Код

1251 – кодовая страница Windows

EBCDIC (англ. Extended Binary Coded Decimal Interchange Code — расширенный двоично-десятичный код обмена информацией; произносится «и-би-си-дик») — стандартный восьмибитный код, разработанный корпорацией IBM для использования на мэйнфреймах собственного производства и совместимых с ними. Российским аналогом EBCDIC является код ДКОИ-8, в который добавлена кодировка кириллицы.
Кодировки символов
8 бит – 1 байт
OEM расшифровывается как "Original Equipment Manufacturer". Применительно к компьютерным кодировкам изначально это обозначало набор символов, аппаратнопрошитый в знакогенераторе. А когда знакогенераторы видеокарт перестали аппаратнопрошивать, это стало обозначать кодировку DOS.

Кодировки символов
8 бит – 1 байт
Windows-1251 — набор символов и кодировка, являющаяся стандартной 8-битной кодировкой для русских версий Microsoft Windows до 10-й версии.
В современных приложениях отдается предпочтение Юникоду (UTF-8).
ISO 8859 — (International Organization for Standardization)
Международная организация по стандартизации
КОИ-8 (код обмена информацией, 8 битов), KOI8— восьмибитовый стандарт кодирования символов в информатике. Разработан для кодирования букв кириллических алфавитов.

Кодировки символов
2 байта – 16 бит
Юнико́д или Унико́д (англ. Unicode) — стандарт кодирования символов, позволяющий представить знаки практически всех письменных языков.
Unicode символов “А” – 0410
“Я” – 042F
Стандарт предложен в 1991 году некоммерческой организацией «Консорциум Юникода» (англ. UnicodeConsortium, Unicode Inc.).

Строковый тип данных
Любые текстовые данные, сохраняемые в VBA, называются строками.
Строки всегда заключаются в двойные кавычки.
Строка может содержать любые символы, начиная с кода 32 кодовых таблиц.
“Пример строковой константы”

Строковый тип данных

Конкатена́ция (лат. concatenatio «присоединение цепями; сцепле́ние») — операция склеивания объектов линейной структуры, обычно строк.
Операторы над строками
sText = “Привет” & “ мир!” ? sText = “ Привет мир!”
sText = “Привет” + “ мир!” ? sText = “ Привет мир!”

Функции кодирования символов
Asc(string) - возвращает числовой код первого ASCII-символа строки.
Пример: nInd = Asc(“A”) ? nInd = 65
Chr(integer) – возвращает ASCII-символ, соответствующего числового кода в пределах 0-255.
Пример: sCr = Chr(65) ? sCr = “A”
MsgBox(“Служебные”&Chr(13) _ &”символы”)
MsgBox(“Служебные символы”)
Использование служебных символов

Строковые функции
Len(string) – возвращает длину строки.
nLength = Len(“Привет”) ? nLength = 6

Получение части строки
Left(string, N) – возвращает N количество символов из левой части строки string.
sText = Left(“Привет Мир!”, 6) ? sText = “Привет”
Right(string, N) – возвращает N количество символов из правой части строки string.
sText = Left(“Привет Мир!”, 0) ? sText = “”
sText = Left(“Привет Мир!”, 16) ? sText = “Привет Мир!”
sText = Right(“Привет Мир!”, 4) ? sText = “Мир!”
sText = Right(“Привет Мир!”, 0) ? sText = “”
sText = Right(“Привет Мир!”, 16) ? sText = “Привет Мир!”

Доступ к символам строки
Функция:
Mid(строка, начало [, длина]) - возвращает указанное количество символов из строки.
где
строка – строковая переменная или константа;
начало – позиция символа в строке;
длина - необязательный параметр, указывающий на количество возвращаемых символов.
sText = Mid(“Привет Мир!”, 8, 3) ? sText = “Мир”
sText = Mid(“Привет Мир!”, 8) ? sText = “Мир!”
sText = Mid(“Привет Мир!”, 12, 3) ? sText = “”

Доступ к символам строки
Оператор:
Mid(строка, начало [, длина]) - заменяет указанное количество символов из другой строки.
где
строка – строковая переменная;
начало – позиция символа в строке;
длина - необязательный параметр, указывающий на количество заменяемых символов.
sText = “Привет Мир!”
Mid(sText, 8) = “Юля” ? sText = “Привет Юля!”
Mid(sText, 8, 1) = “Пэр” ? sText = “Привет Пир!”

Replace( Строка, Найти, Заменить ) – возвращает измененную строку.
Замена символов в строке
где
Строка – строковая переменная или константа;
Найти – строковая переменная или константа с фрагментом для поиска в строке;
Заменить – строковая переменная или константа для замены найденного фрагмента
sText = Replace(“Привет Мир!”, “и”, “а”) ? sText = “Правет Мар!”
sText=Replace(“Привет Мир!”, “Мир”, “Пир”)?sText=“Привет Пир!”

Поиск фрагмента в строке
где
Пуск – необязательный параметр, числовая переменная или константа, указывает на позицию, с которой осуществляется поиск в строке.
По умолчанию, поиск начинается с начала строки.
InStr([ Пуск, ] Строка, Поиск ) – возвращает положение первого появления одной строки внутри другой.
Строка – строковая переменная или константа;
Поиск – строковая переменная или константа с фрагментом для поиска в Строке.
n = InStr(“Привет”, “и”) ? n=3;
n = InStr(1, “Привет”, “и”) ? n=3.

Поиск фрагмента в строке
где
Строка – строковая переменная или константа;
InStrRev(Строка, Поиск[, Начало]) – возвращает позицию вхождения строки Поиск в Строку, начиная с конца.
Поиск – строковая переменная или константа фрагмента поиска;
Начало – числовая переменная или константа, с которого начинается поиск, начиная с конца
m = InStrRev("Привит", "и", 4) ? m=3.
m = InStrRev("Привит", "и") ? m = 5;

Сравнение строк
Операторы условия: <, >, =, >=, <=, <>
nBool = “Вар” < ”Дар” ? nBool = true (истина)
nBool = “вар” < ”Дар” ? nBool = false (ложь)
194 ? “В”
196 ? “Д”
226 ? “в”
194 < 196 = true
226 < 196 = false
nBool = “Вар” < ”Вор” ? nBool = true (истина)

Сравнение строк
StrComp( Строка1, Строка2 ) – возвращает числовой результат сравнения строк.
где
Строка1 – строковая переменная или константа;
Строка2 – строковая переменная или константа.
n = StrComp(“Вар”, “Дар”) ? n = -1
-1 ? Строка1 < Строка2;
0 ? Строка1 = Строка2;
1 ? Строка1 > Строка2.
n = StrComp(“Вар”, “Вар”) ? n = 0
n = StrComp(“вар”, “Дар”) ? n = 1
Самостоятельно
Оператор Like – сравнения строк по шаблону

Преобразование строк
sText = LCase(“C123MM RUS199”) ? sText=“с123мм rus199”

Преобразование строк
sText = UCase("Hello World 1234“)
? sText = “HELLO WORLD 1234”
Самостоятельно StrConv, StrReverse

Удаление пробелов
RTrim(строка) – возвращает копию строки без конечных пробелов
LTrim(строка) – возвращает копию строки без начальных пробелов
Trim(строка) – возвращает копию строки без начальных и конечных пробелов
sText = LTrim(“ <Пример> ”) ? sText = “<Пример> ”
sText = RTrim(“ <Пример> ”) ? sText = “ <Пример>”
sText = Trim(“ <Пример> ”) ? sText = “<Пример>”
где строка – строковая переменная или константа

Создание массива
Dim M
M = Array(“Понедельник”, “Вторник”, “Среда”)
For i=LBound(M) To UBound(M)
sText = M(i)
Next
sText = M(0) = “Понедельник”
sText = M(1) = “Вторник”
sText = M(2) = “Среда”

Создание массива
Самостоятельно изучить
Split и Join

Поиск символа в строке
Даны три слова. Определить количество символов “а”
в каждом слове.

Sub ЛР4()
End Sub
Dim M, N() As Integer
M = Array(“Правда", «Амур", «Комсомолец")
ReDim N(UBound(M))
For i = LBound(M) To UBound(M)
M(i) = LCase(M(i))
nPos = 0
Next
Do
Loop While nPos > 0
nPos = InStr(nPos + 1, M(i), “а")
N(i) = IIf(nPos > 0, N(i) + 1, N(i))
MsgBox («В слове""" + M(i) + """ количество символов а=" & N(i))

Блок-схема
Начало
М = Array
i=LBound(M) To UBound(M)
M(i)=LCase(M(i))
nPos=0
1
1
nPos=InStr(nPos+1), M(i), “а”)
N(i)=IIF(nPos>0,N(i)+1,N(i)
Loop
while
nPos>0
2
N(i)
Конец
3
3
2
Да
Нет

Блок-схема