Fortran进行批处理的方法

1、Fortran中批量处理文件的方法总结一循环读取目录下的所有符合条件的文件一、简单的介绍在一年之前，我写过一个程序，主要是对 Micaps资料进行批量处理，将逐 日资料处理为旬、月的数据，在那个程序中，始终有一个问题困扰我，就是如何 自动生成该读取的下一个文件名，这使我真正开始关注fortran中的批处理，时隔一年，决定写下这些文字，将我用到的一些fortran批处理的方法和大家共享， 交流。对于那些只要会用程序，不求其中原理的朋友，请马上跳过这些文字，直接去下载附件吧！程序里有使用说明，但是，如果你不懂原理，估计现成的程序你 使用起来也会碰壁哦！这里所说的批处理是指对某一个目录下的指定后缀的

2、文件的批量读取和处 理。我总结的批处理方法大概可以用下面这个示意图来说明：将文件目录写入一个文本文件，供 fortran循环读取手动输入文件名运行程序之前命令行工具导出文件名程序运行后，未开始计算之前，生成文件名调用CMD命令生成GET方法生成调用WIN32API生成在程序运行时动态生成文件名对于第一种方法，我将主要介绍如何将目录写入文件，然后举出一个小的 示例来验证。第二种方法主要是说明其思路。二、方法的介绍1、将文件目录写入一个文本文件，供 fortran循环读取1.1、 手动输入文件名这是最基本的方法啦，如果文件个数不多，而且文件名中包含了空格等特殊字符 的话，建议使用这种方法，在这里就

3、不多说啦，至于在 fortran中的处理，等几 个小方法介绍完之后会有一个例子来说明。1.2、 运行程序之前命令行工具导出文件名这是一个既高效又保险的方法，主要思路就是通过强大的 CMD命令列出目 录下的文件到一个指定的文件中，然后由 fortran去循环读取该文件中的文件名 信息，从而批量处理。a、从运行工具打开你的CMD窗口；b、转到要处理的当前目录（可省略）： CD /d路径，如：CD /d e:test这样可以快速到达e:test目录c、使用DIR命令列出文件目录信息到指定的文件，通常使用的Dir *.*>新文件名这个命令在这里已经不能满足要求，因为会列出一堆对 于我们处理而言无

4、用的信息，现在要使用的命令是：DIR /b filter>newfile注意，其中的filter为文件筛选，必须自己修改为所需的，比如你可以把它 改成*.txt ,这样，就会列出当前目录下的所有txt结尾的文件了。Newfile就是你需要存放文件名的那个文件，比如可以是dir.txt ,这样就成了 dir/b*.txt>dir.txt ,就会把当前目录下的所有文件都列出到dir.txt文件中，当然，由于 dir.txt也在当前目录，所以也会被算进去，这在处理的时候是需要注意的，下面几种方法中同样考虑了这个问题。你可以选择手动删掉，或者把 dir.txt这个文件存到其他地方去，或者，

5、不 要和你需要的文件具有相同的后缀也行，比如：dir /b *.txt>e:dir.txt（假设当前目录是e:test ）如果省略了第二步中的转到当前目录的话，就需要在dir命令后输入完整的路径了，而且新生成的文件也要选择有权限建立新文件的地方存放，比如你在 c:users目录下输入：dir /b e:test*.txt>e:dir.txt ,这个命令和上面先转到 e:test目录下的效果是一样的。现在你是不是比较好奇，/b是干嘛的，其实就是只列出文件名，不要其他的 附件信息，比如创建时间，文件大小等等这些对于我们批处理无关的信息。如果你想包含某个目录下的子目录，那么，就可以这样写

6、:Dir /b/s filter>newfile/s就表示包含子目录，但是，这样会有一个问题，那就是，批处理的时候必 须获得正确的路径才能操作，这样得到的子目录里面的文件不会有任何标志说他 是来自子目录的，因此fortran处理的时候就无法判断了，所以，如果包含了子 目录，那么请用下面的命令：Dir /a-d/b/s filter>newfile现在去看看新生成的文件吧，怎么样，很惊喜吧!懂了这个方法，下面一部分的第一个方法对你来说就是小菜一碟啦如果你使用的win7 (或vista)系统，而且无法正常使用 CVF编译器的话, 那么第一部分到这里就算结束啦，除非，你会在其他fortr

7、an编译器中调用WIN32API 01.3、 程序运行后，未开始计算之前生成文件名1.3.1、 在程序中调用CMD命令这个方法其实就是上一个方法的进化版，只不过变成了在程序运行的时候 调用命令自动生成，这样整个过程显得少一点，只需要在程序里设置好相关的参 数即可。这个方法的关键在于SYSTEMQQ函数的使用，这是CVF编译器封装的调 用CMD命令的一个函数，存在于 DFLIB库中，其语法命令为：result = SYSTEMQQ(commandline)commandline :表示需要进行的CMD操作，字符串形式，函数中的实际长度 由传入的参数决定，input类型(表示输入为参数)；Resu

