findnext(什么是findnext)

编程之家2024-05-21116次浏览

一、C语言如何遍历目录 (C++也可以) findfirst findnext怎么用

#include<windows.h>

#include<stdio.h>

FILE*fp;

void findFile(char filePath[])//这个是你要的函数

{

char szFind[MAX_PATH];//这是要找的

WIN32_FIND_DATA FindFileData;

HANDLE hFind;

char szFile[MAX_PATH];

strcpy(szFind,filePath);

strcat(szFind,"\\*.*");//利用通配符找这个目录下的所以文件，包括目录

hFind=FindFirstFile(szFind,&FindFileData);

if(INVALID_HANDLE_VALUE== hFind) return;

while(TRUE)

{

if(FindFileData.dwFileAttributes& FILE_ATTRIBUTE_DIRECTORY)//这是目录

{

if(FindFileData.cFileName[0]!='.')//.表示当前目录，因为每个目录下面都有两个默认目录就是..和.分别表示上一级目录和当前目录

{

strcpy(szFile,filePath);

strcat(szFile,"\\");

strcat(szFile,FindFileData.cFileName);

findFile(szFile);//寻找这个目录下面的文件

}

else

{

fprintf(stdout,"%s\\%s\n",filePath,FindFileData.cFileName);//打印出目录下的文件的路径和名称

fprintf(fp,"%s\\%s\n",filePath,FindFileData.cFileName);//这将结果存档到c:\\path.txt中。

}

if(!FindNextFile(hFind,&FindFileData))//寻找下一个文件

break;

}

FindClose(hFind);//关闭句柄

}

int main()

{

fp= fopen("C:\\path.txt","w");

findFile("D:\\e-book\\实习\\随笔\\读书ing");//这里是你要遍历的目录，你自己可以改变,它会显示这个目录下的所有文件，包括这个目录下子目录下的文件。

fclose(fp);

return 0;

}

程序如上，是把结果输出到标准输出上，并且存档到C:\\path.txt中。

可以运行的，我已经测试过。

工具是vc6.0.

二、求Excel VBA中Find及Findnext的用法

Sub Myfind()

Dim iRange As Range, iFined As Range

Dim iStr, iAddress As String, N As Integer

'以上是定义使用到的变量

Set iRange= Range("A2:A100")'给irange变量赋值为A2:A100区域

iStr= Range("A1").Value'给要查找的字符串变量赋值为A1单元格的值

Set iFined= iRange.Find(iStr, lookat:=xlWhole)'在irange区域内查找等于变量istr的单元格,并赋值给你ifined变量,如果要查找包含istr变量的单元格,更改参数lookat:=xlPart

If iFined Is Nothing Then'判断 ifined变量是空

MsgBox"在"& iRange.Address(0, 0)&"区域里,没有找到内容等于"& iStr&"的单元格!"

Exit Sub

Else

iAddress= iFined.Address(0, 0)

N= N+ 1

Set iFined= iRange.FindNext(iFined)'继续向下查找等于istr变量的单元格

Loop While Not iFined Is Nothing And iAddress<> iFined.Address(0, 0)'do循环的条件为ifined变量非空,并且ifined变量的单元格地址不等于找到的第一个单元格地址

End If

MsgBox"在"& iRange.Address(0, 0)&"区域里,共找到内容等于"& iStr&"的单元格有:"& N&"个!"

End Sub

三、Excel VBA中Find和Findnext的用法分别是什么