用Fortran获取一个文件的大小

香酥扇贝

如何利用Fortran获取文件大小？Fortran里面没有现成的函数可以直接调用。
一种办法是用fortran挨个字节读文件，直到出错停止输出文件多少字节。
但是这样做速度很慢，尤其是遇到大容量文件时机器就卡住了。
我测试过，六百多兆的文件，不知要读多久……
因此，可以考虑采用调用Windows API的办法来解决这个问题，只需要<1秒的时间。

编译需要KERNEL32.MOD和DFWINTY.MOD文件，一般情况下库里已经有了，
在D:\Program Files\Microsoft Visual Studio\DF98\INCLUDE\下可以找到
如果没有那就放到编译的当前目录下编译即可
KERNEL32.MOD (414.88 KB, 下载次数: 2)

2014-3-26 17:09 上传

点击文件名下载附件 DFWINTY.MOD (2.44 MB, 下载次数: 2)

2014-3-26 17:10 上传

点击文件名下载附件 subGetFileSize.f90 (1008 Bytes, 下载次数: 8)

2014-3-26 17:10 上传

点击文件名下载附件

范例：
include 'subGetFileSize.f90'
program main
implicit none
integer::Nsize
call subGetFileSize("a.bin",Nsize)
print *,Nsize
end program

兰溪之水

其实用stat函数即可实现：

STAT
Portability Function: Returns detailed information about a file.

Module: USE DFPORT

Syntax

result = STAT (name, statb)


name
(Input) Character*(*). Name of the file to examine.


statb
(Output) INTEGER(4). One-dimensional array with a size of 12.
Results:

The result is of type INTEGER(4). The result is zero if the inquiry was successful; otherwise, the error code ENOENT (the specified file could not be found). For a list of other error codes, see IERRNO.

The elements of statb contain the following values:

Element Description Notes
statb(1)  Device file resides on  Always 0  
statb(2)  File Inode number  Always 0  
statb(3)  Access mode of the file  (See following table)  
statb(4)  Number of hard links  Always 1  
statb(5)  User ID of owner  Always 1  
statb(6)  Group ID of owner  Always 1  
statb(7)  Raw device file resides on  Always 0  
statb(8)  Size of the file in bytes   

statb(9)  Time when the file was last accessed  (Only available on non-FAT file systems; undefined on FAT systems)  
statb(10)  Time when the file was last modified   

statb(11)  Time of last file status change  Same as stat(10)  
statb(12)  Blocksize  Always 1  

Times are in the same format returned by the TIME function (number of seconds since 00:00:00 Greenwich mean time, January 1, 1970).

1. program file_size
   
2. implicit none
   
3. 
   
4.     INTEGER*4 ierr, stat, statb(13)
   
5. 
   
6. 
   
7.     ierr = stat ( 'rsl.out.0000', statb )
   
8.     if ( ierr .ne. 0 ) stop 'stat: error'
   
9. 
   
10.     write(*,*)'The size of the file in bytes = ',statb(8)
    
11. 
    
12. 
    
13. end program file_size

program file_size<br /> implicit none<br /> <br />     INTEGER*4 ierr, stat, statb(13)<br /> <br /> <br />     ierr = stat ( 'rsl.out.0000', statb )<br />     if ( ierr .ne. 0 ) stop 'stat: error'<br /> <br />     write(*,*)'The size of the file in bytes = ',statb(8)<br /> <br /> <br /> end program file_size

lqouc

感谢分享！
ps：稍微改动了一下你的题目，便于搜索。

topmad

这个不错 不知道能不能在powerstation里面使用  有空我去试一下

river

感谢分享，好方法

慧子

很好啊，希望4.0里面也可以用

mofangbao

楼主动手能力不错 谢谢分享~

兰溪之水

BTW，有的编译器还支持

INQUIRE(FILE=filename, SIZE=file_size)

不过CVF没有size，而stat一般都是有的~

香酥扇贝

兰溪之水 发表于 2014-3-26 21:24
其实用stat函数即可实现：

STAT

我用的是CVF6.5，INQUIRE(FILE=filename, SIZE=file_size)试过没有成功；
之前在网上也看到过stat函数，但当不知道是在module dfport里面……
我重新试了一下你的方法，好像更简单啊！我今天还帮乎了大半天，就算是学一下怎么调用windows API吧……
program ex
use dfport
implicit none
integer::i,statb(12)
i=stat("D:\a.bin",statb)
print *,Statb(8)
end program

香酥扇贝

后来发现原来彭国伦的书上就有！！！
真恨没好好看书啊