8、lts: 一个逻辑型变量(logical(4),如果成功为true ,失败为false (不 解的是程序中要实现的东西都是正常的，比如仅仅传入dir命令，返回的结果仍然为F,请高手赐教) 给出一个简单的例子：USE DFLIBLOGICAL(4)resultresult = SYSTEMQQ('copy e:dir.txt e:testdir.txt')这个命令将第一个路径中的文件复制到为第二个路径中的文件。通过这个例 子再结合上面一个方法，就可以很方法便的构造出我们需要用来批处理的子函 数，关键语句如下所示：subroutine ListTo)character*(*),In

9、Tent(In): fPath,outPutcharacter*100CMDLOGICAL(4) resCMD="dir/a-d/b/s "/trim(fPath)/" >"/trim(outPut) res=SYSTEMQQ(CMD) endsubroutine其中传入的是文件筛选值和输出的路径，这个方法也是我在第一部分中最 为推荐的一个方法了，代码简洁高效，能够输出完整的路径，可以包含子文件夹， 唯一的缺点就是输出的文件个数不能直接在程序中调用(方便循环)，需要在批处理的时候使用其他方法来判断文件是否读取结束。1.3.2、 使用GET方法生成文

10、件目录该方法是下面一个方法的进化版， 是由CVF又t WIN32的API进行了封装， 这样，我们就可以通过简单的调用函数来实现一些面向对象的功能。简单的翻译了一下官方给出的GET函数信息：Module: USE DFLIB (存在于 DFLIB 库中)语法简介：Syntaxresult = GET (files, buffer, handle)files :输入类型的字符型变量，表示你需要查找的路径(也就是我们上面方法中 的筛选值)，同样可以使用*或者？这样的通配符。buffer :在函数运行中会获得一个值，可供输出使用，这个值就是所找到的文件 的相关信息，属于类型的变量(该类型定义于：for

11、tran安装路径DF98INCLUDE路径下)，其结构如下：TYPEINTEGER(4)CREATIONINTEGER(4)LASTWRITEINTEGER(4)LASTACCESSINTEGER(4)LENGTHINTEGER(4)PERMIT CHARACTER(255)NAME END TYPEhandle :接受输入和输出整型变量，表示文件控制信息(同样在DFLIB中定义)， 包含以下内容：-First matching .-Previous the last valid file.-No matching .Results:返回值是一个整型变量(intege4),表示的不含空格的文件

12、名长度， 如果文件未找到，则返回00了解了以上信息，我们就可以通过编程进行循环调用这个函数，每找到一个 符合条件的文件，就把他输入到指定路径的文件中去，注意，凡是 input类型的 变量都必须传入数值，否则会出错。如果你比较有探索精神，就试着用这个介绍和思路来编程一下吧，子程序如下所示(完整的请下载附件)Subroutine Get(c)UseDFLib,only:Get$INFO,$ERROR,$NOMEM,ERR$NOENT,!引入库函数Implicit None!根据上面的语法介绍来定义变量Character*(*),Intent(In):c ! 筛选值character*(*),int

