求助，如何用READ读入下列数据？

worldhawk

刚开始学FORTRAN,如何用READ命令读取下列数据，放入数组中做另外计算用?谢谢！



800   760   600   12   12   20   20   1000   960   800   16   16   22   22   2
900   860   700   12   12   20   20   1100   1060   900   16   16   22   22   3
1000   960   800   12   12   20   20   1200   1160   1000   16   16   22   22   21
1100   1060   900   12   12   20   20   1300   1260   1100   16   16   22   22   53
1200   1160   1000   12   12   20   20   1400   1360   1200   16   16   22   22   65
1300   1260   1100   12   12   20   20   1500   1460   1300   16   16   22   22   24
1400   1360   1200   12   12   20   20   1600   1560   1400   16   16   22   22   41
1500   1460   1300   12   12   20   20   1700   1660   1500   16   16   22   22   85
1600   1560   1400   12   12   20   20   1800   1760   1600   16   16   22   22   62
1700   1660   1500   12   12   20   20   1900   1860   1700   16   16   22   22   14
1800   1760   1600   12   12   20   20   2000   1960   1800   16   16   22   22   27

zhoulon

你这个数据表格可以定义一个11行15列的数组进行读取，关键是你要知道数据的具体格式，采取有格式方式进行读取。

zhoulon

下面这个帖子可以解决你的问题
http://forum.simwe.com/viewthrea ... 6amp%3Btypeid%3D171

worldhawk

我看http://forum.simwe.com/viewthrea ... 6amp%3Btypeid%3D171
的帖子了，他的也是不知格式，我把我的数据改成这种行吗，不知道“格式”你是在指什么，我对FORTRAN 不太熟悉，突然要用到这个问题，所以想请教一下这如何实现，还有版主能否抽时间给我写一段程序（就几句）把这些数据“原样”读入，然后在“原样”写出到另外一个文件中（也是TXT），我想比较研究一下，匆忙的看了下书，但没有例子，还是很茫然。谢谢！
800,760,600,12,12,20,20,1000,960,800,16,16,22,22,2
900,860,700,12,12,20,20,1100,1060,900,16,16,22,22,3
1000,960,800,12,12,20,20,1200,1160,1000,16,16,22,22,21
1100,1060,900,12,12,20,20,1300,1260,1100,16,16,22,22,53
1200,1160,1000,12,12,20,20,1400,1360,1200,16,16,22,22,65
1300,1260,1100,12,12,20,20,1500,1460,1300,16,16,22,22,24
1400,1360,1200,12,12,20,20,1600,1560,1400,16,16,22,22,41
1500,1460,1300,12,12,20,20,1700,1660,1500,16,16,22,22,85
1600,1560,1400,12,12,20,20,1800,1760,1600,16,16,22,22,62
1700,1660,1500,12,12,20,20,1900,1860,1700,16,16,22,22,14
1800,1760,1600,12,12,20,20,2000,1960,1800,16,16,22,22,27

zhoulon

它没有给我格式当然不知道格式了，我说的不知道格式是指你的具体数据的格式。你如果实在不行的话，可以自己多变化几次格式就可以读取出来了。你上面改成有逗号的反倒有点不太好读取了，如果你只是要弄到txt格式的文件的话，你可以直接用excel打开，然后拷贝到txt文件里面，或者可以直接修改为txt格式的文件。

zhoulon

我给你弄了一下，应该是你所要的

worldhawk

呵呵，谢谢版主，我可以看一下你写的程序吗？

GWinston

数据存入data.txt中

1. 
   
2. program main
   
3. integer data(11,15),i,j
   
4. open(2,file='data.txt')
   
5. read(2,*)((data(i,j),j=1,15),i=1,11)
   
6. open(3,file='newdata.txt')
   
7. write(3,"(1x,15i8)")((data(i,j),j=1,15),i=1,11)
   
8. close(2)
   
9. close(3)
   
10. end
    

复制代码

[ 本帖最后由 zhoulon 于 2008-12-24 12:25 编辑 ]

worldhawk

非常感谢！呵呵。