Как уже отмечалось (п. 3.4) тестовые данные (CHARACTER) имеют особенность описания, связанную с параметром разновидности типа: KIND, который применяется для указания кодовой таблицы символов: ASCII, UTF, Windows-1251 и т.д. При этом оптимальная кодовая таблица символов уже выбрана операционной системой, при инсталляции компилятора Фортрана и поэтому с кодовыми страницами символов нужно работать аккуратно. Если есть необходимость явного указания кодовой страницы, то KIND указывается через запятую, с длиной тестовой строки в символах: LEN, например: CHARACTER (KIND= KIND(″UTF″), LEN=13).

LEN является параметром, отвечающим за длину текстовой строки, измеряемую количеством символов,. С его помощью можно, например, объявить именованную 13-ти символьную текстовую константу TEXT (произвольное имя) со значением “Hello, World!”.

Причем с константой TEXT (Пример 4.8) можно работать не только как с целостным объектом, но и выделять в нем подстроки, задавая их границы через номера начального и конечного символа. Например, нетрудно видеть, что подстрока ″Hello″ – это символы строки TEXT, с первого по пятый, а подстрока ″World! ″ – символы с восьмого по тринадцатый. Самое простое, что можно сделать со строкой и ее подстроками – это напечатать их (Пример 4.8).

Пример 4.8. Текстовая константа и ее подстроки
program TEXTLINE1
character(LEN=13), parameter :: TEXT=″Hello, World! ″
print*, TEXT;  print*, TEXT(1:5);  print*,TEXT(8:12)
end
	

Если в программе используются текстовые константы, то их значения (как и любых других констант) не изменяется – соответственно, еще на стадии компиляции может быть автоматически посчитано количество символов в константе и произведена ее инициализация. Это означает, что необязательно считать символы в константе – это сделает компилятор, если в качестве значения длины строки LEN указать: «*» – (звездочку). При этом возможно сокращение записи – «звездочка» без LEN (Пример 4.9).

Пример 4.9. Автоматическое определение длины текстовой константы
program TEXTLINE2
character(LEN = *), parameter :: TEXT1=″Hello, World!″
character(*), parameter :: TEXT2=″Global World! ″
print*, TEXT1;  print*, TEXT1(1:5);  print*,TEXT1(8:12)
print*, TEXT2;  print*, TEXT1(1:6);  print*,TEXT1(8:12)
end
	

С текстовой переменной, как и с константой можно работать, как целостным объектом (это происходит при инициализации), а можно работать с подстроками, задавая их границы (Пример 4.10).

Пример 4.10. Текстовая переменная и ее подстрока
program TEXTLINE3
character(LEN=13) :: TEXT= ″Hello, World! ″
TEXT(1:6) = “Global”
print*, TEXT
end
	

Указание длины строки LEN для текстовых переменных обязательно.

Для тестовых данных определена единственная операция – конкатенация (Пример 4.11), обозначаемая сдвоенными прямыми слешами: «//». Конкатенация позволяет последовательно объединить несколько текстовых строк в одну строку.

Пример 4.11. Текстовая переменная и ее подстрока

program TEXTLINE4
character(LEN=*), parameter :: TXT1=″Hello″, TXT2 = ″Global″, TXT3=″World!″
character(LEN=LEN(TXT1)+LEN(TXT2)+LEN(TXT3)+3) :: TEXT
TEXT= TXT1 // ″,^″ // TXT2 // ″^″ // TXT3 // ″!″; print *, TEXT
end

Помимо конкатенации, в Примере 4.11 использована строковая функция LEN, возвращающая в качестве результата длину строки, являющейся аргументом этой функции: LEN(TXT1) и т.д. Необходимо также вспомнить соглашения и рекомендации, по поводу обозначения пробелов (Введение, п. 4).

Информационные системы ускорителей

ЛАБОРАТОРНЫЙ ПРАКТИКУМ: «ПРОГРАММИРОВАНИЕ НА ФОРТРАНЕ»

1. ПРАВИЛА ЗАПИСИ ПРОГРАММЫ

2. ТРАНСЛЯЦИЯ ПРОГРАММЫ

3. КОНЦЕПЦИЯ ДАННЫХ ЯЗЫКА ФОРТРАН

4. ВЫРАЖЕНИЯ И ПРЕОБРАЗОВАНИЕ ТИПОВ

5. УПРАВЛЯЮЩИЕ ОПЕРАТОРЫ

6. ВВОД/ВЫВОД ДАННЫХ

7. ПРОГРАММНЫЕ КОМПОНЕНТЫ И ЭЛЕМЕНТЫ ООП

4.4 Работа с текстовыми строками

Пример 4.8. Текстовая константа и ее подстроки

Пример 4.9. Автоматическое определение длины текстовой константы

Пример 4.10. Текстовая переменная и ее подстрока

Пример 4.11. Текстовая переменная и ее подстрока

Copyright © Кафедра Электрофизических установок МИФИ, 2016 - 2024

ЛАБОРАТОРНЫЙ ПРАКТИКУМ:
«ПРОГРАММИРОВАНИЕ НА ФОРТРАНЕ»