作者charlesdc (MoOn)
看板Fortran
标题Re: [问题] 有什麽方法可以知道档案内资料个数？
时间Sun Jan 10 02:27:46 2010
※ 引述《Gwaewluin (神无月 孝臣)》之铭言：
: 我有两个档案
: 一个长的像这样一行内有三个资料
: 1 0.0 0.0
: 2 0.1 0.1
: 3 0.2 0.2
: 一个长得像这样一行内有四个资料
: 1 0.0 0.0 0.0
: 2 0.1 0.1 0.1
: 3 0.2 0.2 0.2
: 请问有什麽办法可以让我判断出在读的档案一行内有几个资料呢？
======================================================================
我不太清楚有没有现有的指令可以用
不过我有想到一个"不是通解"的方法
虽然很笨...不过也可以参考一下啦
首先先定义个够大的一维阵列
然後初始化值给一个资料内不可能出现的数值
再读近一行资料
之後用回圈+判断式去找你的初始值
这样计数器的值就是你要的东东了......
简易的code大概是:
=========================
implicit none
real*4 M(100),V
integer*4 a
open(50,"OOOOOOO")
M=XXX; a=0; v=0
read(50,*)M
do while(V=XXX)
a=a+1
V=M(a)
end do
end
========================
那a就是你要的东西
随手写的没跑过编译器所以可能有误
不过大致上的概念是这样......
记得做完要rewind
不然再继续做的话资料会少一行
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 125.230.84.247