Imports System
Imports System.Collections.Generic
Imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim values As String = "output1: unshared" & Chr(10) & "owner: unknown" & Chr(10) & "public: EU" & Chr(10) & "scope: this" & Chr(10) & "value type: string" & Chr(10) & "enum values: ""----- / ASIL C"", ""SIL 0 / QM"", ""SIL 1 / ASIL A"", ""SIL 2 / ASIL B"", ""SIL 3 / ASIL D"""
Dim pattern As String = "(?<=enum values:.*?"")[^""]*(?=""(?![^,]))" 'finding the right data line
Dim matches As MatchCollection = Regex.Matches(values, pattern) ' REPLACED Match WITH Matches
Dim retVal As New List(Of String)
For Each match As Match In matches
retVal.Add(Regex.Replace(match.Value, "[^A-Za-z0-9]+", ""))
Next
' Just to print
For Each s As String In retVal
Console.WriteLine(s)
Next
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uQ29sbGVjdGlvbnMuR2VuZXJpYwpJbXBvcnRzIFN5c3RlbS5UZXh0LlJlZ3VsYXJFeHByZXNzaW9ucwoKUHVibGljIENsYXNzIFRlc3QKCVB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKSAKCQlEaW0gdmFsdWVzIEFzIFN0cmluZyA9ICJvdXRwdXQxOiB1bnNoYXJlZCIgJiBDaHIoMTApICYgIm93bmVyOiB1bmtub3duIiAmIENocigxMCkgJiAicHVibGljOiBFVSIgJiBDaHIoMTApICYgInNjb3BlOiB0aGlzIiAmIENocigxMCkgJiAidmFsdWUgdHlwZTogc3RyaW5nIiAmIENocigxMCkgJiAiZW51bSB2YWx1ZXM6ICIiLS0tLS0gLyBBU0lMIEMiIiwgIiJTSUwgMCAvIFFNIiIsICIiU0lMIDEgLyBBU0lMIEEiIiwgIiJTSUwgMiAvIEFTSUwgQiIiLCAiIlNJTCAzIC8gQVNJTCBEIiIiCgogICAgICAgIERpbSBwYXR0ZXJuIEFzIFN0cmluZyA9ICIoPzw9ZW51bSB2YWx1ZXM6Lio/IiIpW14iIl0qKD89IiIoPyFbXixdKSkiICdmaW5kaW5nIHRoZSByaWdodCBkYXRhIGxpbmUKICAgICAgICBEaW0gbWF0Y2hlcyBBcyBNYXRjaENvbGxlY3Rpb24gPSBSZWdleC5NYXRjaGVzKHZhbHVlcywgcGF0dGVybikgJyBSRVBMQUNFRCBNYXRjaCBXSVRIIE1hdGNoZXMKICAgICAgICBEaW0gcmV0VmFsIEFzIE5ldyBMaXN0KE9mIFN0cmluZykKICAgICAgICAKICAgICAgICBGb3IgRWFjaCBtYXRjaCBBcyBNYXRjaCBJbiBtYXRjaGVzCiAgICAgICAgICAgIHJldFZhbC5BZGQoUmVnZXguUmVwbGFjZShtYXRjaC5WYWx1ZSwgIlteQS1aYS16MC05XSsiLCAiIikpCiAgICAgICAgTmV4dAoJCQoJCScgSnVzdCB0byBwcmludAoJCUZvciBFYWNoIHMgQXMgU3RyaW5nIEluIHJldFZhbAoJCQlDb25zb2xlLldyaXRlTGluZShzKQoJCU5leHQKCUVuZCBTdWIKRW5kIENsYXNz