Fortran Coder

标题: 字符串数组中如何提取最后一个字符串 [打印本页]

作者: robci 时间: 2016-8-17 21:38
标题: 字符串数组中如何提取最后一个字符串
新手学习请教中，    如何提取一个字符串数组中的最后一个字符串，简单举例

如：
               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

这里先谢过了！

作者: 楚香饭 时间: 2016-8-18 10:50

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

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

character(len=32) :: s

integer :: i

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

s = str(i+1:)

write(*,*) s

end

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)