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] 纯文本查看 复制代码
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/) Powered by Discuz! X3.2