Loteria parte 1

El primer paso para tener lista nuestra "baraja virtual" de loteria mexicana, es obtener las 54 imagenes de las cartas.

Desde luego, este codigo puede ser ejecutado desde tu Android Tablet, si cuentas con Androwish.

Al finalizar la ejecucion de este script, se tendran 54 imagenes:

(desde lote01.jpg, hasta lote54.jpg), en el mismo directorio donde este ubicado este script:

  console show  
  #package require Tk  
  package require http  
  #package require base64  
  package require Img  
  set um [http::geturl http://loteria.elsewhere.org/miniatura/]  
  set b [split [http::data $um] "\n"]  
  for {set i 1} {$i<55} {incr i} {  
    if {$i < 10} {  
     set ctr "0$i"  
    } else {  
     set ctr $i  
    }  
    set ln [lsearch -inline -glob $b "*miniatura-${ctr}_298*"]  
    puts $ln  
    regexp {^.*src=\"([^"]+)\".*$} $ln --> picurl  
    http::cleanup $um  
    set um [http::geturl http://loteria.elsewhere.org$picurl]  
    set filename "lote$ctr.jpg"  
    set fd [open [file join [lindex $argv 0] $filename] w]  
    fconfigure $fd -translation binary -encoding binary  
    puts $fd [http::data $um]  
    close $fd  
    http::cleanup $um  
  }