Пример 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 (Неверный вызов функции).

Базовые алгоритмы обработки текста

С определенной долей условности можно выделить ряд действий, которые чаще других выполняются в программах, работающих с текстовой информацией. К таким действиям можно отнести:

Определение общего количества символов в переменной.

Выделение символов.

Анализ символа на принадлежность к логической группе.

4. Уменьшение/увеличение текста путем удаления/ввода знаков.

Разделение текста на отрезки в соответствии с условием.

Выделение отдельного слова из текста.

Перестановка элементов текста.

Каждому действию соответствует группа алгоритмов, которая имеет определенную специфику приложения к разным задачам

Определение количества символов в строке

Длину текстовой переменной вычисляет функция 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$ — не единственный инструмент выделения знаков из текстовой переменной. В некоторых случаях