Últimas Notícias (Rodapé Automático)

    Olá pessoal,


    Vi uma dúvida no grupo do Whats Up e achei interessante montar algo que mostra que nem sempre uma extensão ou macro é a solução.

     

    Como já é conhecido, evito usar macros e extensões por razões de segurança e continuidade da solução, pois acredito que enquanto a funcionalidade nativa estiver disponível, tudo funcionará, já extensões e macros, podem deixar de funcionar com mais facilidade.

     

    Grande abraço.

     

    Para quem usa Personal Edition, segue script:

    /*    Curitiba, 3 de maio de 2017

        Desenvolvido por Aderlan Rodrigues    */

     

    // Cálculo usado no Set Analysis para alternar as mensagens automaticamente

    SET vExibirMsg = '=(Mod(Ceil(Second(Now())/(60/Count({1} ID))),Count({1} ID))+1)';

     

    [Últimas Notícias]:

    LOAD RowNo() as ID, // Identificador da mensagem que será usado no Set Analysis

        HTML, // Código da página para conferencia

        TextBetween(HTML,'class="feed-post-header-chapeu">','<') as Local, // Parte da página onde fica o local da notícia

        Num(KeepChar(TextBetween(HTML,'class="feed-post-time-label">','<'),'0123456789')) as [Há X min], // Tempo desde que a notícia foi publicada

        TextBetween(HTML,'class="feed-post-body-title gui-color-primary gui-color-hover">','<') as Título, // Título da notícia usado no objeto texto

        TextBetween(HTML&'<','class="feed-post-body-resumo">','<') as Resumo, // Pequeno resumo da notícia usado no objeto texto

        TextBetween(HTML,'href="','"') as Fonte // Link que será configurado na ação do objeto texto para abrir a notícia

    Where HTML like '*feed-post-header with-post-chapeu*'; // Mantém apenas as tag com essa classe do CSS

    LOAD Trim(SubField(PurgeChar([@1:n],Chr(9)&Chr(11)&Chr(10)&Chr(13)),'<div class="feed-text-wrapper">')) as HTML // Separa o código da páginas em linhas que contém essa DIV

    FROM [http://g1.globo.com/ultimas-noticias.html]

    (fix, utf8, no labels);


    Objeto Texto (Título):

    =Only({1<ID={$(vExibirMsg)}>} Título)

     

    Objeto Texto (Corpo):

    =Only({1<ID={$(vExibirMsg)}>} Local)&

    ' - há '&Interval(Now()-ReloadTime()+MakeTime(0,Only({1<ID={$(vExibirMsg)}>} [Há X min])),'m')&' min

     

    '&Only({1<ID={$(vExibirMsg)}>} Resumo)

     

    2017-05-03.png

    * se clicar no objeto texto abre a notícia.