Question

FORTRAN怎么读取TXT文件（含3列数据）的程序，CSV文件又如何读取？

只读TIME和P也行，S可以直接删去。可以传文件。
Time P S
124752.0313 0 1
124753.0313 2.978928 1
124754.0313 0 1
124755.0313 0 1
124756.0313 27.913748 1
124757.0313 0.603097 1
124758.0313 0 1
124759.0313 0 1
124760.0313 0 1
124761.0313 0 1
您 好 非常感谢您下面我要把它写到新文件中
open(100,file='F:\2013077aa.txt')
do i=1,10
WRITE(100,*) t(i),p(i),S(i)
enddo
END program
但 Warning: Program may contain only one main entry routine

Answer 1

TXT 和 CSV 的读取方式是一样的。

Integer , parameter :: N = 行数
Integer :: i
Real :: Time(N) , P(N)
Open( 12 , File = 文件名 )
Read( 12 , * ) !// 跳过第一行表头
Do i = 1 , N
Read( 12 , * ) Time(i) , P(i)
End Do

追问

您好 这是运行结果 以下是程序

PROGRAM MAIN
 Integer :: i
 Real :: Time(10),P(10),S(10)
 open(12,file='F:\2013077a.csv')
 Read(12,*) !// 跳过第一行表头
 Do i=1,10
 read(12,*) Time(i),P(i),S(i)
 end do
 end program

 

不知是否还有问题？

    

追答

1. 文件路径是否正确？
   

2. 文件中是否有10行？（加上表头11行）
   

追问

文件已成功读取 现在想把它写到新文件中
open(100,file='F:\2013077aa.txt')
do i=1,10
WRITE(100,*) t(i),p(i),S(i)
enddo
END program
但 Warning: Program may contain only one main entry routine

追答

请不要写多个主程序。

Answer 2

你好 你是怎么做的啊