Imports System
Imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim pattern As String = "(%\w+)"
Dim s As String = "%1n--%2n##%12n"
Dim matches As String() = System.Text.RegularExpressions.Regex.Split(s, pattern)
For Each m As String In matches
If Not String.IsNullOrEmpty(m) Then
Console.WriteLine(m)
End If
Next
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkgCgkJRGltIHBhdHRlcm4gQXMgU3RyaW5nID0gIiglXHcrKSIKCQlEaW0gcyBBcyBTdHJpbmcgPSAiJTFuLS0lMm4jIyUxMm4iCgkJRGltIG1hdGNoZXMgQXMgU3RyaW5nKCkgPSBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMuUmVnZXguU3BsaXQocywgcGF0dGVybikKCQlGb3IgRWFjaCBtIEFzIFN0cmluZyBJbiBtYXRjaGVzCgkJICAgIElmIE5vdCBTdHJpbmcuSXNOdWxsT3JFbXB0eShtKSBUaGVuCgkJICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKG0pCgkJICAgIEVuZCBJZgoJCU5leHQKCUVuZCBTdWIKRW5kIENsYXNz