Fortran Coder

标题: 怎么把第三列读取出来 [打印本页]

作者: qingchong 时间: 2016-12-6 16:30
标题: 怎么把第三列读取出来
20120101 20131231 /GPFS04/zengxq/EC_DataBase/
前两列是整数后面是字符串中间是空格分割，怎么能读取后面的字符串呢

作者: fcode 时间: 2016-12-6 17:40

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

character(len=512) :: c , yourvar

integer :: i , j

read( 来源 , '(a512)') c

i = index( trim(c) , " " , .true.)

yourvar = c(i+1:)

read( c , * ) i , j

write(*,*) i , j , yourvar

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