Estoy ojeando el código de YouTube Fisher, y la verdad es que me gusta.
Estoy traduciendo la funcion de obtener el título del video. Pero tengo un problema a la hora de utilizar la funcion
HttpUtility.HtmlEncode. Parece ser como que no la encuentra. Y sí, tengo el
Imports System.Web.
Por lo que he buscado, realmente debería funcionar, pero no se.
El código de la función en cuestión sería el siguiente:
Try
Dim ini As Integer = videoPageHtmlSource.IndexOf("<title>", StringComparison.CurrentCultureIgnoreCase)
Dim fin As Integer = videoPageHtmlSource.IndexOf("</title>", ini, StringComparison.CurrentCultureIgnoreCase)
If ini < 0 Or fin < 0 Then
MsgBox("La pagina no contiene tag de título")
Else
videoTitle = videoPageHtmlSource.Substring(ini + 7, fin - ini - 7)
'No me reconoce la linea de abajo. Me la marca como error
videoTitle = System.Web.HttpUtility.HtmlEncode(videoTitle)
videoTitle = System.Text.RegularExpressions.Regex.Replace(videoTitle, "[^\w\.@\[\]\\/()&%' #{}€$£!=-]", String.Empty)
videoTitle = videoTitle.Replace("\\", "-").Replace("/", "-").Trim()
If (videoTitle.StartsWith("Youtube", StringComparison.CurrentCultureIgnoreCase)) Then
videoTitle = videoTitle.Substring(7).Trim(" -*".ToCharArray())
End If
End If
Catch ex As Exception
videoTitle = ""
End Try