Процедуры обработки текстов

Вся работа с текстами осуществляется при помощи ряда встроенных процедур, которые можно рассматривать как атрибуты текстового объекта. Слева от точки при обращении к атрибутам текста указывается ссылка на текстовый объект (имя переменной), справа - имя атрибута.

1. Процедура length. Значением данной процедуры является число символов в текстовом значении, если текстовое значение равно notext, то значение процедуры будет 0.

text t1; integer n;

t1:- blanks (10);

n:= t1. length;

В данном примере значение n равно10.

2. Процедура pos. Результатом процедуры является текущее значение указателя позиции.

text t1; integer k;

t1:- text (''симула-67'');

k:= t1. pos;

Значение k в данном примере равно 1, так как процедура text устанавливает указатель позиции в 1.

3. Процедура setpos. При исполнении оператора t. setpos (n) указатель позиции принимает значение n, если n меньше 1 или больше длины текста, то указателю присваивается значение t. length +1.

4. Процедура more. Значение данной процедуры истинно (true), если t. pos >=1 и t. pos <= t. length, и ложно (false) в противном случае.

Символы текста доступны по одному, переменные, которые принимают значения одного символа, можно описывать с помощью описателя character, присвоение значений данным переменным осуществляется с помощью оператора присваивания.

character a1,b1;

a1:='a';

b1:=a1;

Над символьными переменными определены следующие процедуры: digit и letter.

Значением процедуры digit будет true, если символ является цифрой, и false - в противном случае, значением процедуры letter будет true, если символ является буквой.

Для считывания символов из текста и записи символов в текст используются процедуры getchar и putchar.

Процедура getchar доставляет в качестве своего значения символ, на который указывает текущий указатель позиции. Процедура putchar заменяет символ, на который указывает текущий указатель позиции, каждая из процедур увеличивает на 1 текущий указатель позиции.

text t;

character c;

c:= 'ы';

t:- text (''дом'');

t. setpos (2);

t. putchar (c);

c:= getchar;

В результате выполнения данной процедуры переменная t получит значение '' дым '', а с - ' m '.