Extraer nombre de la página de un URL vb.net / get page name from url

Muchas veces necesitamos extraer el nombre de una página de una dirección URL, normalmente obtenida por:

Dim sPagina = Request.RawUrl  ‘sPagina queda con http://192.168.0.1/cuentas/admin.aspx

Para extraer el nombre admin.aspx podemos usar una función:

sPagina = ObtenerNombrePagina(sPagina) ‘sPagina queda como admin.aspx

Y esta es la función:

Public Shared Function ObtenerNombrePagina(ByVal PageUrl As String) As String

Dim index As Integer, endindex As Integer

Dim NombrePagina As String = “”

index = PageUrl.LastIndexOf(“/”) ‘Encontrar el ultimo / para determinar donde inicia el nombre

index += 1

endindex = PageUrl.LastIndexOf(“?”)

If (endindex = -1) Then ‘No hay parametros se toma todo el tamaño de la cadena

endindex = PageUrl.Length

End If

NombrePagina = PageUrl.Substring(index, (endindex – index))

Return NombrePagina

End Function