8.236 SCAN — Поиск в строке заданного набора символов

Описание:

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

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

Стандарт:

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

Класс:

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

Синтаксис:

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

Аргументы:

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

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

Возвращаемое значение имеет тип 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 — Поиск в строке символов, не входящих в заданный набор

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-14.2.0/gfortran/SCAN.html