Widgetbox: Creando tus propios widgets

Hace algún tiempo tenia la intención de crear una pequeño lector de feed en flash, por múltiples circunstancias (en especial pereza) lo fui posponiendo hasta olvidarme por completo de ello. Sin embargo justo en esta semana me encontré con lo que antes había buscado, una aplicación en linea que permite hacer exactamente lo que quería sin complicaciones adicionales (para que programa si ya esta hecho :P ).

Se trata de Widgetbox una web que permite eso y mucho más. Básicamente tu seleccionas el tipo de widget que deseas por ejemplo un feed o un archivo en flash entre otras cosas, es posible personalizar la apariencia, al final nos devolverá el código necesario para insertarlo en nuestro facebook, hi5, o web personal.

Como ejemplo les dejo el widget creado por este pinguino ahh y si gustan pueden promocionarme yo no me enojare :P

<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"
codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,0,0"
type="application/x-shockwave-flash" width="400px" height="343px"
id="InsertWidget_8fe2ff89-7691-4d01-812b-0b5854c33683" align="middle">
<param name="movie" value="http://widgetserver.com/syndication/flash/wrapper/InsertWidget.swf"/>
<param name="quality" value="high" /><param name="wmode" value="transparent" />
<param name="menu" value="false" /><param name="flashvars"
value="r=2&appId=8fe2ff89-7691-4d01-812b-0b5854c33683" />
<embed src="http://widgetserver.com/syndication/flash/wrapper/InsertWidget.swf"
name="InsertWidget_8fe2ff89-7691-4d01-812b-0b5854c33683"  width="400px" height="343px"
quality="high" menu="false" pluginspage="http://www.macromedia.com/go/getflashplayer"
type="application/x-shockwave-flash" wmode="transparent" align="middle"
flashvars="r=2&appId=8fe2ff89-7691-4d01-812b-0b5854c33683" /></object>

Post's relacionados...

  • Lo Siento No Hay Post's Relacionados U_U

Una macro para hipervinculos

Siempre he creído que una de las características natas de mi persona por la cual siempre termino aprendiendo habilidades inusuales es mi pereza, la falta de ganas de hacer una tarea repetitiva una y otra vez y es que por que hacer una tarea miles de veces si puedes hacer una actividad UNA solo vez y ya (aunque sea más difícil). Esto ha provocado que constantemente busque como realizar diferentes tareas de la manera más simple posible y al mismo tiempo (después de verme) muchos de mis amigos me consulten sobre como realizar diferentes tareas (algunas que la verdad jamas hubiera imaginado siquiera).

Justo hace unos días uno de mis amigos me pidió ayuda para obtener las direcciones de correo de una tabla de excel, no es que sea tonto ni nada similar, sino que los correos electrónicos venían en celdas con hipervinculos, es decir la celda traía un hipervinculo de correo electrónico pero no la dirección, se podría cambiar “fácilmente” dando clic derecho sobre la celda y después modificar hipervinculo sin embargo el numero de registros era enorme y seria muuuy tardado, por lo cual se me ocurrió realizar una pequeña macro que nos ahorrara mucha chamba (insisto, soy huevon).

Nunca antes me había visto en la necesidad de crear una macro pero ya que a fin de cuentas están basada en visual basic no pensé que fuera tan difícil y la verdad no lo fue, de hecho lo único tardado fue encontrar los métodos adecuados para realizar esta tarea (que esperaban es la primera vez que hago una).

La macro resultante es la siguiente:

Sub Macro()
Dim celda As String
Dim link As String
Dim n As Integer
For n = 1 To 1168' bucle que hara lo mismo desde la celda E1 hasta la celda E1168
    celda = "E" & n
    Range(celda).Select
    If ActiveCell.Hyperlinks.Count > 0 Then' nos aseguramos de que tenga hipervinculo
       Selection.Hyperlinks(1).TextToDisplay = Selection.Hyperlinks(1).Address' si tiene hipervinculo lo mostramos
    End If
Next
End Sub

No tengo idea de si esta macro puede servirle a alguien pero de cualquier manera quería compartirla, seguramente habrá una manera más fácil de hacerlo pero insisto es mi primera vez, así que no sean muy rudos :P

Actualización 16-01-2009: Carla preguntaba como hacer un indice para las hojas de excel, pues bien, después de buscar un poco me encontré con la solución, básicamente es necesario crear un nuevo modulo en el libro de excel y escribir:

Sub Links_hojas()
   Dim wrbLibro As Workbook
   Dim wrsHojaActiva As Worksheet, wsHoja As Worksheet
   Dim intFila, intColumna As Integer
   Set wrbLibro = ActiveWorkbook
   Set wrsHojaActiva = ActiveSheet
   'en que fila/columna empezar la lista
   intFila = 4
   intColumna = 1
   'el bucle repasa todas las hojas
   For Each wsHoja In wrbLibro.Worksheets
      'para excluir hoja de los links
      If wsHoja.Name = "Hoja4" Then GoTo ProxHoja
      'crear links
      If wsHoja.Name <> wrsHojaActiva.Name Then
         'Nota: las siguientes 3 lineas escribanlas en una
         wrsHojaActiva.HyperLinks.Add wrsHojaActiva.Cells(intFila, intColumna),
         "", SubAddress:="'" & wsHoja.Name & "'!A1",
         TextToDisplay:=wsHoja.Name
         intFila = intFila + 1
      End If
      ProxHoja:
   Next wsHoja
