need a REGEX pattern to match

Question

need help with validating a 9-digit number.
CANNOT BE -----------
000000000
111111111
222222222
333333333
444444444
555555555
666666666
777777777
888888888
999999999
4-5 position(s) CANNOT BE 00 --
123001234
6-9 position(s) CANNOT BE 00 --
234550000
The nine numbers CANNOT BE sequential -- but only the following 4 four below, for the time being --
012345678
123456789
987654321
098765432
I had just managed to get the first piece done --
"^(?:(?!0+|1+|2+|3+|4+))\d{9}$"
Thanks a TON for the help friends.

Vulpes · Answer

Oops, forgot this question had been asked on the VB.NET forum.
Here's a translation of the above C# code to VB:
Imports System Imports System.Text.RegularExpressions
Module Program
Sub Main()           Dim numbers As String() = _       { _          "111111111", _           "222222222", _          "333333333", _          "444444444", _          "555555555", _          "666666666", _          "777777777", _          "888888888", _          "999999999", _          "123001234", _          "234550000", _          "012345678", _          "123456789", _          "987654321", _          "098765432", _           "345678901", _          "175624560" _        }
For Each number As String in numbers                 Dim result As String = "invalid"          If IsValid(number) Then result = "valid"          Console.WriteLine("{0} is {1}", number, result)
Next number             Console.ReadKey()
End Sub
Function IsValid(ByVal n As String) As Boolean           If Not Regex.IsMatch(n, "^\d{9}$") Then           Return False       End If       If Regex.IsMatch(n, "0{9}|1{9}|2{9}|3{9}|4{9}|5{9}|6{9}|7{9}|8{9}|9{9}") Then           Return False       End If       If n(3) = "0"c AndAlso n(4) = "0"c Then            Return False       End If       If n.EndsWith("0000") Then            Return False       End If       If IsSequentialAscending(n) OrElse IsSequentialDescending(n) Then                         If n = "012345678" OrElse n = "123456789" OrElse n = "987654321" OrElse n = "098765432" Then Return True          Return False
End If       Return True        End Function
Function IsSequentialAscending(ByVal n As String) As Boolean           Dim current As Integer = AscW(n(0)) - 48       Dim nxt As Integer
For i As Integer = 1 To n.Length - 1                         nxt = AscW(n(i)) - 48                  If (current                       current = nxt                    Else                       Return False
End If
Next i
Return true        End Function
Function IsSequentialDescending(ByVal n As String) As Boolean           Dim current As Integer = AscW(n(0)) - 48       Dim nxt As Integer
For i As Integer = 1 To n.Length - 1                 nxt = AscW(n(i)) - 48
If (current > 0 AndAlso nxt = current - 1) OrElse (current = 0 AndAlso nxt = 9) Then                       current = nxt                    Else                       Return False                    End If              Next i
Return True
End Function
End Module

Vulpes · Answer

It seems to me that this is too complicated to try and express it in a singular regular expression.
What I'd suggest instead is that you use a mixture of Regex and ordinary string parsing, like this:
using System; using System.Text.RegularExpressions;
class Program {    static void Main()    {       string[] numbers =        {          "111111111",          "222222222",          "333333333",          "444444444",          "555555555",          "666666666",          "777777777",          "888888888",          "999999999",          "123001234",          "234550000",          "012345678",          "123456789",          "987654321",          "098765432",           "345678901",          "175624560"        };
foreach(string number in numbers)       {          string result = IsValid(number) ? "valid" :"invalid";          Console.WriteLine("{0} is {1}", number, result);       }             Console.ReadKey();    }
static bool IsValid(string n)    {       if (!Regex.IsMatch(n, @"^\d{9}$")) return false;       if (Regex.IsMatch(n, "0{9}|1{9}|2{9}|3{9}|4{9}|5{9}|6{9}|7{9}|8{9}|9{9}")) return false;       if (n[3] == '0' && n[4] == '0') return false;       if (n.EndsWith("0000")) return false;       if (IsSequentialAscending(n) || IsSequentialDescending(n))       {                  if (n == "012345678" || n == "123456789" || n == "987654321" || n == "098765432") return true;          return false;       }       return true;    }
static bool IsSequentialAscending(string n)    {       int current = n[0] - 48;       int next;
for(int i = 1; i       {                  next = n[i] - 48;                  if ((current          {             current = next;          }          else          {             return false;          }       }       return true;    }
static bool IsSequentialDescending(string n)    {       int current = n[0] - 48;       int next;
for(int i = 1; i       {          next = n[i] - 48;
if ((current > 0 && next == current - 1) || (current == 0 && next == 9))           {             current = next;          }          else          {             return false;          }       }       return true;    } }

Frogleg · Answer

Did this post help at all ?
http://www.c-sharpcorner.com/Forums/Thread/111501/regex-pattern-unmatch-in-VB-Net-or-C-Sharp.aspx