Para por o nosso computador a ler-nos os sites que queremos, vamos ter algum trabalho de linha de comandos. Como já tinha dito aqui, o Apple tem um sistema de discurso muito melhor que o meu Windows XP lá dos escritório, por isso decidi começar por aqui.

Procurei usar ferramentas livremente disponíveis na Internet para montar esta funcionalidade ou que já se encontrassem no sistema operativo. Tentei escolher de entre as que fossem mais versáteis na linha de comandos de forma a depois criar o evento que de tempos a tempos que  lesse o meu conteúdo. A diferença será na peça final que é a que produz o som. Por enquanto não vamos explorar já a hipótese de usar o Google Translate para este fim.

Os ingredientes são um conjunto de programas, quase todos do projeto GNU:

1. cURL – vai buscar informação aos servidores da internet;
2. sed – transforma o texto na linha de comandos;
3. OSX say – converte o texto escrito em formato falado;
4. espeak – converte o texto escrito em formato falado no Ubuntu.

A receita:

curl https://twitter.com/pouparmelhor | sed -n '/tweet-text/,/stream-item-footer/p' | sed 's/< [^>]*>//g' | sed "s|http[:]//[^ ]*||g" | sed "s|bit.*||g" | sed "s|&nbsp;||g" | sed 's/class="tco-ellipsis">//g' | sed 's/Pouparmelhor.com/Poupar Melhor/g' | sed 's/<[^>]*>//g;s/^[ \t]*//;/^$/d'| while read line ; do echo $line| say ; done


Esta experiência recolhe da página do Poupar Melhor no Twitter o conteúdo com o curl. Encontra no código HTML a informação que se encontra entre tweet-text e stream-item-footer com o sed e usa o mesmo utilitário para corrigir todo o conteúdo, removendo formatação HTML e afinando outros detalhes.

O resultado é a voz da Apple a contar-nos o que se passa no Poupar Melhor sem termos de olhar para lá.

Para repetir a proeza no Ubuntu basta substituir o comando say pelo comando speak e usar a instrução -vpt-pt para ele falar em português. Bem… Mais ou menos. A receita fica abaixo:

curl https://twitter.com/pouparmelhor | sed -n '/tweet-text/,/stream-item-footer/p' | sed 's/< [^>]*>//g' | sed "s|http[:]//[^ ]*||g" | sed "s|bit.*||g" | sed "s|&nbsp;||g" | sed 's/class="tco-ellipsis">//g' | sed 's/Pouparmelhor.com/Poupar Melhor/g' | sed 's/<[^>]*>//g;s/^[ \t]*//;/^$/d'| while read line ; do echo $line| espeak -vpt-pt ; done

A voz do espeak é muito robotizada, tal como a que podem ouvir no Excel a imitar um robot num Windows XP. Embora os utilizadores do Windows também possam usar os utilitários cURL e sed, parece-me que o acesso ao sintetizador de texto para voz está excluído das opções por defeito na linha de comandos.

Desde que decidi que havia de conseguir pôr o Raspberry Pi a falar que ando a tentar que qualquer computador leia o que se escreve no Twitter. Excel a falar o que está no Twitter foi mais uma aproximação. Gostava que a solução pudesse ser executada em qualquer sistema operativo, mas o Excel a falar não é a melhor solução.

Encontrei alguém que já tinha tido a mesma ideia que eu e criou um script que permite ultrapassar as limitações do Google Translate para que devolva a leitura de textos com mais de 100 caracteres e ando a tentar uma solução com base nestas facilidades.

Enquanto trabalhava na solução, encontrei algumas coisas que poderão facilitar a vida a quem tem muito que fazer, mas continua a querer a ler tudo.

O OSX tem uma solução muito simples para quem gosta de adaptar os computadores às suas necessidades. O OSX tem o comando say. Para o usar é só abrir o Terminal e escrever  o comando say seguido do texto que queremos que ele leia:

say Eu leio o Poupar Melhor.

Se ainda não tiverem a voz da Joana para ler o vosso comando say, sigam as instruções do The Unofficial Apple Weblog para adicionarem a voz portuguesa.

