【求助】fortran读取文件列数问题

topmad

mofangbao 发表于 2011-7-17 16:02

                               
登录/注册后可看大图

打开一个文件读取后当然要关闭重新打开。要不然文件指针在文件结尾，读出来的列数必然是0

指针绕回开头的指令 管用么？

ps：其实，我是不会指针绕回

mofangbao

topmad 发表于 2011-7-17 17:10

                               
登录/注册后可看大图

指针绕回开头的指令 管用么？

ps：其实，我是不会指针绕回

弄那么复杂干嘛呢，直接关闭重新打开就行了啊

topmad

mofangbao 发表于 2011-7-17 17:13

                               
登录/注册后可看大图

弄那么复杂干嘛呢，直接关闭重新打开就行了啊

我是想弄的效率一点啊  反复的打开，关闭伤不起啊   一共16G的数据......

ouhuining

read(1,'(a1)',end=10,advance='no')char_now

这个没有学过，帮忙指导下什么意思:lol

mofangbao

ouhuining 发表于 2011-7-17 19:25

                               
登录/注册后可看大图

read(1,'(a1)',end=10,advance='no')char_now

这个没有学过，帮忙指导下什么意思

读取一个字节，读到末尾就跳转到标签为10的语句执行，读取的时候不自动换行

ouhuining

恩，学了一个，马上用上了。哈哈

topmad

ouhuining 发表于 2011-7-17 21:38

                               
登录/注册后可看大图

恩，学了一个，马上用上了。哈哈

多谢欧同学捧场

残月

mofangbao 发表于 2011-7-17 16:05

                               
登录/注册后可看大图

用一个循环控制打开的文件，文件名为动态生成，所以文件名必须有规律，如果文件名没有规律就要事先把文 ...

谢谢清风了，这个我在批处理台风资料的时候做过哈。。呵呵:D
do i=1,9
   select case (i)
   case (1:9)
      write(form,'(i1)') i

   end select
   write(filename,*) "bwp0",trim(form),"2003.TXT"
   print*,filename
   open(10,file=filename)

topmad

mofangbao 发表于 2011-7-17 17:13

                               
登录/注册后可看大图

弄那么复杂干嘛呢，直接关闭重新打开就行了啊

重新改了程序 搞定指针问题

不需要关闭后重新打开

加一个rewind（文件号）! 感谢A版的热心帮助
就可以了  感觉这样效率会更高一些  测试一下

romeo19850806

新手，学习FORTRAN中！！！