Regex - 7 digit number

[Bert]

I'm trying to use Regex to verify a number.

Criteria:

• number must be 7 digits long. 6 or under or 8 and more will cause an error.
• must support leading zeros - example 0000023
• no other characters permitted.

Examples of what will pass:

1234567

0004567

0234567

1234500

0022300

Examples of what will fail:

000001

0000000

12345

12 3456

001230

wedr000

I've been trying different things now for about an hour without any success. I did find this site that shows a bunch of examples:

http://regexlib.com/Search.aspx?k=number&c=3&m=-1&ps=100

Edited February 18, 2010 by Volly

[jvanegmond]

Dim $grantMe[5] = ["1234567","0004567","0234567","1234500","0022300"]
Dim $failMe[5] = ["000001", "0000000", "12345", "001230", "wedr000"]

ConsoleWrite("These must all win: " & @CRLF)
For $i = 0 to 4
    ConsoleWrite($grantMe[$i] & " - ")
    if (_test($grantMe[$i])) Then
        ConsoleWrite("win" & @CRLF)
    Else
        ConsoleWrite("fail" & @CRLF)
    EndIf
Next

ConsoleWrite("These must all fail: " & @CRLF)

For $i = 0 to 4
    ConsoleWrite($failMe[$i] & " - ")
    if (_test($failMe[$i])) Then
        ConsoleWrite("win" & @CRLF)
    Else
        ConsoleWrite("fail" & @CRLF)
    EndIf
Next

Func _test($s)
    return StringRegExp($s, "[0-9]{7}") And Number($s) <> 0
EndFunc

[Bert]

I think I got it, but can someone test it to make sure I got it right? I've checked it a bunch and it seems to perform as expected.

^(000000[1-9])$|^(00000[1-9][0-9])$|^(0000[1-9][0-9][0-9])$|^(000[1-9][0-9][0-9][0-9])$|^(00[1-9][0-9][0-9][0-9][0-9])$|^(0[1-9][0-9][0-9][0-9][0-9][0-9])$|^([1-9][0-9][0-9][0-9][0-9][0-9][0-9])$

Edited February 18, 2010 by Volly

[GEOSoft]

I think I got it, but can someone test it to make sure I got it right? I've checked it a bunch and it seems to perform as expected.

^(000000[1-9])$|^(00000[1-9][0-9])$|^(0000[1-9][0-9][0-9])$|^(000[1-9][0-9][0-9][0-9])$|^(00[1-9][0-9][0-9][0-9][0-9])$|^(0[1-9][0-9][0-9][0-9][0-9][0-9])$|^([1-9][0-9][0-9][0-9][0-9][0-9][0-9])$

That's returning an error for me. Are you returning this in an array?

If you are then it's probably easier to just get any line containing 7 digits and when you loop through the array eliminate 0000000.

\d{7}

[jchd]

Yours is overcomplicated. Why dissect that much since you explicitely allow for leading zeroes?

Use {n} for fixed repetition. So the base would be "\A\d{7}\z"

But since you don't want an all-zeroes field, we have to exclude it, e.g. with a negative (we don't want) back (something already scanned) assertion (7 zeroes in a row)

Which leads us to this:

Local $string[11] = [ _
    "00000000000", _
    "0000000", _
    "00000", _
    "00abcd0", _
    "abc0000", _
    "0000def", _
    "1000000", _
    "0000001", _
    "0023400", _
    "002536400", _
    "123" _
]
For $str In $string
    $match = StringRegExp($str, "\A\d{7}(?<!0{7})\z")
    Consolewrite($match & " " & $str & @CRLF)
Next

[weaponx]

Manadar's code seems correct to me.

[Bert]

I'm having to use this in javascript. Sorry, I should have made this clear and posted this in chat. I've been testing this a bunch, seems to be working fine. Thanks everyone!

[jchd]

That's true but doing it this way needs an extra conversion and test to check for '0000000'. Including the test within the regexp is easier as the engine is exactly in a position to do so without extra work and without backtracking since the matched zone (PCRE has a pointer to it and knows its current length, 7) is the same length as the excluded condition.

[Bert]

For those who are interested, the site: http://regexlib.com/Default.aspx

is VERY helpful in working with StringRegExp.

[jchd]

I'm having to use this in javascript.

Are Javascript PCRE-based? Does the back-assertion work?

[jchd]

Also give the Regexp Coach a try!

[Bert]

That's returning an error for me. Are you returning this in an array?

If you are then it's probably easier to just get any line containing 7 digits and when you loop through the array eliminate 0000000.

\d{7}

Tried yours, and it doesn't like the leading zeros.

[monoceres]

I always use Rubular. Pretty darn awesome site.

[Bert]

I always use Rubular. Pretty darn awesome site.

OK, I love that site! Nice find!