Imports System
Imports System.Collections.Generic
Imports System.Text.RegularExpressions
Public Class ExtractAllSubstringsBetweenSingleQuotationMarks
Private Shared Function ExtractSubstrings(ByVal s As String) As List(Of String)
Dim pattern As String = "'(.*?)'"
Dim matches As MatchCollection = Regex.Matches(s, pattern)
Dim substrings As List(Of String) = New List(Of String)()
For Each match As Match In matches
substrings.Add(match.Groups(1).Value)
Next
If substrings.Count = 0 Then
Return New List(Of String)()
End If
Return substrings
End Function
Public Shared Sub Main()
Dim s As String = "VB.NET is a 'object-oriented' 'high-level' 'programming language'"
Dim result As List(Of String) = ExtractSubstrings(s)
Console.WriteLine(String.Join(", ", result))
End Sub
End Class
' run:
'
' object-oriented, high-level, programming language
'
