Рост уЭоеб на ферме г

Стр 1 из 2Следующая ⇒

Функции обработки символьных строк

LCASE$

LCAS Е$ — символьная функция, возвращающая символьную строку, в которой все латинские буквы преобразованы в строчные.

LCASE$(символьное_выражение)

• символьное_выражение — символьная строка, может быть переменной или фиксированной длины.

Пример:

CLS

READ Word$

PRINT LCASE$(Word$);

DATA "THIS IS THE STRING in lower case."

this is the string in lower case.

Данная функция не преобразует символы кириллицы. Пример, приведенный далее при описании функции UCASE, иллюстрирует, как можно этого избежать.

UCASE$

UCASES — символьная функция, возвращающая символьное значение, в котором все латинские буквы — заглавные.

UCASES(символьное_выражение)

Функция UCASES может работать со строками фиксированной и переменной длины. Она не преобразует символы кириллицы.

Пример. Использование функции UCASERus $ вместо UCASES снимает ограничение на. работу с символами кириллицы:

DECLARE FUNCTION UCASERusS (text$) DEFINT A-Z

CLS

INPUT First$

PRINT UCASERusS{First$)

END

FUNCTION UCASERus$ (text$)

CONST Urus$ = "ЙЦУКЕНГШЩЗХФЫВАЛРОЛДЖЭЯЧСМИТЬБЮЪ" CONST Lrus$ - "йцукенгшщзхфывапролджэячсмитьбюъ"

'длина входной переменной kolvo = LEN(text$) ¹ вспомогательная переменная temp$ - ""

FOR i = 1 TO kolvo

'берем по одному символу из входной строки symbol$ = MID${text$, i, 1) 'если это русские буквы, то ... IF symbol$ >= CHR$(128) THEN

¹ если они маленькие - меняем на большие place = INSTR(Lrus$, symbols)

IF place > 0 THEN symbol$ = MID$(UrusS, place, 1) ELSE

'... пользуемся UCASE$ syrnbol$ = UCASE$ (symbol$) END IF

'накапливаем значение во вспомогательной переменной temp$ = temp$ + symbols NEXT i

'присваиваем значение функции UCASERus$ = temp$

END FUNCTION

Результат:

? Штирлиц вошел в лес и увидел ...

ШТИРЛИЦ ВОШЕЛ В ЛЕС И УВИДЕЛ ...

LTRIM$

LTRIMS — символьная функция, возвращающая копию строки с удаленными начальными пробелами.

LTRIM$(символьное_выражение)

: копирование текстового файла с удалением на-

чальных и конечных пробелов.

INPUT "Введите имя исходного файла: ", InFile$ INPUT "Введите имя получаемого файла: ", OutFile$ OPEN InFileS FOR INPUT AS #1 OPEN OutFile$ FOR OUTPUT AS #2 ¹ Чтение, обработка и запись каждой строки DO WHILE NOT EOF(l)

LINE INPUT #1, Lineln$

Lineln$ = LTRIM$(RTRIM$(Lineln$))

PRINT #2, Lineln$ LOOP

CLOSE #1, #2 END

RTRIM$

RTRIMS — символьная функция, которая возвращает символьную строку с удаленными правыми пробелами.

RTRIM$(символьное_выражение) См. пример к функции LTRIMS.

SPACES — символьная функция, возвращает строку пробелов длиной п.

SPACES(n)

• п — числовое выражение в пределах 0—32767, количество пробелов в строке.

Пример:

CLS

FOR i = 1 ТО 5

Х$ = SPACE$(i): PRINT X$; I NEXT i

STRINGS

STRINGS — символьная функция, возвращает строку заполненную символами данного ASCII-кода или данным символом.

STRINGS(m,n)

STRINGS(—m, символьное_выражение)

• m — числовое выражение, длина строки;

• п — числовое выражение в пределах 0—255, ASCII-код симво
ла-заполнителя строки;

• символ ьное^выражение — указывает строку, первый символ
которой используется для заполнения строки.

Пример: Построение линейного графика.

Рост уЭоеб на ферме г

Ныо-Васижи

12 Следующая ⇒