End Sub

El articulo original esta disponible en xltoday.net lugar en el cual encontraran muchos otros ejemplos de macros ;-)

Post's relacionados...

Que si, que seré invadido

Hace algún tiempo les hablaba sobre como este blog formaría parte de la iniciativa invasora, sin embargo los días pasaron y mi blog siguió igual de abandonado que siempre, yo pensaba que debido a la temática nadie se animaría a escribir aquí, digo después de todo ni yo que soy su autor escribo seguido :P , pues bien hoy Víctor nos ha hecho un regalo como premio de consolación en lo que nos escribe nuestro post :)

Se trata de una nube de palabras con algunas de las más relevantes de mi blog

Solo me resta decir que espero con ansias el articulo de Vic y que después de ver la nube, no cabe duda que necesito escribir más seguido ¬¬

Post's relacionados...

  • Lo Siento No Hay Post's Relacionados U_U

Expresiones regulares

Hace algunos días me vi en la necesidad de aprender a usar expresiones regulares en python, justo en esos días me encontré con un comic con el que me sentí identificado…

Y es que a quien no le ha pasado que después de aprender alguna nueva habilidad, técnica, etc, no busca la manera de usarla tanto como sea posible.

Bueno en caso de que hallan entrado aquí para aprender a usar las expresiones regulares no se preocupen no pondré solo el comic sino que compartiré el programa que escribí, pero primero la explicación de lo que hace aunque no profundizare en el por que lo hice…

Primeramente para quien no conoce que es una expresión regular (tal vez entraron a este blog de forma accidental), les dejo la definición de la wikipedia:

Una expresión regular, a menudo llamada también patrón, es una expresión que describe un conjunto de cadenas sin enumerar sus elementos. Por ejemplo, el grupo formado por las cadenas Handel, Händel y Haendel se describe mediante el patrón “H(a|ä|ae)ndel”. La mayoría de las formalizaciones proporcionan los siguientes constructores: una expresión regular es una forma de representar a los lenguajes regulares (finitos o infinitos) y se construye utilizando caracteres del alfabeto sobre el cual se define el lenguaje. Específicamente, las expresiones regulares se construyen utilizando los operadores unión concatenación y clausura de Kleene.

El programa lee un archivo de texto (por ejemplo un txt aunque originalmente lo pensé para un html) buscando todas las ocurrencias de una letra mayúscula seguida por un numero (X1, G6, Y77, R55, etc.) y lo le agrega “+ al inicio y +” al final ( X1 pasa a ser +X1+” ), solo buscara las letras mayúsculas de manera que cualquier ocurrencia en letras minúsculas no sea cambiada (h1, h4, t1, etc. quedan igual).

Adicionalmente agrega V1=” al inicio de cada linea y “: ASCII(5,V,1,2) al final ademas de un salto de linea (\n) por ejemplo:

Linea original: Si el valor de X1 es igual a H777 entonces…

Linea generada: V1=”Si el valor de “+X1+” es igual a “+H777+” entonces…\n“: ASCII(5,V,1,2)

Todo lo anterior lo almacena en un nuevo archivo con el mismo nombre pero extensión .kplr (miArchivo.txt se guarda como miArchivo.txt.kplr)

Bueno sin mas les dejo el código del programa

import sys          # sys (para el paso de argumentos),
import os.path    # os.path (para comprobar la validez del archivo)
import re          # y re (para las expresiones regulares)

if(len(sys.argv) > 1):   # comprobamos que exista un parámetro
    archivo=sys.argv[1]   # lo asignamos a la variable archivo
    existeF = os.path.exists(archivo)  #comprobamos que exista el archivo
    if existeF: # si existe el archivo…
        lee = open(archivo,"r")  # lo abrimos como solo lectura
        escribe = open(archivo+".kplr","w")  # creamos el archivo con extensión .kplr
        while True: # bucle para leer todas las lineas
            linea = lee.readline() # leemos una linea
            if not linea: # nos aseguramos que sea una linea
                break # de lo contrario terminamos el bucle
            lineaNueva=linea.rstrip() # quitamos a la linea los caracteres que no queremos (el salto de linea)
            lineaNueva=re.sub(r‘([A-UW-Z]\d+)’,r‘"+\1+"’,lineaNueva) # sustituimos las ocurrencias de nuestra expresion
            lineaEscribe=‘V1="’+lineaNueva+‘": ASCII(5,V,1,2) \n # añadimos lo que queremos al inicio y final de la cadena
            escribe.write(lineaEscribe) # guardamos la linea en nuestro archivo .kplr
        print "Codigo kplr creado correctamente" # al terminar mostramos el mensaje de todo correcto
    else: # si no existe el archivo
        print "El archivo no existe, debes indicar un nombre de archivo valido" # mostramos mensaje de error
else: # si no se paso un parámetro
    print "Debes indicar el nombre del archivo" # mostramos mensaje de error

En fin, espero que este preograma les sirva, aunque sea para darse una idea de como usar las expresiones regulares.

Links…

Comic xkcd

Expresiones regulares en la wikipedia.

Post's relacionados...