Imports System
Imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim pattern As String = "\b\p{L}+\b"
Dim s As String = "abcd NonLastMatch РОДИНА"
Dim matches As MatchCollection = System.Text.RegularExpressions.Regex.Matches(s, pattern)
For Each m As Match In matches
Console.WriteLine(m.Value)
Next
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkgCgkJRGltIHBhdHRlcm4gQXMgU3RyaW5nID0gIlxiXHB7TH0rXGIiCgkJRGltIHMgQXMgU3RyaW5nID0gImFiY2QgTm9uTGFzdE1hdGNoINCg0J7QlNCY0J3QkCIKCQlEaW0gbWF0Y2hlcyBBcyBNYXRjaENvbGxlY3Rpb24gPSBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMuUmVnZXguTWF0Y2hlcyhzLCBwYXR0ZXJuKQoJCUZvciBFYWNoIG0gQXMgTWF0Y2ggSW4gbWF0Y2hlcwoJCSAgICBDb25zb2xlLldyaXRlTGluZShtLlZhbHVlKQoJCU5leHQKCQkKCUVuZCBTdWIKRW5kIENsYXNz