Question

How to extract substring between single quotation marks in VB.NET

Answer 1

Imports System

Public Class ExtractSubstringBetweenSingleQuotationMarks
	Shared Function ExtractSubstring(ByVal str As String) As String
        Dim startPos As Integer = str.IndexOf("'"c)
		
        If startPos <> -1 Then
            Dim endPos As Integer = str.IndexOf("'"c, startPos + 1)
            If endPos <> -1 Then
                Return str.Substring(startPos + 1, endPos - startPos - 1)
            End If
        End If
		
        Return String.Empty
    End Function
	
    Public Shared Sub Main()
		Dim str As String = "VB.NET is a 'multi-paradigm' programming language"
        
		Dim subString As String = ExtractSubstring(str)
		
		Console.WriteLine("'" & subString & "'")
    End Sub
End Class

 
 
' run:
'
' 'multi-paradigm'
'

 

70+ SQL courses for beginners and professionals