Imports System
Imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim r As New Regex("<input\s{0,}(?:(name|type|value)=""([^""]+)""\s{0,})+>")
Dim s As String
s = "<input type=""hidden"" name=""locale"" value=""us"">"
If r.IsMatch(s) Then
For Each m As Match In r.Matches(s)
Console.WriteLine(m.ToString)
For j As Integer = 0 To m.Groups(1).Captures.Count - 1
Console.WriteLine(" -" & m.Groups(1).Captures(j).Value)
Console.WriteLine(" -" & m.Groups(2).Captures(j).Value)
Next
Next
End If
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gciBBcyBOZXcgUmVnZXgoIjxpbnB1dFxzezAsfSg/OihuYW1lfHR5cGV8dmFsdWUpPSIiKFteIiJdKykiIlxzezAsfSkrPiIpCgkJRGltIHMgQXMgU3RyaW5nCgkJcyA9ICI8aW5wdXQgdHlwZT0iImhpZGRlbiIiIG5hbWU9IiJsb2NhbGUiIiB2YWx1ZT0iInVzIiI+IgogICAgICAgIElmIHIuSXNNYXRjaChzKSBUaGVuCiAgICAgICAgICAgIEZvciBFYWNoIG0gQXMgTWF0Y2ggSW4gci5NYXRjaGVzKHMpCiAgICAgICAgICAgICAgICBDb25zb2xlLldyaXRlTGluZShtLlRvU3RyaW5nKQogICAgICAgICAgICAgICAJRm9yIGogQXMgSW50ZWdlciA9IDAgVG8gbS5Hcm91cHMoMSkuQ2FwdHVyZXMuQ291bnQgLSAxCiAgICAgICAgICAgICAgICAgICAJQ29uc29sZS5Xcml0ZUxpbmUoIiAtIiAmIG0uR3JvdXBzKDEpLkNhcHR1cmVzKGopLlZhbHVlKQogICAgICAgICAgICAgICAgICAgCUNvbnNvbGUuV3JpdGVMaW5lKCIgLSIgJiBtLkdyb3VwcygyKS5DYXB0dXJlcyhqKS5WYWx1ZSkKICAgICAgICAgICAgICAgIE5leHQKICAgICAgICAgICAgTmV4dAogICAgICAgIEVuZCBJZgoJRW5kIFN1YgpFbmQgQ2xhc3M=