tkFind
Publicado por Fábio Berbert de Paula 13/11/2002
[ Hits: 6.108 ]
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
Calculadora com funções básicas
Crivo de Eratóstenes Simples em Tcl (sem Tk)
Script em Tcl para descompactar arquivos
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Realizar overclock no Miyoo Mini (plus ou normal)
Otimização de memória para máquinas modestas
Direcionar uma URL para Outra No Mikrotik (0)
linux mint reconhece microfone de lapela como fone de ouvido sem micro... (1)