Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

Sir Pereira

Obter título de Feeds

Mensagens Recomendadas

Sir Pereira    3
Sir Pereira

Boas,

o meu professor precisa que eu lhe faça um pequeno programinha que vá buscar diariamente os títulos por exemplo dos últimos 5 posts a uma feed com notícas de música, e que pusesse cada título separado por nova linha num ficheiro de texto simples.

Tenho dois problemas:

1º - Tenho que encontrar um blog ou coisa do género com notícias de música.

2º - Tenho de retirar o título. Penso que não seja muito difícil, mas até agora só encontrei exemplos para XML, e não era isso que eu queria.

Sugestões?

Pode parecer perguiça mas não é  :bored:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Sir Pereira    3
Sir Pereira

sim, só música e cantores... e cantoras...

Sabes a tag que é utilizada no blog? Precisava disso =x

EDIT: Esquece lá isso. Já está quase pronto.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Sir Pereira    3
Sir Pereira

isto que é capaz de te ajudar a perceber porquê que precisas de algo que lê XML. Presta especial atenção a esta parte.

@anolsi: eu apenas estou a cumprir os requisitos do meu professor :thumbsup:

Ele primeiro disse-me um ficheiro XML, mas depois pediu-me um simples ficheiro de texto, pois a finalidade disto será, a passagem de notícias de forma automática na televisão da escola, da qual ele é o responsável, tendo feito toda a sua programação, e sendo o único elemento da administração.

Bom, acho que já tenho praticamente tudo pronto, sem ser um pequeno incómodo que é:

Aparece-me a palavra "BLITZ" no início (do ficheiro de texto) que vem com a Feed, não dá para tirar? (resolvido)

Outra coisa que também me aparece são aqueles quadrados (de carácteres vazios, como o vbCrLf), isso não dá para tirar no ficheiro? Por exemplo, queria que os títulos estivesse um por cada linha, mas queria que não aparecessem os quadrados...

Cumprimentos

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
anolsi    16
anolsi

Estás a abrir com o bloco de notas?

Se sim, é simplesmente por causa disso.

Quanto ao resto, aquilo servia para leres o feed, e não para escreveres, como dizias isto:

Boas,

o meu professor precisa que eu lhe faça um pequeno programinha que vá buscar diariamente os títulos por exemplo dos últimos 5 posts a uma feed com notícas de música, e que pusesse cada título separado por nova linha num ficheiro de texto simples.

2º - Tenho de retirar o título. Penso que não seja muito difícil, mas até agora só encontrei exemplos para XML, e não era isso que eu queria.

Pensei que precisasses.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Sir Pereira    3
Sir Pereira

Estás a abrir com o bloco de notas?

Se sim, é simplesmente por causa disso.

Quanto ao resto, aquilo servia para leres o feed, e não para escreveres, como dizias isto:Pensei que precisasses.

Sim estou a abrir com o bloco de notas, então como faço para não aparecerem os carácteres? Apenas uma 'normal' mudança de linha?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
anolsi    16
anolsi

Se eu não estou em erro o que acontece é que o denominado vbNewLine é composto por dois caracteres . E creio que o bloco de notas apenas interpreta um (antigamente só era utilizado um). Experimenta abrir com o OpenOffice ou o Word e vê se aparece alguma coisa.

Já agora o isso é uma mudança de linha normal :thumbsup:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Sir Pereira    3
Sir Pereira

Sir Pereira,

Mostra lá o código ao pessoal!

Boas.

        Dim rss As New Chilkat.Rss()

        Dim success As Boolean
        success = rss.DownloadRss("http://blitz.aeiou.pt/gen.pl?p=rss")
        If (success <> True) Then
            MsgBox(rss.LastErrorText)
            Exit Sub
        End If

        Dim rssChannel As Chilkat.Rss

        rssChannel = rss.GetChannel(0)
        If (rssChannel Is Nothing) Then
            MsgBox("Não foram encontrados canais no Feed.")
            Exit Sub
        End If

        Dim numItems As Long
        numItems = rssChannel.NumItems
        Dim i As Long

        For i = 0 To numItems - 1
            Dim rssItem As Chilkat.Rss
            rssItem = rssChannel.GetItem(i)
            RichTextBox1.Text = RichTextBox1.Text & rssItem.GetString("title")
        Next

        Dim swriter As New StreamWriter(Application.StartupPath & "/noticias-musica.txt", False)
        swriter.WriteLine(RichTextBox1.Text)
        swriter.Close()

Já tentei também com uma TextBox1, mas pelo que percebi não há diferença nas linhas.

Cumps

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


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade