Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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)
* se clicar no objeto texto abre a notícia. 
