• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

pbreda

[Resolvido] Website meta tags [Urgente]

10 mensagens neste tópico

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

Cumprimentos....

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Adiciona a referencia system.web e usas isto

Web.HttpUtility.HtmlDecode("î")

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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....

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.....

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora