| |
Nuevas |
Páginas cambiadas o recientemente agregadas
|
| []
[ ] |
|
|
| 91 |
Problemas de sustitucion con regsub |
Haciendo PaGEN, el sistema que automáticamente genera estas páginas, me
encontré con que regsub,
el comando de sustitución en Tcl falla cuando en la cadena que se quiere realizar la operación
se encuentr aun caracter &.
Nachoman pregunto esto en el foro de
noticias comp.lang.tcl. La respuesta llego de
Glen Jackman de Nortel Networks.
En realidad es muy sencillo: lo unico que
hay que hacer es usar string map en vez de regsub.
El ejemplo es como sigue
% set linea "La empresa ALFA, S.A. esta en quiebra"
La empresa ALFA, S.A. esta en quiebra
% set subst "S.A."S.A.
% set nueva " & co."
& co.
% regsub -all -- $subst $linea $nueva cadena
1
% puts $cadena
La empresa ALFA, S.A. co. esta en quiebra
Evidentemente, eso está equivocado. Pero usando string map se obtiene el resultado correcto:
% set linea "La empresa ALFA, S.A. esta en quiebra"
La empresa ALFA, S.A. esta en quiebra
% set subst "S.A."
S.A.
% set nueva " & co."
& co.
% set cadena [ string map [ list "$subst" "$nueva" ] $linea ]
La empresa ALFA, & co. esta en quiebra
|
| [21/10/2001 18:55]
[ ] |
|
| 133 |
Mantener una ventana siempre activa |
A veces, es absolutamente necesario que una ventana hecha en Tcl/Tk se
muestre siempre ( no se pueda esconder por las demas) . Esto puede deberse
a un proceso que debe terminarse antes que el usuario haga otras cosas.
Hay varios ejemplos de esto:
|
| [20/Sept/2000]
[ ] |
|
| 134 |
Quitar tags HTML de una página |
Hace tiempo escribí un script en Tcl que bajaba una página de Internet, pero solo eran necesarios los datos, sin los códigos
HTML (tags). Las siguientes son las líneas de código en Tcl que remueven dichos tags
# hay que cargar todo la página en la variable "data"
regsub -all {<[^>]*>} $data {} data
regsub -all { } $data { } data
regsub -all {[ ]+} $data { } data
regsub -all {[
]+} $data
data
set data [string trim $data]
Gracias a Josef Heid por haberme pasado estas líneas en el foro de
discusión comp.lang.tcl.
|
| [22/10/2001 09:16]
[ ] |
|
| 257 |
Trucos de Tcl |
Debido a ciertas características de Tcl, a veces resulta complicado o engañoso llevar a cabo ciertas operaciones.
Las siguientes son algunos trucos que he coleccionado :
|
| [07/02/2002 22:35]
[ ] |
|
|
Página principal | Programación | Fragmentos de Tcl 
