SCAN |
書式 | SCAN(STRING,SET[,BACK]) | ||||||
機能 |
文字列STRINGの中に文字列SETに含まれる文字が含まれているとき
その開始文字位置を求める。文字が含まれていなければ0を返す。 論理値BACKが真で指定されているときは、最も右にある文字の 開始文字位置を求める。 | ||||||
引数 |
| ||||||
戻り値 | 型、種別型パラメタは基本整数型である。 |
CHARACTER (LEN=10) :: a='12345ABCDB' CHARACTER (LEN=1) :: b='B' INTEGER :: i,j,k,m i=SCAN(a,b) ! 'B'は7番目にある j=SCAN(a,b,.TRUE.) ! 'B'を右から探すと10番にある k=SCAN(a,'X') ! 'X'はふくまれていない m=SCAN('SAKURA','FUJI') ! 'U'は4番目にある WRITE(*,*) i,j,k,m
実行例 |