9.237 SCAN — Поиск подстроки в строке

Описание:

Ищет в строке STRING любой из символов в наборе SET символов.

Если BACK отсутствует или равно FALSE, функция возвращает позицию самого левого символа в STRING, который присутствует в SET. Если BACK равно TRUE, возвращается позиция самого правого символа. Если ни один символ из SET не найден в STRING, результат равен нулю.

Стандарт:

Fortran 95 и более поздние версии, с аргументом KIND Fortran 2003 и более поздние версии

Класс:

Элементная функция

Синтаксис:

RESULT = SCAN(STRING, SET[, BACK [, KIND]])

Аргументы:

STRING	Должен быть типа CHARACTER.
SET	Должен быть типа CHARACTER.
BACK	(Необязательно) должен быть типа LOGICAL.
KIND	(Необязательно) Выражение инициализации, указывающее параметр вида результата.

Возвращаемое значение:

Возвращаемое значение имеет тип INTEGER и вид KIND. Если KIND отсутствует, возвращаемое значение имеет стандартный целочисленный вид.

Пример:

PROGRAM test_scan
  WRITE(*,*) SCAN("FORTRAN", "AO")          ! 2, found 'O'
  WRITE(*,*) SCAN("FORTRAN", "AO", .TRUE.)  ! 6, found 'A'
  WRITE(*,*) SCAN("FORTRAN", "C++")         ! 0, found none
END PROGRAM

См. также:

Функция INDEX, VERIFY