tkFind
Publicado por Fábio Berbert de Paula 13/11/2002
[ Hits: 5.995 ]
Homepage: https://fabio.automatizando.dev
Este script escrito em Tcl/Tk é uma interface gráfica simples para o comando find.
#!/usr/bin/wish # Programado por Fábio B. de Paula # Substitui o comando de console Linux find . -name "*" -print # Licensa: Freeware # e-mail: fberbert@netflash.com.br wm title . "TkFind - O caçador de arquivos" wm minsize . 300 340 proc procurar {dir procurado} { global cont set arquivo [glob -nocomplain $dir/* ] set tamanho [llength $arquivo] for {set x 0} {$x<$tamanho} {incr x} { if {[file isdirectory [lindex $arquivo $x]]==0} { if {[string first $procurado [lindex $arquivo $x]]>0} { .list1 insert end [lindex $arquivo $x] incr cont } } else { procurar [lindex $arquivo $x] $procurado } } } set cont 0 label .l1 -text "Digite o diretório de partida da pesquisa:" -anchor w entry .e1 -textvar diretorio -width 32 label .l2 -text "Nome do arquivo procurado:" -anchor w entry .e2 -textvar procurado -width 32 button .b1 -text "Pesquisar" -command { global cont .b1 configure -state disabled set cont 0; .list1 delete 0 end procurar $diretorio $procurado set cont [concat $cont " arquivos encontrados"] bell } -width 10 -state disabled button .b2 -text "Limpar" -command { set diretorio "" set procurado "" set cont 0; .list1 delete 0 end focus .e1 } -width 10 -state disabled scrollbar .scroll1 -command ".list1 yview" listbox .list1 -width 30 -height 10 -yscroll ".scroll1 set" -bg #FFFFF0 label .l3 -textvar cont -anchor w bind .e1 <KeyPress> {.b2 configure -state normal} bind .e1 <Return> {focus .e2} bind .e2 <KeyPress> {.b2 configure -state normal; .b1 configure -state normal} bind .e2 <Return> {.b1 invoke} bind . <Activate> {focus .e1} place .l1 -x 1 -y 1 -width 298 place .e1 -x 1 -y 22 -width 298 place .l2 -x 1 -y 44 -width 298 place .e2 -x 1 -y 66 -width 298 place .b1 -x 1 -y 88 -width 149 place .b2 -x 150 -y 88 -width 149 place .list1 -x 1 -y 115 -width 285 -height 205 place .scroll1 -x 285 -y 115 -height 205 place .l3 -x 1 -y 320 -width 298
Corretagem 0.1 - calcula corretagem padrão de operações da Bovespa
param - abre aplicativos com parâmetros no Blackbox e outros
Renomeando arquivos de forma padronizada
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Como colorir os logs do terminal com ccze
Instalação Microsoft Edge no Linux Mint 22
Como configurar posicionamento e movimento de janelas no Lubuntu (Openbox) com atalhos de teclado
Criar perfil temporário no Active Directory samba4-21 (2)
Meu Kubuntu não inicia, além do modo de recuperação (no meu dualboot (1)
Site da gontijo simplesmente não abre, ERR_HTTP2_PRO... (3)