Imports System
Imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim res As MatchCollection = Regex.Matches("hjgv ygkuy (1) erg erg ewr (12)erg erg erg er. (321)", "\(([0-9]+)\)")
If res.Count() > 0 Then
For Each m As Match In res
Console.WriteLine(m.Groups(1).Value)
Next
End If
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gcmVzIEFzIE1hdGNoQ29sbGVjdGlvbiA9IFJlZ2V4Lk1hdGNoZXMoImhqZ3YgeWdrdXkgKDEpIGVyZyBlcmcgZXdyICgxMillcmcgZXJnIGVyZyBlci4gKDMyMSkiLCAiXCgoWzAtOV0rKVwpIikKICAgICAgICBJZiByZXMuQ291bnQoKSA+IDAgVGhlbgogICAgICAgICAgICBGb3IgRWFjaCBtIEFzIE1hdGNoIEluIHJlcwogICAgICAgICAgICAJQ29uc29sZS5Xcml0ZUxpbmUobS5Hcm91cHMoMSkuVmFsdWUpCiAgICAgICAgICAgIE5leHQKICAgICAgICBFbmQgSWYKCUVuZCBTdWIKRW5kIENsYXNz