Topic: Filter for drawing files

[GDF]

At a loss...

(setq DwgList (vl-directory-files DirPath "A*.dwg" 1))

How would I modify the above line to filter all A, M, E, P and S letters?

Gary

[CAB]

(setq DwgList (vl-directory-files DirPath "[AMEPS]*.dwg" 1))

[MP]

At a loss...

(setq DwgList (vl-directory-files DirPath "A*.dwg" 1))

How would I modify the above line to filter all A, M, E, P and S letters?

Gary

I don't believe vl-directory-files supports wcmatch filtering, but supports traditional DOS dir command wild carding (?|*).

If true, then:

Code: [Select]

(vl-remove-if-not
   '(lambda (x) (wcmatch (strcase x) "[AMEPS]*"))
    (vl-directory-files DirPath "*.dwg" 1)
)
Should work.

<untested|coded blind>

Edit: Fixed dumb typo, wth is with me lately.

[GDF]

Michael and Alan

Thanks

Michael your solution worked pecfectly.

Thanks again guys

[MP]

Michael and Alan

Thanks

Michael your solution worked pecfectly.

Thanks again guys

That there is poetry. 

<glad it worked>