Fortran Coder

查看: 151|回复: 24

[绘图界面库] 请问怎么获得包括子文件夹的所有文件名

[复制链接]

41

帖子

13

主题

0

精华

熟手

F 币
165 元
贡献
99 点
发表于 2017-9-12 07:29:19 | 显示全部楼层 |阅读模式
求问????????????
回复

使用道具 举报

452

帖子

0

主题

0

精华

大师

F 币
926 元
贡献
437 点

规矩勋章元老勋章新人勋章水王勋章

QQ
发表于 2017-9-12 07:58:48 | 显示全部楼层
ivf编译器的话,可以参考
http://doinfolder.w.fcode.cn/
这个代码,然后递归。

41

帖子

13

主题

0

精华

熟手

F 币
165 元
贡献
99 点
 楼主| 发表于 2017-9-12 14:13:19 | 显示全部楼层
本帖最后由 shrine 于 2017-9-12 21:28 编辑
vvt 发表于 2017-9-12 07:58
ivf编译器的话,可以参考
http://doinfolder.w.fcode.cn/
这个代码,然后递归。

如何判断是文件夹,然后进入到文件夹,遍历后再回到上一层目录,继续下一个文件夹?

29

帖子

0

主题

0

精华

熟手

F 币
240 元
贡献
88 点

规矩勋章元老勋章新人勋章

QQ
发表于 2017-9-13 07:24:58 | 显示全部楼层
[Fortran] 纯文本查看 复制代码
If ( ( stInfo%permit.AND.FILE$DIR ) == 0 ) then
  call CallBack( Trim(stInfo%Name) , iTotal + 1 )
  iTotal = iTotal + 1
Else
  call DoWithWildcard( ... ) !!!文件夹,递归
End If

41

帖子

13

主题

0

精华

熟手

F 币
165 元
贡献
99 点
 楼主| 发表于 2017-9-13 08:07:53 | 显示全部楼层
