Fortran Coder

查看: 7059|回复: 4
打印 上一主题 下一主题

[文件读写] 新人求助关于read的问题

[复制链接]

5

帖子

2

主题

0

精华

入门

F 币
30 元
贡献
17 点
跳转到指定楼层
楼主
发表于 2018-12-18 22:28:24 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
有一个文本数据如下
(1)(2)(3)。。。。。。(100)
一行100个数,我想用数组来读取这100个数,但是因为每个数都有括号扩着,想用隐式do循环读取不太对,请问这种问题该怎么读呢?
像read(1,*)(a(i),i=1,100)这样是不行的,该怎么办呢?
谢谢啦
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

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

5#
发表于 2018-12-19 14:45:26 | 只看该作者
你这样的写法是没问题,但是需要指定格式。如果数据中的格式和你的不一样,甚至每个数据的格式都不一样,就比较难办了。
比如
(3.1) (23.31123)     (335.23)

5

帖子

2

主题

0

精华

入门

F 币
30 元
贡献
17 点
地板
 楼主| 发表于 2018-12-19 11:21:42 | 只看该作者
刘大铭 发表于 2018-12-19 11:20
谢谢您啦,我昨天研究了一下发现也可以用隐式do循环读,可以这样写
character C
read(10,‘(....)’)  ...

但不知道这种写法是不是适用于所有的编译器

5

帖子

2

主题

0

精华

入门

F 币
30 元
贡献
17 点
板凳
 楼主| 发表于 2018-12-19 11:20:41 | 只看该作者
li913 发表于 2018-12-19 09:56
1、用字符串读取整行;
2、用空格替换字符串中的括号;
3、从字符串读取数据。[mw_shl_code=fortran,true]p ...

谢谢您啦,我昨天研究了一下发现也可以用隐式do循环读,可以这样写
character C
read(10,‘(....)’) ((C,ARR(I),C),i=1,100)
貌似隐式do循环的循环体是括号内的,所以我发现这样写也可以实现了。

835

帖子

2

主题

0

精华

大宗师

F 币
3926 元
贡献
2334 点
沙发
发表于 2018-12-19 09:56:40 | 只看该作者
1、用字符串读取整行;
2、用空格替换字符串中的括号;
3、从字符串读取数据。
[Fortran] 纯文本查看 复制代码
program test
character(512) ch 
real arr(100)

open(10,...)
read(10,"(a)") ch 
do i = 1, len_trim(ch)
        if(ch(i:i)=='(' .or. ch(i:i)==')') ch(i:i)=' '
end do 
read(ch,*) arr
end program 

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-12-23 23:41

Powered by Tencent X3.4

© 2013-2024 Tencent

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