Tag Archives: Tcl-Tk

Tcl/Tk: Usar o valor do número Pi

Não existe comando nativo em Tcl/Tk que retorne o valor de Pi. Mas o valor de Pi está disponível em muitos lugares, logo é fácil registrar seu valor numa variável ou num procedimento e usá-lo sempre que quiser. Numa variável: … Continue reading

Posted in Tcl-Tk | Tagged , , , , , , , | Leave a comment

Tcl/Tk: Ler o conteúdo de um arquivo (texto)

Para ler/extrair todo o conteúdo de um arquivo de texto, basta: criar um ponteiro para abrir o arquivo; ler o conteúdo *do ponteiro* com o parâmetro “r” (read); fechar o arquivo por meio do ponteiro; imprimir o conteúdo na tela … Continue reading

Posted in Tcl-Tk | Tagged , , , , , , , | Leave a comment

Tcl/Tk: Configurar o encoding de scripts

Para determinar qual encoding seu script deve rodar, use na primeira linha: encoding system [tabela] Exemplo: encoding system utf-8 Para listar as tabelas disponíveis: encoding names Exemplo de listagem: foreach i [encoding names] { puts “A tabela $i está disponível … Continue reading

Posted in Tcl-Tk | Tagged , , , , | Leave a comment

Tcl/Tk: Obter chaves e valores de um array set

Com o comando: array set minha_var { chave {valor} chave2 {valor2} } Criamos uma array com diversas chaves e valores. Exemplo: array set produtos { } set produtos(nome) { Banana Caturra } puts $produtos(nome) # Retorna: Banana Caturra Para listar … Continue reading

Posted in Tcl-Tk | Tagged , , , , , , | 1 Comment

Tcl/Tk: Substituir strings

Para manipular Strings em Tcl, utilizamos o comando string. Se precisar substituir ponto por vírgula: set valor { 10.00 } puts [string map -nocase { . , } $valor] # Retorna: 10,00 Podemos substituir várias cadeias de caracteres: set texto … Continue reading

Posted in Tcl-Tk | Tagged , , , | Leave a comment

Tcl/Tk: Carregando scripts em lote (bibliotecas)

E possível destinar um diretório para nossos códigos auxiliares ou plugins, e na inicialização do sistema importá-los, utilizando o comando source. Por exemplo, considerando que há vários arquivos .tcl no diretório plugin/ foreach p “[glob plugin/*.tcl]” { source $p }

Posted in Tcl-Tk | Tagged , , , , , , | Leave a comment