字符串数组中如何提取最后一个字符串

robci

新手学习请教中，      如何提取一个字符串数组中的最后一个字符串，简单举例

如：
                 str=abc d e f g h i j-k-l m n o-p-q   
如何得到
                str1=o-p-q


如
                str=abc d e f g h i j-k-l m n o-p-q rstuvw   

如何得到：
               str1=rstuvw


这里先谢过了！

楚香饭

[Fortran] 纯文本查看 复制代码

查看代码

打印?

1	character(len=80) :: str="abc d e f g h i j-k-l m n o-p-q"

2	character(len=32) :: s

3	integer :: i

4	i = index( trim(str) , " " , back=.true.)

5	s = str(i+1:)

6	write(*,*) s

7

end