🚀 go-pugleaf

On Mon, 30 Jun 2008 15:28:19 +0200, S�ren Zimmermann
<soeren.zimmermann@sef-softec.de> wrote:

Hi S�ren,
>Of course I could use FindFirstFile/FindNextFile, but then I will only 
>get a list of files matching my include files. How can I filter out my 
>exclude files, esp. when they contain wildcards?
I think you will have to use FindFirstFile/FindNextFile (or some
higher level component which will use these functions internally).

Here's how I would do it if I wouldn't want to think too hard about
it:
Step 1) Build a list containing all _excluded_ files. That is use
FindFirstFile/FindNextFile on all "patterns to exclude".
Step 2) Run FindFirstFile/FindNextFile for each pattern you want
included. If any file is part of the list built in step (1), ignore
it, else delete it.

Regarding performance it is probably faster to
- get a list of _all_ files and then for each of them
- check if it matches an 'exclude file' (if so continue) or
- if it matches an 'include file'

But it's more programming work, so I'd start out with the easy way
outlined above
HTH
Helmut Giese

"S�ren Zimmermann" <soeren.zimmermann@sef-softec.de> wrote in message 
news:4868dffe$1@newsgroups.borland.com...

> So what I need is an idea of code (or maybe some existing component)
> of how to create a list of all files matching the definitions.

The VCL has a MatchesMask() function that you can use for that, ie:

    #include <Masks.hpp>

    bool __fastcall IsAMatch(const AnsiString &FileName, TStrings *Masks)
    {
        for(int i = 0; i < Masks->Count; ++i)
        {
            if( MatchesMask(FileName, Masks->Strings[i]) )
                return true;
        }
        return false;
    }

    void __fastcall DeleteFiles(const AnsiString &Directory, TStrings 
*IncludedFiles, TStrings *ExcludedFiles)
    {
        AnsiString tmpDir = IncludeTrailingBackslash(Directory);

        TSearchRec sr;
        if( FindFirst(tmpDir + "*.*", faAnyFile, sr) == 0 )
        {
            try
            {
                do
                {
                    if( sr.Attr & faDirectory )
                        DeleteFiles(tmpDir + sr.Name, IncludedFiles, 
ExcludedFiles);

                    else if( IsAMatch(sr.Name, IncludedFiles) && 
!IsAMatch(sr.Name, ExcludedFiles) )
                        DeleteFile(tmpDir + sr.Name);
                }
                while( FindNext(sr) == 0 );
            }
            __finally
            {
                FindClose(sr);
            }
        }
    }

    {
        TStringList *IncludedFiles, *ExcludedFiles;
        ...
        IncludedFiles->Add("*.bmp");
        IncludedFiles->Add("*.gif");
        ExcludedFiles->Add("Default.*");
        ...
        DeleteFiles("C:\\Some directory", IncludedFiles, ExcludedFiles);
    }

> Of course I could use FindFirstFile/FindNextFile

You will have to do that anyway.

> but then I will only get a list of files matching my include files.

Only if you rely on FindFirstFile()'s pattern matching.  Instead, you can 
pass it "*.*" to get all files, and then match them to your search lists 
manually.


Gambit 

Yes, the MatchesMask() function was exactly what I was looking for. I 
implemented the code and it works fine.

Thanks very much,
S�ren