新人求助关于read的问题

刘大铭

有一个文本数据如下
（1）（2）（3）。。。。。。（100）
一行100个数，我想用数组来读取这100个数，但是因为每个数都有括号扩着，想用隐式do循环读取不太对，请问这种问题该怎么读呢？
像read（1，*）（a（i），i=1,100）这样是不行的，该怎么办呢？
谢谢啦

li913

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 

刘大铭

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循环的循环体是括号内的，所以我发现这样写也可以实现了。

刘大铭

刘大铭 发表于 2018-12-19 11:20
谢谢您啦，我昨天研究了一下发现也可以用隐式do循环读，可以这样写
character C
read（10，‘(....)’）  ...

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

fcode

你这样的写法是没问题，但是需要指定格式。如果数据中的格式和你的不一样，甚至每个数据的格式都不一样，就比较难办了。
比如
(3.1) (23.31123)     (335.23)