Imports System
Imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim input as String ="ASD~QW~DFGH~LOP~GGGH~123~SXC~QL~"
Dim pattern as String =".*?~([^~]+?)~"
Dim re as Regex = New Regex(pattern)
Dim mtch as match = re.Match(input)
For Each grp as Group in mtch.Groups
Console.Write("[{0}]", grp.Value)
Next
Console.Writeline()
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKCgpQdWJsaWMgQ2xhc3MgVGVzdAoJUHVibGljIFNoYXJlZCBTdWIgTWFpbigpCgkJRGltIGlucHV0IGFzIFN0cmluZyA9IkFTRH5RV35ERkdIfkxPUH5HR0dIfjEyM35TWEN+UUx+IgogICAgICAgIERpbSBwYXR0ZXJuIGFzIFN0cmluZyA9Ii4qP34oW15+XSs/KX4iCiAgICAgICAgRGltIHJlIGFzIFJlZ2V4ID0gTmV3IFJlZ2V4KHBhdHRlcm4pCgogICAgICAgIERpbSBtdGNoIGFzIG1hdGNoID0gcmUuTWF0Y2goaW5wdXQpCiAgICAgICAgRm9yIEVhY2ggZ3JwIGFzIEdyb3VwIGluIG10Y2guR3JvdXBzCiAgICAgICAgICAgIENvbnNvbGUuV3JpdGUoIlt7MH1dIiwgZ3JwLlZhbHVlKQogICAgICAgIE5leHQKICAgICAgICBDb25zb2xlLldyaXRlbGluZSgpCgoKCUVuZCBTdWIKRW5kIENsYXNz