Dicionários
Posted: 06 Jul 2023, 11:57
Dicionários é um programa para pesquisar em 13 dicionários online gratuitos.
Code: Select all
#NoEnv
#SingleInstance, Force
SendMode, Input
SetBatchLines, -1
SetWorkingDir, %A_ScriptDir%
bc := Chr(0169) " 2023 Benedito Carneiro"
Gui, Color, 003366
Gui, Font, s13 cYellow, Segoe UI
Gui, Add, Text,, Pesquise em dicionários
Gui, Font, cWhite
Gui, Add, Text,, Escrever o argumento de pesquisa
Gui, Font, cBlack
Gui, Add, Edit, w250 vPesq1
Gui, Font, cWhite
Gui, Add, Text,, Escolher o dicionário
Gui, Font, cBlack
Gui, Add, ListBox, r13 vSelect gSelect, Antônimos|Aulete|Criativo|Dício|inFormal|Significados|Sinônimos|Verbos|Analógico|Britannica|Merriam-Webster|Michaelis|Priberam
Gui, Add, Text,,
Gui, Add, Button, h30 w80 gSair, Sair
Gui, Font, cYellow
Gui, Add, Text,, %bc%
Gui, Show,,Dicionários
return
Select:
Gui, Submit, NoHide
Pesq2 := TiraAcentos(Pesq1)
Pesq1 := RegExReplace(Pesq1," ","%20")
Pesq2 := RegExReplace(Pesq2," ","%20")
Switch, %A_GuiControl%
{
case "Antônimos" : Run, https://www.antonimos.com.br/%Pesq1%
case "Aulete" : Run, https://www.aulete.com.br/%Pesq1%
case "Criativo" : Run, https://dicionariocriativo.com.br/%Pesq1%
case "Dício" : Run, https://www.dicio.com.br/%Pesq2%
case "inFormal" : Run, https://www.dicionarioinformal.com.br/%Pesq1%
case "Significados" : Run, https://www.significados.com.br/?s=%Pesq1%
case "Sinônimos" : Run, https://www.sinonimos.com.br/%Pesq2%
case "Verbos" : Run, https://www.conjugacao.com.br/verbo-%Pesq2%/
case "Analógico" : Run, https://www.aulete.com.br/analogico/%Pesq1%
case "Britannica" : Run, https://www.britannica.com/dictionary/%Pesq1%
case "Merriam-Webster" : Run, https://www.merriam-webster.com/dictionary/%Pesq1%
case "Michaelis" : Run, https://michaelis.uol.com.br/busca?r=0&f=0&t=0&palavra=%Pesq1%
case "Priberam" : Run, https://dicionario.priberam.org/%Pesq1%
}
GuiControl,, Select, |Antônimos|Aulete|Criativo|Dício|inFormal|Significados|Sinônimos|Verbos|Analógico|Britannica|Merriam-Webster|Michaelis|Priberam
Return
TiraAcentos(kyw){
kyw := RegExReplace(kyw,"i)\bá\b","a")
kyw := RegExReplace(kyw,"i)\bé\b","e")
kyw := RegExReplace(kyw,"i)\bí\b","i")
kyw := RegExReplace(kyw,"i)\bó\b","o")
kyw := RegExReplace(kyw,"i)\bú\b","u")
kyw := RegExReplace(kyw,"i)\bã\b","a")
kyw := RegExReplace(kyw,"i)\bõ\b","o")
kyw := RegExReplace(kyw,"i)\bç\b","c")
kyw := RegExReplace(kyw,"i)\bà\b","a")
kyw := RegExReplace(kyw,"i)\bè\b","e")
kyw := RegExReplace(kyw,"i)\bì\b","i")
kyw := RegExReplace(kyw,"i)\bò\b","o")
kyw := RegExReplace(kyw,"i)\bù\b","u")
kyw := RegExReplace(kyw,"i)\bâ\b","a")
kyw := RegExReplace(kyw,"i)\bê\b","e")
kyw := RegExReplace(kyw,"i)\bî\b","i")
kyw := RegExReplace(kyw,"i)\bô\b","o")
kyw := RegExReplace(kyw,"i)\bû\b","u")
return kyw
}
GuiEscape:
GuiClose:
Sair:
Gui,destroy
ExitApp