13、ent(In):output ! 输出路径Integer,Intent(InOut):iFile!记录已经找到几个文件TYPE () info !找到的文件的信息INTEGER(4):Wildhandle,length !文件控制信息，文件大小，Wildhandle =iFile = 0DOWHILE (.TRUE.) !循环找文件 length = Get(c) ! 调用函数找文件!如果遇到错误或者不能再找到不同的文件，则进入选择，准备退出IF (Wildhandle .EQ. ) .OR.(Wildhandle .EQ. ) THENSELECT CASE (GetLastErrorQQ(

14、)CASE (ERR$NOMEM) !/ 内存不足iFile = - 1ReturnCASE (ERR$NOENT) !/碰到通配符序列尾，正常退出ReturnCASE DEFAULTiFile = 0ReturnEND SELECTEND IFiFile= iFile + 1Call Write( Trim(info.Name) ,outPut, iFile) !调用子函数输出文件名ENDDOEnd Subroutine Get注意，在调用子函数输出文件名时，要做一些处理，主要是判断文件是否存 在（不存在则新建，如果是第一次找到，而且文件存在，则覆盖，否则追加）， 以及找到的是否为我们自己建

15、立的这个 dir.txt文件（如果是，则忽略，找到的 文件数量-1）这个方法也不错，如果不需要子目录的信息，其优越性不亚于上一种方法， 因为该子函数能够直接返回找到的文件数量。1.3.3、 用WIN32API生成目录下的文件信息有了上面的几种方法，其实这个方法可以不需要介绍，但是也许有和我一 样喜欢刨根问底的朋友，还是贴出来，也算是分享一下CVF平台下对于API的调用方法。fortran的最大强项是数值计算，他本身对于各种系统信息的处理功能实在不敢 说好，如果要实现一些交互的功能目前来说还是比较复杂的。该方法直接调用系统的 API函数来实现功能，理论上只要是 fortran编译器 支持API调

16、用，就可以使用该方法，也就是说可以用于 win7和vista （linux的 不在本次讨论范围，上面的几种方法思路在 linux均需要变换才能使用）。目前我还没有测试在MPF4.0等其他的编译器中使用API函数的情况，感兴趣的测试 后不要忘了来分享啊AvA 。该方法主要使用了一下三个系统函数：FindFirst和FindClose,这三个函数存 在于系统的Kernel32.dll函数中，因此调用之前需要先引用这个函数库。简单给 出这三个函数的介绍：HRESULT FindFirstFile(in,string LPCWSTRwsSearchFileoutLPWIN32_FIND_DATAW p

17、FindoutLPHANDLEpSearchHandle)；wsSearchFile：字符串类型的变量，也就是上面说的筛选值，pFind ,表示所找到的文件的信息，类似上面方法中的那个类型，也是在函数调用过程中生成 信息，他的类型就是 WIN32_FIND_DATA (一个结构体，在fortran中使用TYPE 定义)。pSearchHandle：这是一个表示文件地址的变量，类似于我们用OPEN命令打开一个文件时，前面给一个unit的意思，他可以用在后面的 FindNext函数中。 该函数的返回值为0表示文件未找到。HRESULT FindNextFile(in HANDLEhSearchHa

18、ndleout LPWIN32_FIND_DATAW pFind )；该函数可以用上面所获得 HANDLE句柄来查找下一个符合条件的文件，函数运行过程中同样给pFind生成了相关信息，文件名就从其中获取。返回值同 FindFirstFile。HRESULT FindClose(in HANDLE hSearchHandle )；根据上面的文件句柄关闭文件，返回值同上。有了对这三个函数的了解，接下来的事情就是如何使用这三个函数了，给出关键的子程序并作说明：subroutine FindName()Usekernel32 !载入函数库integer,parameter:maxlen=80 !设置一

19、个文件名长度的阈值CHARACTER*，)！筛选值和目标路径IntegeK4)hFind,res !文件句柄和返回值integer(4),intent(inout):iFile !已找到的文件个数(不含 dir.txt )Type(t_WIN32_FIND_DATA) Find !系统定义的一个结构体信息，具体的可以自行查阅WIN32API 手册character*maxlen cname !这个变量用来存放获得的文件名，长度为上面所设定的，不宜太长 res=1iFile=0hFind = FindFirst) ! 找第一个文件If(hFind = INVALID_HANDLE_VALUE)t

20、henReturn !没有找到直配文柞，返回结果=-1 else !继续循环寻找下一个 do while(res) i !先把已有的写入文件cname=Find!这一段代码很特殊，主要是因为调用API之后，默认的文件名长度非常之长，用常用的trim()函数无法缩短，因为文件名后面并不是空格， 而是一个值为0的ASCII字符，因此用循环将这个字符替换为空格，以便于后面的处理，这也是上面说阈值不宜过大的愿意，否则浪费时间do i=1,maxlenif(ichar(cname(i:i)=0) cname(i:i尸' enddo callWrite(trim(cname),out) !调用子函

21、数写出文件名res=FindNext)继续查找下一个，用res的值来控制循环是否退出 enddo res=FindClose(hFind)!退出循环后关闭文件endif endsubroutine月中么样，API函数看下来是否有点晕晕的，能看到这里相信你对fortran的理 解又加深了一些吧。该方法和上一种方法如出一辙，优缺点也近乎相同，同样没有包含子目录(你有 兴趣的话可以试试能否使用Find里面的信息让这个子程序包含子目录，如果有 了结果，同样不要忘了来分享哦)。总结一下上面的几种方法，手工输入适用于文件比较少，而且路径比较复杂的时候；使用dir命令几乎可以通吃，但是无法直接给出文件数目；

22、PI函数功能较为一般，但是可以直接获得找到的文件个数，而且通过writefile子函数的处理， 可以让dir.txt直接存在于当前目录下但不包含在本身的文件列表中。选哪一种， 完全看你的需要和喜好啦！一个小小的例子(使用 SYSTEMQQ实现)：在当前目录下有1.txt4.t/ 样4个文本文件(注意路径以及文件名中不要有空格，否则 fortran中就得按字 符读取了)，分别存放一个数字：1,2,3,4,要求循环读取这些文件中的数字，并 且相加，给出最终的和，程序如下：program listfilecharacter*100 fPathcharacter*200 pathcharacter*7 outPut integer a,b b=0fPath="*.txt"outPut="dir.txt"call ListTo) !先生成文件列表open(1,file='dir.txt'