Topic: wcmatch mental block

[Lee Mac]

How can I ensure using wcmatch that a string ends with an indefinite length of numerical characters?

i.e.

Code: [Select]

"TEST1"   = T
"TEST123" = T
"TEST12A" = NIL

I have:

Code: [Select]

(wcmatch <string> "TEST[0-9]*")

However, this fails with the third of my examples 

Any help is, of course, appreciated.

[T.Willey]

Command: (wcmatch "the12" "*[0-9]")
T

Command: (wcmatch "the133333333333332" "*[0-9]")
T

Command: (wcmatch "the" "*[0-9]")
nil

?

[ronjonp]

I'd think that if it ended with numerical characters that you could not have an asterisk at the end?

(wcmatch "TEST12A" "*#*") works returns T

(wcmatch "TEST12A" "*#") does not work returns nil (as it should)

Maybe I'm missing the point   (it's been known to happen)

[CAB]

Works for me

Command: (wcmatch "the12" "*#")
T

Command: (wcmatch "the2" "*#")
T

Command: (wcmatch "the2a" "*#")
nil

[CAB]

Ron, I see, when you said it doesn't work you meant it returns nil.

[VovKa]

Lee, don't you want to right-trim the digits before using wcmatch?

[Lee Mac]

Thanks guys, bit late getting back to you, but I have work now...

Lee, don't you want to right-trim the digits before using wcmatch?

That perhaps may be a solution - let me clarify for you all a bit:

I have a know prefix, say, 'TEST', and want wcmatch to return true if the string begins with 'TEST' and this is following by an indefinite list of numbers, i.e.

Code: [Select]

TEST123 = T
TESTING123 = nil
TEST123A = nil

So far:

Code: [Select]

(wcmatch "TESTING123" "*[0-9]") = T (wrong)

(wcmatch "TESTING123" "*#") = T (wrong)

Apologies if I wasn't clear 

[Lee Mac]

VovKa's proposition:

Code: [Select]

(eq (vl-string-right-trim "0123456789" <string>) "TEST")
works, but I am curious to see if this could be accomplished using wcmatch as I am not too practised in the art of wildcards...

[LE3]

Code: [Select]

(wcmatch "TESTING123" "*[0-9]") = T (wrong)

(wcmatch "TESTING123" "*#") = T (wrong)

Apologies if I wasn't clear 

Clear as mud

Both of your strings above have the prefix of "TEST" and ends with a numeric value

_$ (wcmatch "TESTING123" "TEST*#") ;; start with the prefix and end with a numeric value
T
_$ (wcmatch "INGTEST123" "TEST*#")
nil
(wcmatch "TEST" "TEST*#") ;; start with the prefix but no numeric at the end...
nil

 

[Lee Mac]

I am looking for string such:

Code: [Select]

"TEST#########...###"


[LE3]

what do you think of something like this draft:

Code: [Select]

(defun prefixNumeric (string prefix)
  (and (eq prefix (substr string 1 (strlen prefix)))
  (wcmatch (substr string (+ (strlen prefix) 1)) "#*")
  (wcmatch string "*#")))
(prefixNumeric "TESTING123" "TEST") ;; nil
(prefixNumeric "TEST123" "TEST") ;; t
(prefixNumeric "12333TEST123" "TEST") ;; nil
(prefixNumeric "TEST123dsadsadsa" "TEST") ;; nil

I am looking for string such:

Code: [Select]

"TEST#########...###"


[Lee Mac]

Not quite:

Code: [Select]

(prefixnumeric "test123A123" "test")
T

But I have shown it can be done using VovKa's suggestion - just I wondered if there was a single wcmatch string to do it is all

[LE3]

i know... tried to play too - and no idea if can be done without using any combination

Not quite:

Code: [Select]

(prefixnumeric "test123A123" "test")
T

But I have shown it can be done using VovKa's suggestion - just I wondered if there was a single wcmatch string to do it is all

[MP]

Not sure I'm following but perhaps ...

Code: [Select]

(defun haha ( text patterns )
    (vl-every
       '(lambda ( pattern ) (wcmatch text pattern))
        patterns
    )
)
(setq patterns '("test#*" "~*[~0-9]"))

(haha "test42" patterns) => T

(haha "test42a" patterns) => nil

(haha "test424242" patterns) => T

(haha "test424242a" patterns) => nil

As written is case sensitive which may or may not serve the OP's purposes.

[Lee Mac]

Almost, but:

Code: [Select]

$ (haha "test42a42" '("test#*" "~*[~0-9]"))
T