Лекция 6 Обработка строк в Visual Basic 6

Лекция 6 Обработка строк в Visual Basic 6 и Visual Basic 9 1

Текст (строка) – последовательность символов Под символом будем понимать знак (а также букву или цифру), которому поставлен в соответствие определённый ASCII-код – число от 0 до 255. Некоторые символы не отображаются на экране, например: 8 – звуковой сигнал 13 – Enter 32 - пробел 2

Объявление строковых переменных Для работы со строковыми переменными необходимо объявлять их так: Dim A As String символьная переменная A имеет произвольную длину (до 2 Тбайт). 3

Строковые величины В Visual Basic строковая константа заключается в кавычки: “АГТУ” “Это – текстовая константа” “ 7” Например: A=“АГТУ” B= “Это – текстовая константа” slovo = “ 7” Кавычки служат отличительным признаком текстовой константы и не учитываются при обработке строки, в частности, при определении длины строки. 4

Длина строки Длиной строки называют число символов, составляющих эту строку (учитываются все символы, в том числе пробелы). Например: Dim N = M = P = A As String = B As String = Len(A) Len(B) Len(“ 7”) “АГТУ” “Это – текстовая константа” Значение N равно 4, значение М равно 25, значение Р равно 1. 5

Конкатенация Конкатенацией (используется знак + или &) называют слияние строк, эта операция не является коммутативной: “Паша”+”Маша” > “Паша. Маша” “Маша”+”Паша” > “Маша. Паша” или, что то же самое, “Паша”&”Маша” > “Паша. Маша” “Маша”&”Паша” > “Маша. Паша” Операция & позволяет производить конкатенацию не только строк, но и чисел, которые автоматически преобразуются в строку 6

Сравнение строк При сравнении строк сравниваются их ASCII–коды. Сравнение происходит посимвольно слева направо "1977" >"1975" (т. к. ASCII-код « 7» > « 5» ) "1977 " >"1977" (пробел после « 7» в левой части) " 1977 " <"1977" (пробел перед « 1» в левой части) "лис" < "лиса" (лишняя буква «а» в правой части ) "Метка" > "Мерка" (ASCII-код «т» -242 >ASCII-код «р» -240) Задача 6. 1: ''ПЕТЯ'' ? ''ВАСЯ'' “ТАНЯ” ? “ТАЯ” “ТАНЯ” ? “Таня” 7

Встроенные функции обработки строк Формат назначение Пример использования Результат Len(x) Определение длины строки х Dim х As String х="замечательный день" K = Len(x) 18 Копирование строки длиной j, начиная с i–того символа Dim a As String Dim b As String Dim с As String a = “пароход" b = “дворник" с = Mid(a, 1, 3)+ Mid(b, 5) Парник Mid(x, i[, j]) строки х (нумерация с 1) 8

Встроенные функции обработки строк Формат назначение Пример использования Результат Left(x, i) Копирование i первых символов строки х Dim х As String х="пел” Y = Left(x, 2)+ Left(x, 10) пепел Копирование i правых символов строки х Dim х As String х=“победа" Y 1= Right(x, 4) Y 2= Right(x, 3) Right(x, i) беда 9

Встроенные функции обработки строк Формат назначение In. Str([i], x, y) Поиск первого вхождения подстроки y в строке х начиная с позиции i Asc(x) Код ASCII, соответсвующий первому символу строки х Пример использования Результат Dim х As String Х = "водоворот « K= In. Str(x, ”во”) M= In. Str(2, x, ”во”) 1 Dim х As String х=“Visual Basic“ K=Asc(x) 5 86 10

Встроенные функции обработки строк Формат Chr(i) назначение Пример использования Символ с кодом i C 1= Chr(86) C 2= Chr(Asc(“э”)+2) Space(i) V я Выдача строки, состоящей из i пробелов LCase(x) Результ ат Перевод всех прописных символов в строчные UCase(x) Перевод всех строчных символов в прописные 11

Встроенные функции обработки строк Формат Val(x) CInt(x) CDbl(x) назначение Пример использования Результат Преобразование строки в число Str(i) СStr(i) Преобразование числа в строку LTrim(x) Удаление пробелов в начале строки RTrim(x) Удаление пробелов в конце строки Trim(x) Удаление пробелов в начале и в конце строки 12

Новые функции в VB. NET 2008 Dim a, b As String a = “паровоз” k = a. Lenth() ‘Длина строки a равна 7 Старый оператор: k = Len(a) b =a. Substring(2, 3) ‘ b= “ров” нумерация с 0 Старый оператор: b = Mid(a, 3, 3) ‘нумерация с 1 13

Задача 6. 2. Счастливый номер Номер паспорта всегда шестизначный. Определить: номер «счастливый» или нет? Для справки: номер считается счастливым, если сумма первых трех цифр равна сумме последних трех цифр. Например: 278089 2+7+8 =17 0+8+9=17 14

Задача 6. 3. Подсчет символов в строке Ввести в текстовое поле Text. Box 1. Text произвольный текст. Подсчитать, сколько раз встречается в тексте каждый символ? Вывести результаты подсчета в текстовое поле Text. Box 2. Text 15

Задача 6. 4. Переворот строки Ввести в текстовое поле произвольный текст. Вывести в другое поле перевернутый текст. Например: Введено: каролина Результат переворота: : анилорак 16