Numeric wild card

[daigo]

I want a wild card to be restricted to numbers only. How do I make the * and/or ? wildcards to be only numerical?

[Get_A_Fix]

Something like

Code: Select all

proc isnum {string} {
  if {[regexp {^-?\d+(\.\d+)?$} $string]} {
    return 1;
  }
  return 0;
}

then you are able to make if statements, like..

Code: Select all

if {![isnum $arg]} {puthelp "PRIVMSG $chan :You did not type a number"; return}
if {[isnum $arg]} {puthelp "PRIVMSG $chan :You did type a number"; return}

for more wildcarding, you'd use a string match.

Code: Select all

if {[isnum $arg] && [string match -nocase "*something*" $arg]} {
  do this
}

Hope that helps.

[daigo]

My script is this:

Code: Select all

bind pubm - * test

proc test {nick host hand chan txt} {
  set txt [string tolower $txt]

  if {[string match -nocase "test" $txt] || [string match -nocase "test?" $txt] || [string match -nocase "test??" $txt] && $nick eq "daigo"} {

  set testing [join [lrange [split $txt] 0 end]]

  puthelp "PRIVMSG $chan :$testing"
  }
 return 0
}

Where I put the ? wild cards, I only want them to be numbers

[SpiKe^^]

There is no # wild card for [string match], you will have to do it another way.

Fairly sure you should use a regexp or 2 here, but this one is easy enough to fix as string match...

Code: Select all

|| [string match -nocase "test?" $txt] || [string match -nocase "test??" $txt] &&

would be...

Code: Select all

|| [string match -nocase {test[0-9]} $txt] || [string match -nocase {test[0-9][0-9]} $txt] &&