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}], {1}" , grp.Value , grp.Captues .Count )
Next
Console.Writeline ( )
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKCgpQdWJsaWMgQ2xhc3MgVGVzdAoJUHVibGljIFNoYXJlZCBTdWIgTWFpbigpCgkJRGltIGlucHV0IGFzIFN0cmluZyA9IkFTRH5RV35ERkdIfkxPUH5HR0dIfjEyM35TWEN+UUx+IgogICAgICAgIERpbSBwYXR0ZXJuIGFzIFN0cmluZyA9Ii4qP34oW15+XSs/KX4iCiAgICAgICAgRGltIHJlIGFzIFJlZ2V4ID0gTmV3IFJlZ2V4KHBhdHRlcm4pCgogICAgICAgIERpbSBtdGNoIGFzIG1hdGNoID0gcmUuTWF0Y2goaW5wdXQpCiAgICAgICAgRm9yIEVhY2ggZ3JwIGFzIEdyb3VwIGluIG10Y2guR3JvdXBzCiAgICAgICAgICAgIENvbnNvbGUuV3JpdGUoIlt7MH1dLCB7MX0iLCBncnAuVmFsdWUsIGdycC5DYXB0dWVzLkNvdW50KQogICAgICAgIE5leHQKICAgICAgICBDb25zb2xlLldyaXRlbGluZSgpCgoKCUVuZCBTdWIKRW5kIENsYXNz
compilation info
Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.
/home/sVebzZ/prog.vb (13,56) : Error VBNC30456: 'Captues' is not a member of 'System.Text.RegularExpressions.Group'.
There were 1 errors and 0 warnings.
Compilation took 00:00:00.9497630
stdout