fork download
  1. Imports System
  2. Imports System.Text.RegularExpressions
  3.  
  4. Public Class Test
  5. Public Shared Sub Main()
  6. Dim rx As Regex = New Regex("\A2[0-9]{9}(?:\r\n2[0-9]{9})*\z")
  7. Console.WriteLine(rx.IsMatch("2123123123"))
  8. Console.WriteLine(rx.IsMatch("2123123123" + vbCrLf + "2987654321"))
  9. Console.WriteLine(rx.IsMatch("2123123123" + vbLf))
  10. Console.WriteLine(rx.IsMatch("2123123123" + vbCrLf))
  11. End Sub
  12. End Class
Success #stdin #stdout 0.04s 24552KB
stdin
Standard input is empty
stdout
True
True
False
False