fork download
  1. Imports System
  2. Imports System.Text.RegularExpressions
  3.  
  4. Public Class Test
  5. Public Shared Sub Main()
  6. Dim pattern As String = "(%\w+)"
  7. Dim s As String = "%1n--%2n##%12n"
  8. Dim matches As String() = System.Text.RegularExpressions.Regex.Split(s, pattern)
  9. For Each m As String In matches
  10. If Not String.IsNullOrEmpty(m) Then
  11. Console.WriteLine(m)
  12. End If
  13. Next
  14. End Sub
  15. End Class
Success #stdin #stdout 0.06s 19696KB
stdin
1
2
10
42
11
stdout
%1n
--
%2n
##
%12n