qingchong 发表于 2016-12-6 16:30:45

怎么把第三列读取出来

20120101 20131231 /GPFS04/zengxq/EC_DataBase/
前两列是整数 后面是字符串中间是空格分割，怎么能读取后面的字符串呢

fcode 发表于 2016-12-6 17:40:00

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
页: [1]
查看完整版本: 怎么把第三列读取出来