[Resolvido] Website meta tags [Urgente]

[pbreda]

Boas, como é que recupero um ou mais tags meta sem que tenha um controlo de webbrowser?

Cumprimentos....

[Gooden]

Adiciona a referencia system.web e usas isto

Web.HttpUtility.HtmlDecode("î")

[pbreda]

E agora faço o quê com isto? 😉

[Gooden]

o que tu querias não era recuperar caracteres tipo ç etc... que tivessem em meta tags?

então passas ai a frase e ele tira-te os meta tags e mete palavras certas

[pbreda]

Acho que me expliquei mal....peço desculpa.....o que quero é recuperar a descrição de um site....se que tem de ser pelos tags agora sem usar o webbrowser é que é mais complicado e queria saber isso....

[Gooden]

Tas a falar daquelas tags exemplo %20%?

[pbreda]

Imagina que tens o site da google, este tem uma descrição que é colocada uma tag <Meta description="......> </Meta>.....bem o que quero é recuperar o valor do que está dentro da description sem usar o controlo webbrowser....ou seja....por HttpRequest acho que é isso.....

[Gooden]

AHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH

agora entendi xD

tipo isto?

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim wb As New Net.WebClient
        Dim a As String
        a = wb.DownloadString("http://www.vbforums.com")
        Dim b() As String
        b = a.Split("<")
        Dim finalstring As New List(Of String)
        For i As Integer = 0 To b.Length - 1
            If b(i).Length >= 4 Then
                If b(i).Substring(0, 4).ToLower = "meta" Then
                    finalstring.Add(b(i))
                End If
            End If
        Next
        For i As Integer = 0 To finalstring.Count - 1
            If finalstring(i).ToLower.Contains("name=") Then
                MsgBox(Replace(midReturn("name=", " content=", finalstring(i)), """", ""))
                MsgBox(Replace(Replace(Replace(midReturn("content=", "", finalstring(i)), """", ""), "content=", ""), " />", ""))
            End If
        Next
    End Sub
    Public Function midReturn(ByVal first As String, ByVal last As String, ByVal total As String) As String
        Dim f_str As String = ""
        If last.Length < 1 Then
            f_str = total.Substring(total.IndexOf(first))
        End If
        If first.Length < 1 Then
            f_str = total.Substring(0, (total.IndexOf(last)))
        End If
        Try
            f_str = ((total.Substring(total.IndexOf(first), (total.IndexOf(last) - total.IndexOf(first)))).Replace(first, "")).Replace(last, "")
        Catch ArgumentOutOfRangeException As Exception

        End Try
        midReturn = f_str
    End Function
End Class

[pbreda]

Era mesmo isto que queria.....obrigado....

[Gooden]

sem problemas 👍