[求助] 字符串数组中如何提取最后一个字符串

712 帖子	4 主题	0 精华

大师

农村外出务工人员

F 币: 608 元
贡献: 311 点

发消息

楼主

发表于 2016-8-18 10:50:00 | 显示全部楼层

[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

回复支持 1 反对 0

使用道具举报

返回列表发新帖

[求助] 字符串数组中如何提取最后一个字符串

新人勋章

爱心勋章

水王勋章

元老勋章

热心勋章