Fortran Coder

查看: 6172|回复: 1
打印 上一主题 下一主题

[讨论] 怎么把第三列读取出来

[复制链接]

4

帖子

3

主题

0

精华

入门

F 币
31 元
贡献
18 点
跳转到指定楼层
楼主
发表于 2016-12-6 16:30:45 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
20120101 20131231 /GPFS04/zengxq/EC_DataBase/
前两列是整数 后面是字符串  中间是空格分割,怎么能读取后面的字符串呢
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

沙发
发表于 2016-12-6 17:40:00 | 只看该作者
[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
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-25 21:46

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表