wcmatch by file extension

Hi all,

Im trying to create a variable when an existing variable has a certain file extension associated with it.

This is the code

(if (wcmatch (strcase plotstyle) "*.stb")
(setq stbctb "White_200")
)

I have been successful with the following code but ultimately I need the above to work.

(if (wcmatch (strcase plotstyle) "MR*")
(setq stbctb "White_200")
)

Thanks in advance

If you strcase the plotstyle will it not return STB so try *.STB worked for me.

It seems to load but stbctb = nil when using the extension, If I use mr* stbctb = White_200....

The file associated with 'plotstyle' is "MR_filename.stb" the MR is common but if users create another plotstyle prefixed with MR then it will fail.

What BIGAL pointed is that you should pay attention to STRCASE function's behavior; using it without the second argument set to T, it will return the string as uppercase, not lower case as expected by your comparison.

(wcmatch (strcase "test.stb")     "*.stb")   ;nil
(wcmatch (strcase "test.stb")     "*.STB")   ;T

(wcmatch (strcase "test.stb" nil) "*.stb")   ;nil
(wcmatch (strcase "test.stb" nil) "*.STB")   ;T

(wcmatch (strcase "test.stb" T)   "*.stb")   ;T
(wcmatch (strcase "test.stb" T)   "*.STB")   ;nil

Of course, sorry.....Thanks a lot for your replies guys!!