Question

How to get substring that start and end with the same character in VB.NET

Answer 1

Imports System
 
Public Class Test
    Shared start As Integer = 0
    Shared end_i As Integer = 0
       
    Public Shared Function char_substr(str As String, ch As Char) 
        Dim len As Integer =  str.Length
 
        For i As Integer = 0 To len - 1
            If (str(i) = ch) Then 
                start = i
            End If
            For  j As Integer = i + 1 To len - 1
                if (str(j) = ch) Then 
                    end_i = j + 1
                    Exit For
                End If
            Next
            If (start <> 0) Then 
                Exit For
            End If 
        Next
    End Function
    
    Public Shared Sub Main()
        Dim str As String = "hgdabcvauyec"
   
        char_substr(str, "a")

        Console.Write(str.Substring(start, end_i - start))
    End Sub
End Class
 
 
' run
 
' abcva

 

70+ SQL courses for beginners and professionals