本帖最后由 shrine 于 2017-9-13 08:46 编辑
kyra 发表于 2017-9-13 07:24
[Fortran] 纯文本查看 复制代码
If ( ( stInfo%permit.AND.FILE$DIR ) == 0 ) then
  call CallBack( Trim(stIn ...

是这样吗?不行啊

[Fortran] 纯文本查看 复制代码
Program www_fcode_cn
   Implicit None
   integer :: n
   External ToDoOneFile
   call DoWithWildcard( "j:\*.*" , ToDoOneFile , n )
   write(*,*) '共',n,'个文件'
End Program www_fcode_cn 

Subroutine ToDoOneFile( cFile , iLoop )
   Character( Len = * ) , Intent( IN ) :: cFile
   Integer , Intent( IN ) :: iLoop
   Write( * , * ) '第',iLoop,'个文件:',cFile
End Subroutine ToDoOneFile

recursive Subroutine DoWithWildcard(cWildcard,CallBack,iTotal)
   !// 下一句代码,如果是 Compaq 或 Digital,需改为 Use DFLib
   Use IFPort , only : GetFileInfoQQ , GetLastErrorQQ , FILE$INFO , FILE$LAST , FILE$ERROR , FILE$FIRST , ERR$NOMEM , ERR$NOENT , FILE$DIR
   Implicit None
   Interface
     Subroutine CallBack( cFile , iLoop )
       Character( Len = * ) , Intent( IN ) :: cFile
       Integer , Intent( IN ) :: iLoop
     End Subroutine CallBack
   End Interface
   Character( Len = * ) , Intent( IN ) :: cWildcard
   Integer , Intent( OUT ) :: iTotal
   Type (FILE$INFO) :: stInfo
   Integer(4) :: iWildhandle , iLength , iRet
   iWildhandle = FILE$FIRST
   iTotal = 0
   Do While (.TRUE.)
       iLength = GetFileInfoQQ( cWildCard , stInfo , iWildhandle )
       If (( iWildhandle == FILE$LAST) .OR.( iWildhandle == FILE$ERROR )) then
         Select Case (GetLastErrorQQ())
         Case (ERR$NOMEM)  !//内存不足
           iTotal = - 1
           return
         Case (ERR$NOENT)  !//碰到通配符序列尾
           return
         Case Default
           iTotal = 0
           return
         End Select
       End If
       
    If ( ( stInfo%permit.AND.FILE$DIR ) == 0 ) then
      call CallBack( Trim(stInfo%Name) , iTotal + 1 )
      iTotal = iTotal + 1
    Else
      call DoWithWildcard( cWildcard , CallBack , iTotal ) !!!文件夹,递归
    End If
   End Do

 End Subroutine DoWithWildcard


另外问一下,CallBack和ToDoOneFile什么关系?没有用过interface

29

帖子

0

主题

0

精华

熟手

F 币
240 元
贡献
88 点

规矩勋章元老勋章新人勋章

QQ
发表于 2017-9-13 10:36:37 | 显示全部楼层
callBack 是接口,ToDoOneFile 是它的真实实现。

[Fortran] 纯文本查看 复制代码
Program www_fcode_cn
   Implicit None
   integer :: n = 0
   External ToDoOneFile
   call DoWithWildcard( "C:\dosh\*" , ToDoOneFile , n )
   write(*,*) '共',n,'个文件'
End Program www_fcode_cn

Subroutine ToDoOneFile( cFile , iLoop )
   Character( Len = * ) , Intent( IN ) :: cFile
   Integer , Intent( IN ) :: iLoop
   Write( * , * ) '第',iLoop,'个文件:',cFile
   !Open( 12 , File = cFile )
   !Read( 12 )
   !Close( 12 )
End Subroutine ToDoOneFile
   
Recursive Subroutine DoWithWildcard(cWildcard,CallBack,iTotal)
   !// 下一句代码,如果是 Compaq 或 Digital,需改为 Use DFLib
   Use IFPort , only : GetFileInfoQQ , GetLastErrorQQ , FILE$INFO , FILE$LAST , FILE$ERROR , FILE$FIRST , ERR$NOMEM , ERR$NOENT , FILE$DIR
   Implicit None
   Interface 
     Subroutine CallBack( cFile , iLoop )
       Character( Len = * ) , Intent( IN ) :: cFile
       Integer , Intent( IN ) :: iLoop
     End Subroutine CallBack
   End Interface
   Character( Len = * ) , Intent( IN ) :: cWildcard
   Integer , Intent( OUT ) :: iTotal
   Type (FILE$INFO) :: stInfo
   Integer(4) :: iWildhandle , iLength , iRet
   iWildhandle = FILE$FIRST
   Do While (.TRUE.)
       iLength = GetFileInfoQQ( cWildCard , stInfo , iWildhandle )
       If (( iWildhandle == FILE$LAST) .OR.( iWildhandle == FILE$ERROR )) then
         Select Case (GetLastErrorQQ())
         Case (ERR$NOMEM)  !//内存不足
           iTotal = - 1
           return
         Case (ERR$NOENT)  !//碰到通配符序列尾
           return
         Case Default
           iTotal = 0
           return
         End Select
       End If
       iLength = index( cWildcard , "\" , .true. )
       If ( ( stInfo%permit.AND.FILE$DIR ) == 0 ) then
         call CallBack( cWildcard(:iLength)//trim(stInfo%Name) , iTotal + 1 )
         iTotal = iTotal + 1
       Else         
         if(stInfo%Name(1:1) /= "." ) then           
           call DoWithWildcard( cWildcard(:iLength)//trim(stInfo%Name)//"\"//cWildcard(iLength+1:) , CallBack , iTotal )
         end if
       End If
   End Do
 End Subroutine DoWithWildcard

341

帖子

2

主题

0

精华

大宗师

F 币
2391 元
贡献
1445 点

水王勋章元老勋章热心勋章

发表于 2017-9-13 11:12:43 | 显示全部楼层
Windows平台的话,调用dir命令并写入指定文件
dir /S/B > a.txt
具体参考下面的链接:
http://blog.csdn.net/wubai250/article/details/7732822

41

帖子

13

主题

0

精华

熟手

F 币
165 元
贡献
99 点
 楼主| 发表于 2017-9-13 11:17:47 | 显示全部楼层
pasuka 发表于 2017-9-13 11:12
Windows平台的话,调用dir命令并写入指定文件
dir /S/B > a.txt
具体参考下面的链接:

获得文件名后我还想进一步操作,所以编程比较方便

41

帖子

13

主题

0

精华

熟手

F 币
165 元
贡献
99 点
 楼主| 发表于 2017-9-13 11:52:15 | 显示全部楼层
kyra 发表于 2017-9-13 10:36
callBack 是接口,ToDoOneFile 是它的真实实现。

[mw_shl_code=fortran,true]Program www_fcode_cn

感谢!!!

好人帮到底吧,想把每个文件重命名为前10个字符,低于十个字符文件名不变,后缀名不变该怎么弄

29

帖子

0

主题

0

精华

熟手

F 币
240 元
贡献
88 点

规矩勋章元老勋章新人勋章

QQ
发表于 2017-9-13 12:23:25 | 显示全部楼层
这中间涉及到很多问题,比如重名怎么办?
比如

有2个文件,分别叫
1234567890123.txt
1234567890124.txt


还有中文字符怎么办?比如
我是1个中文文件名.txt

等等。

如果你只是重命名,我觉得批处理比较适合你。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|QQ群|Fcode

GMT+8, 2017-10-20 05:51

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表