O Apple OSX tem também uma solução rápida para gerarmos um ficheiro de som a partir de qualquer texto. A explicação está no vídeo. Depois de gerado o som é só ouvir como se de uma música se tratasse.

Twitter

Já falámos várias vezes aqui sobre fazermos mais de uma tarefa ao mesmo tempo. Algumas das coisas que podemos fazer incluem ouvir um Podcast, mas nenhuma incluía uma forma de ler o Twitter e trabalhar ao mesmo tempo. Aqui em casa já tive o Raspberry Pi a dizer os últimos 10 twitts de cada hora, mas com alguns defeitos, nomeadamente as crianças que se queixavam de cada vez que a caixa falava.

Outro dia decidi procurar como fazê-lo no Windows para ver no que dava. Queria apenas uma prova de conceito de que era possível. Algo que se implementasse em 30 minutos ou menos. O que tinha à mão na altura era o Excel e deu no que conto aqui.

O código está mesmo feito à bruta, mas quem quiser pode juntar-lhe um ciclo For ... Next e recolher o limite do valor numa célula.

Coloquem os URL de cada conta Twitter que querem ler numa mesma coluna do Excel, por exemplo https://twitter.com/pouparmelhor. Reservem a primeira linha para escreverem “Link” no topo de coluna. Nas novas versões de Excel vão ter de gravar com0 .xlsm e autorizar a execução de macros para poder executar o código que mostro mais abaixo.

Para inserirem o código na vossa folha de Excel, carreguem nas teclas ALT + F11. Isto vai fazer aparecer o editor de VBA (Visual Basic for Applications) do Excel e vai mostrar-vos as folhas/planilhas/sheet do Workbook. O código tem de ser inserido onde têm a coluna com os URL.

Para tudo funcionar vão ter também de juntar nas opções do Excel as funcionalidades do Internet Explorer. Isto faz-se acrescentado a referência no editor de VBA a partir do menu.

Inserir referências

Escolham na lista de referências o Microsoft Internet Controls e o Microsoft HTML Object Library.

Microsoft Internet Controls e Microsoft HTML Object Library

Selecionem a Sheet/Folha onde têm a coluna Link e passem para lá o código que se encontra abaixo.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim IE As Object
If Cells(1, Target.Column) = "Link" Then
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.navigate ActiveCell.Value
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim Pagina As HTMLDocument
Set Pagina = IE.document
Dim Twitt As String
Twitt = "1. " & Pagina.getElementsByTagName("p")(6).innerText & vbCr & vbLf
Twitt = Twitt & "2. " & Pagina.getElementsByTagName("p")(7).innerText & vbCr & vbLf
Twitt = Twitt & "3. " & Pagina.getElementsByTagName("p")(8).innerText & vbCr & vbLf
Twitt = Twitt & "4. " & Pagina.getElementsByTagName("p")(9).innerText & vbCr & vbLf
Twitt = Twitt & "5. " & Pagina.getElementsByTagName("p")(10).innerText & vbCr & vbLf
Twitt = Twitt & "6. " & Pagina.getElementsByTagName("p")(11).innerText & vbCr & vbLf
Twitt = Twitt & "7. " & Pagina.getElementsByTagName("p")(12).innerText & vbCr & vbLf
Twitt = Twitt & "8. " & Pagina.getElementsByTagName("p")(13).innerText & vbCr & vbLf
Twitt = Twitt & "9. " & Pagina.getElementsByTagName("p")(14).innerText & vbCr & vbLf
Twitt = Twitt & "10. " & Pagina.getElementsByTagName("p")(15).innerText & vbCr & vbLf
Application.Speech.Speak Twitt
IE.Quit
End If
End Sub

De cada vez que mudarem de célula na coluna Link o Excel vai abrir o Internet Explorer, juntar 10 Twitts e lê-los em voz alta. Infelizmente o Windows XP usa um sistema de conversão para voz que é, como é que hei-de dizer… antigo.

Se experimentarem o Google Translate vão ver que a qualidade do som é muito superior. Vou tentar explorar esta qualidade para o mesmo objetivo.