Topic: Wcmatch question

[Marc'Antonio Alessi]

I need to wcmatch a string which contains "- pippo", why this filter "*- pippo* is not enough, but I have to use this "*-?pippo*" ?

Code: [Select]

Comando: (wcmatch "ciao come stai - pippo" "*- pippo*")
T
Comando: (wcmatch "ciao come stai -  pippo" "*- pippo*")
T
Comando: (wcmatch "ciao come stai -        pippo" "*- pippo*")
T
Comando: (wcmatch "ciao come stai -        pippo" "*-?pippo*")
nil
Comando: (wcmatch "ciao come stai - pippo" "*-?pippo*")
T
Comando: (wcmatch "ciao come stai - pippo " "*-?pippo*")
T
Comando: (wcmatch "ciao come stai - pippo " "*- pippo*")
T

[ronjonp]

? matches any single character. Your example has multiple spaces. I would use:
(wcmatch "ciao come stai -        pippo" "*-*pippo*")

[Marc'Antonio Alessi]

I need to wcmatch a string which only contains "- pippo" not "-  pippo" (2 spaces) or "-   pippo" (3 sp.) and so on, only exactly "- pippo".

[Jeff_M]

Ron, I think his query has to do with one of these returning T when one would think they should both return nil:

Comando: (wcmatch "ciao come stai -        pippo" "*- pippo*")
T
Comando: (wcmatch "ciao come stai -        pippo" "*-?pippo*")
nil

I don't see anything in the documentation that would suggest a single space would equal any number of spaces.

[Jeff_M]

Looks like using the Escape character ` works:
Command: (wcmatch "ciao come stai - pippo" "*-` pippo*")
T
Command: (wcmatch "ciao come stai -        pippo" "*-` pippo*")
nil

[ronjonp]

Ahhh .. I see .. (wcmatch "ciao come stai -        pippo" "*- pippo*") T <- that is strange.

[Marc'Antonio Alessi]

Ron, I think his query has to do with one of these returning T when one would think they should both return nil:

Comando: (wcmatch "ciao come stai -        pippo" "*- pippo*")
T
Comando: (wcmatch "ciao come stai -        pippo" "*-?pippo*")
nil

I don't see anything in the documentation that would suggest a single space would equal any number of spaces.

Yes, just a curiosity on the functioning of wcmatch.

[MP]

Excerpt from the help:

Note: Because additional wild-card characters might be added in future releases of AutoLISP, it is a good idea to escape all non-alphanumeric characters in your pattern to ensure upward compatibility.

Also, all characters enclosed in brackets ([ . . . ]) are read literally, so there is no need to escape them.

Accordingly this will work (and is more eye friendly to me) as well as the "*-` pippo*" variant:

Code: [Select]

(progn

    (setq tests
       '(
            "ciao come stai - pippo"
            "ciao come stai -  pippo"
            "ciao come stai -        pippo"
            "ciao come stai - pippo"
            "ciao come stai - pippo "
        )
    )
   
    (setq pattern "*-[ ]pippo*")

    (foreach test tests   
        (princ
            (strcat
                "\n"
                (vl-prin1-to-string test)
                ": "
                (if (wcmatch test pattern) "T" "nil")
            )
        )
    )
   
    (princ)

)
>>

"ciao come stai - pippo": T
"ciao come stai -  pippo": nil
"ciao come stai -        pippo": nil
"ciao come stai - pippo": T
"ciao come stai - pippo ": T

Cheers/Ciao.

[Marc'Antonio Alessi]

Grazie mille! 

[MP]