tkFind

Publicado por Fábio Berbert de Paula 13/11/2002

[ Hits: 5.948 ]

Homepage: https://fabio.automatizando.dev

Download tkfind.zip




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: 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

Scripts recomendados

Calculadora com funções básicas

Cadeias aleatórias

Relógio analógico

Script lixeira em Tcl

param - abre aplicativos com parâmetros no Blackbox e outros


  

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




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts