Dicionários

Compartilhe seus scripts, funções, ferramentas e programas

Moderator: Gio

Post Reply
BeneditoCarneiro
Posts: 13
Joined: 04 Jul 2023, 11:29

Dicionários

Post by BeneditoCarneiro » 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

Post Reply

Return to “Scripts e Funções”