fork download
  1. Imports System
  2. Imports System.Text.RegularExpressions
  3.  
  4. Public Class Test
  5. Public Shared Sub Main()
  6. Dim res As MatchCollection = Regex.Matches("hjgv ygkuy (1) erg erg ewr (12)erg erg erg er. (321)", "\(([0-9]+)\)")
  7. If res.Count() > 0 Then
  8. For Each m As Match In res
  9. Console.WriteLine(m.Groups(1).Value)
  10. Next
  11. End If
  12. End Sub
  13. End Class
Success #stdin #stdout 0.04s 24552KB
stdin
Standard input is empty
stdout
1
12
321