Herramientas y tecnologías utilizadas:
- ASP.NET 3.5
- VB.NET
Descripción de la función ObtenerIdYoutube
Esta es una sencilla función que devuelve el identificador de un video youtube a partir de su URL. Si la URL no es válida, o es incorrecta, devuelve una cadena vacía.Private Function ObtenerIdYoutube(ByVal strURL As String) As String
'La URL debe contener al menos 42 caracteres.
If strURL.Length >= 42 Then
Dim idVideo As String
'Quitamos espacios en blanco al principio y al final.
strURL = Trim(strURL)
'Comprobamos el inicio de la cadena.
'Debe comenzar por: http://www.youtube.com/watch?v.
Dim posicion As Integer
posicion = InStr(strURL, "http://www.youtube.com/watch?v=")
'Si encontramos la cadena seguimos.
If posicion = 1 Then
'Eliminamos todo lo que está antes del ID.
idVideo = Replace(strURL, "http://www.youtube.com/watch?v=", "")
'Quitamos todo lo que está después.
idVideo = idVideo.Substring(0, 11)
'Comprobamos que el valor concuerda.
If idVideo <> "" Then
If idVideo.Length = 11 Then
Return idVideo
Else
'Debe tener 11 caracteres
Return ""
End If
Else
'no puede estar vacío
Return ""
End If
Else
'No comienza por
Return ""
End If
Else
'Una cadena demesiado pequeña para ser válida
Return ""
End If
End Function
