Este script escrito em Tcl/Tk é uma interface gráfica simples para o comando find.

  



Esconder código-fonte

#!/usr/bin/wish
# Programado por Fábio B. de Paula
# Substitui o comando de console Linux find . -name "*" -print
# Licensa: Freeware
# e-mail: [email protected]

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

Scripts recomendados

Script em Tcl para descompactar arquivos

Corretagem 0.1 - calcula corretagem padrão de operações da Bovespa

O mundo do Polinômio

Crivo de Eratóstenes Simples em Tcl (sem Tk)

Script em Tcl para descompactar arquivos


  

Comentários
[1] Comentário enviado por mbmaciel em 01/08/2003 - 00:50h

Adorei o script !!
Estava pensando em iniciar na programação em linux... acho que vou começar pelo tk


Contribuir com comentário