If first line in RichtextBox doesn't contain numbers

I need some kind of code to check if the first line in a richtextbox contains numbers or not.

Something like this:

If Richtextbot1.Lines(0) contains Numbers Then
Goto startbot
Else
End If

Here is an example of my richtextbox lines:

1. 2245 queen st west, ON, M6R2W7

2. 12 RRw Rd, ON

3. ON, M2N4E3

If the first line contains 4 or more numbers, it will use it. After each loop it will delete line 1. So it repeats for the next line. When my code reaches the 3rd line, and it开发者_开发知识库 doesnt find 4 or more numbers it needs to delete the line.

You could simply iterate through the characters in the line looking for one that is a digit based on the premise that if you find a digit you'll be able to find what you term a 'number.'

Public Function DoesLineContainNumber() As Boolean
    For index As Integer = 0 To RichTextBox1.Lines(0).Length - 1
        If Char.IsDigit(RichTextBox1.Lines(0)(index)) Then
            Return True
        End If
    Next
    Return False
End Function

You could then extract these 'numbers' by parsing the string starting with the first digit found.

Try this

Dim firstLineContainsNumber As Boolean = ContainsNumber(RichTextBox1.Lines(0))
...

Public Function ContainsNumber(input As String) As Boolean         
    Dim myRegex As New Regex("\d")        
    Return (myRegex.IsMatch(input))        
End Function

Try this, I used matches to check for numbers on the first line and then for each match I added 1 to a count variable:

  Dim count As Integer
    Dim matches As MatchCollection = Regex.Matches(RichTextBox1.Lines(0), "\d")

    For Each m As Match In matches
        For Each c As Capture In m.Captures
            count += 1
        Next
    Next

   If count >= 4 Then
        MsgBox("contains 4 or more numbers")
    End If