易语言非递归算法遍历目录的代码示例

首先，对于易语言非递归算法遍历目录的代码示例，需要完成以下几个步骤：

1. 定义文件夹路径

可以使用易语言的文件夹选择对话框来选择需要遍历的文件夹路径，然后将路径存储到一个变量中，如下所示：

SelectDir("请选择需要遍历的文件夹路径", "", @TRUE, @FALSE);
strFolder = GetSaveBoxPath(hWndMain, "选择目标文件夹", "");

其中，SelectDir()函数用于呼出文件夹选择对话框，GetSaveBoxPath()函数用于获取文件夹路径。

1. 定义文件夹及文件变量

可以使用易语言的数组来存储文件夹及文件，先定义一个一维或二维数组：

dim arrFolder[10] as string; ' 存储文件夹
dim arrFile[10,2] as string; ' 存储文件和文件夹下的文件

1. 遍历文件夹及文件

使用非递归算法遍历文件夹及其下的文件，将每个文件或文件夹存储到上面定义好的数组中，具体实现方式如下：

dim strFile, strFolderPath as string;
dim nFolderCount, nFileCount as integer;

nFolderCount = 0;
nFileCount = 0;

arrFolder[nFolderCount] = strFolder;
nFolderCount += 1;

while(nFolderCount <> 0)
{
    strFolderPath = arrFolder[nFolderCount - 1];
    for_each(x,y in filesearch(strFolderPath))
    {
        if (FindInText(y.filename, ".") == -1) ' 是文件夹
        {
            arrFolder[nFolderCount] = strFolderPath + "\\" + y.filename;
            nFolderCount += 1;
        }
        else ' 是文件
        {
            arrFile[nFileCount, 0] = strFolderPath;
            arrFile[nFileCount, 1] = y.filename;
            nFileCount += 1;
        }
    }

    nFolderCount -= 1;
}

其中，filesearch()函数可以遍历文件夹下的所有文件和子文件夹，并返回文件夹路径及文件名等信息；FindInText()函数则用于判断是否是文件夹。

上面的代码示例可以适用于非常简单的目录遍历任务，但在实际情况中，可能需要更复杂的遍历方式。下面提供两个示例：

（1）遍历目录下的所有文件，包括子目录

dim strFile, strFolderPath as string;
dim nFolderCount, nFileCount as integer;

nFolderCount = 0;
nFileCount = 0;

arrFolder[nFolderCount] = strFolder;
nFolderCount += 1;

while(nFolderCount <> 0)
{
    strFolderPath = arrFolder[nFolderCount - 1];
    for_each(x,y in filesearch(strFolderPath))
    {
        if (FindInText(y.filename, ".") == -1) ' 是文件夹
        {
            arrFolder[nFolderCount] = strFolderPath + "\\" + y.filename;
            nFolderCount += 1;
        }
        else ' 是文件
        {
            arrFile[nFileCount, 0] = strFolderPath;
            arrFile[nFileCount, 1] = y.filename;
            nFileCount += 1;
        }
    }

    nFolderCount -= 1;
}

需要注意的是，在这个示例中，我们使用了一个while循环，不断地遍历文件夹并将文件或者文件夹下的所有文件加入到数组中去。

（2）遍历目标目录下的所有文件，并将文件列表输出到文本文件中

dim strFile, strFolderPath as string;
dim nFolderCount, nFileCount as integer;

nFolderCount = 0;
nFileCount = 0;

arrFolder[nFolderCount] = strFolder;
nFolderCount += 1;

while(nFolderCount <> 0)
{
    strFolderPath = arrFolder[nFolderCount - 1];
    for_each(x,y in filesearch(strFolderPath))
    {
        if (FindInText(y.filename, ".") == -1) ' 是文件夹
        {
            arrFolder[nFolderCount] = strFolderPath + "\\" + y.filename;
            nFolderCount += 1;
        }
        else ' 是文件
        {
            arrFile[nFileCount, 0] = strFolderPath;
            arrFile[nFileCount, 1] = y.filename;
            nFileCount += 1;
        }
    }

    nFolderCount -= 1;
}

FileOpen(@S_0, @TRUE, strFolder + "\\filelist.txt", @TRUE);
for i = 0 to nFileCount - 1
{
    FileWrite(@S_0, arrFile[i, 0] + "\\" + arrFile[i, 1] + "\r\n");
}

FileClose(@S_0);

在这个示例中，我们首先遍历目录并将文件加入到数组中，完成遍历后，使用FileOpen()函数将文本文件打开并将列表写入其中，最后将文件关闭。

以上就是关于“易语言非递归算法遍历目录的代码示例”的完整攻略，包含了定义文件夹路径、定义文件夹及文件变量、遍历文件夹及文件等内容。同时，我们还提供了两个示例，分别用于遍历目录下的所有文件，包括子目录，并将文件列表输出到文本文件中。