return 0 by number

[pinkel]

I am looking for the code that will return 0, if the $text contains one or more of the numbers: 1234567890 and/or a . (dot)

tnx

[Sir_Fz]

Code: Select all

return [expr {![string match {*[0-9.]*} $text]}]

[Papillon]

or do:

Code: Select all

if {[regexp {[1-9]|\.} $text]} { return 0 }

difference being that in Sir_Fz example you get the return 1 when no match is made. Of course you can just toss the string match into an if statement as I have done and get the desired result. Just wanted to show it done with regexp

[Sir_Fz]

or do:

Code: Select all

if {[regexp {[1-9]|\.} $text]} { return 0 }

You forgot the 0, it can also be done like this using regexp:

Code: Select all

regexp {[0-9.]} $text