EndsWith method. : String Find « Data Type « VB.Net Tutorial

1. VB.Net Tutorial
2. Data Type
3. String Find

Imports System

Public Class EndsWithTest

    Public Shared Sub Main()
        Dim strSource As String() = { "<b>This is bold text</b>","wrong>"}

        Dim s As String
        For Each s In  strSource
            Console.WriteLine(StripEndTags(s))
        Next s
    End Sub
    Private Shared Function StripEndTags(item As String) As String
        If item.Trim().EndsWith(">") Then
            Dim lastLocation As Integer = item.LastIndexOf("</")
            If lastLocation >= 0 Then
                item = item.Substring(0, lastLocation)
            End If
        End If
    Return Item
    End Function
End Class