 |
Пример 6 . Пример использования функции INSTR
|
|
|
|
А$ = "Кавказ"
В$ ="а"
PRINT INSTR(a$, b$)
PRINT INSTR(3, a$, b$)
Результат:
Работа программы. Первая функция INSTR начинает поиск вхождения, а в слово Кавказ с первого символа и возвращает номер первого вхождения (2). Вторая функция начинает поиск с третьей позиции и возвращает число 5.
Функции LTRIM$ и RTRIM$
Эти функции используются для удаления первых (левых) и последних (правых) пробелов текстового выражения, если начальные или концевые пробелы есть.
LTRIМ$ (текстовое_выражение)
RTRIМ$ (текстовое_выражение)
Функция ASC
Функция возвращает код ASCII, соответствующий указанному знаку.
АSС (символьное_выражение)
В качестве символьного выражения можно использовать текст в кавычках, строковую переменную или выражение с текстовым результатом. Функция возвращает ASCII-код только первого знака строки.
Пример 7. Пример использования функций ASC
PRINT ASC("A"):
PRINT ASC("AB")
Результат:
65 65
Функция CHR$
Выводит на экран символ, соответствующий определенному номеру в таблице ASCII.
CHR$(n)
Здесь n — код из таблицы ASCII. Oн должен попасть в диапазон от 0 до 255, иначе будет выведено сообщение об ошибке Illegal function call (Неверный вызов функции).
Базовые алгоритмы обработки текста
С определенной долей условности можно выделить ряд действий, которые чаще других выполняются в программах, работающих с текстовой информацией. К таким действиям можно отнести:
1. Определение общего количества символов в переменной.
2. Выделение символов.
3. Анализ символа на принадлежность к логической группе.
4. Уменьшение/увеличение текста путем удаления/ввода знаков.
5. Разделение текста на отрезки в соответствии с условием.
6. Выделение отдельного слова из текста.
|
|
|
7. Перестановка элементов текста.
Каждому действию соответствует группа алгоритмов, которая имеет определенную специфику приложения к разным задачам
Определение количества символов в строке
Длину текстовой переменной вычисляет функция LEN. Она возвращает числовое значение целого типа (INTEGER), которое равно общему количеству знаков в анализируемой строке.
Пример 8. Определить количество символов в переменной «Москва»
A$ = “Москва” x = LEN (A$) PRINT X Результат: 6
Функция LEN может быть частью выражения или аргументом оператора. В частности, данную программу можно записать и в одну строку:
PRINT LEN("Москва”)
В качестве аргумента функции LEN можно ввести не только одну текстовую переменную, но и выражение с несколькими переменными и специальными функциями.
Выделение символов
Необходимость выделения определенного символа или символов текстовой переменной диктуется условиями, большого количества задач. Под выделением понимают нахождение знака, вывод его на экран или любой другой вид обработки. Естественно, что выделяют знаки, удовлетворяющие определенному условию,
Алгоритмы, решающие подобные задачи, как правило, работают в два этапа: сначала выделяют очередной знак переменной, затем анализируют его на удовлетворение условию.
Поочередное выделение всех знаков переменной осуществляется в цикле с помощью функции MID$.
Пример 9. Вывести на экран буквы слова «Хорошо» по одной в каждой строке
A$ = "Хорошо" 'Задаем переменную
x = LEN(A$) 'и определяем ее длину
FOR i = 1 TO x
tmp$ = MID$(A$, i, 1) 'Присваиваем очередной значение переменной tmp$
PRINT tmp$ 'Выводим знак
NEXT i
PRINT LEN("Москва")
Результат
X
о
р
о
ш
о
Работа программы. Переменной A$ присваиваем строку символов “Хорошо”. Определяем длину слова и сохраняем это значение в переменной х. Задаем цикл, счетчик которого изменяется от 1 до х. В ходе каждой итерации цикла функция MID$ будет присваивать tmp$ очередной (i-й) символ переменной A$. При этом значение самой А$ не изменяется, то есть MID$ не вырезает знак из нее, а просто копирует и присваивает его переменной tmp$. С очередной итерацией цикла в tmp$ передается очередной знак. При i = 1 передается первый знак, при i - 2 — второй, и так далее. На то, что передастся один знак, указывает третий параметр в списке аргументов MID$.
|
|
|
Пример 10. Определить сколько раз встречается буква «а» в слове «абракадабра»
А$ ="абракадабра"
FOR i = 1 TO LEN(a$)
tmp$ = MID$(a$, i, 1) 'Выделяем букву
IF tmp$ = "а" THEN k = k + 1 'Сравниваем букву с "а"
NEXT i
PRINT k 'Выводим результат
Результат: 5
Работа программы. В цикле функция MID$ поочередно выделяет буквы из слова абракадабра и присваивает их переменной tmp$. В строке с оператором IF проверяется, содержит ли tnp$ букву а. Если tmp$= "a", то значение счетчика k увеличивается на 1.
Функция MID$ — не единственный инструмент выделения знаков из текстовой переменной. В некоторых случаях
Пример 11.Удалить первый и последний символ текстовой переменной.
a$ = " В Россию можно только верить." a$ = LEFT$(a$, LEN(a$) - 1) a$ = RIGHT$(a$, LEN(a$) - 1) PRINT a$
Выделение знаков, номера которых обладают определенными свойствами, происходит с использованием операторов логической передачи управления.
Пример 12. Сформировать В$, состоящую из знаков A$. порядковые номера, которых кратны N.
n = 3
a$ = "cиСтеМныЙ бЛок"
FOR i = 1 TO LEN(a$)
tmp$ = MID$(a$, i, 1)
IF i / n = i \ n THEN B$ = B$ + tmp$
NEXT i
PRINT B$
Результат: СМЙЛ!
Работа программы. Программа выделяет каждый третий знак строки A$ и прибавляет его к В$, в которой накапливается текстовая сумма выделенных знаков. Условие выбора описано в операторе IF.
Выделение логической группы
Логической группой называют совокупность знаков, которая объединена общими свойствами. К таким группам можно отнести гласные и согласные буквы русского алфавита, буквы латинского алфавита, цифры, строчные и прописные буквы и многие другие.
Каждый алгоритм анализа символа содержи три основных действия:
1. Выделение.
2. Анализ.
3. Обработка по условию.
Анализ заключается в проверке, соответствует ли знак условию
принадлежности к логической группе. Как правило, анализ основан на сравнении выделенного знака с определенным ASCII-кодом или диапазоном номеров.
|
|
|
Обработка в соответствии с решаемой задачей определяет то, что нужно делать с выделенным символом или текстом в целом, и может подразумевать большой спектр действий.
Пример 13. Определить, сколько в слове «АВРОРА» русских букв А и Р.
A$ = "ABPOPA"
FOR i = 1 TO LEN(A$)
tmp$ = MID$(A$, i, 1)
IF tmp$ = "A" OR tmp$ = "P" THEN k = k + 1
NEXT i
PRINT k
Результат: 4
Приведенная программа имеет недостаток — она определяет наличие только заглавных А и Р. Если значение исходной переменной присваивается оператором INPUT, то есть вводится пользователем, то при вводе строчных букв результат будет неверным.
|
|
|
