11-12 de Mayo 2010
10-18 Horas
Auditorio Sotero Prieto 2
Conjunto Amoxcali. Facultad de Ciencias.
Ciudad Universitaria, México D.F.
Supongamos que tenemos una carpeta con los siguientes archivos HTML:
Cada archivo HTML tiene el siguiente código:
El objetivo es cambiar este código en todas esas páginas HTML:
<a href=”http://www.pagina.com/cambiameConPython/”> Link </a>
por
<a href=”http://www.pagina.com/cambiadoConPython/”> Link </a>
para ello ocupamos el siguiente código en Python:
def cambiaTextoEnArchivo(archivo, cadenaABuscar, cadenaParaReemplazar):
print(archivo);
try:
#Abre el archivo para lectura de datos
archivoLectura = open(archivo,”r”);
textoOriginal=archivoLectura.read();
archivoLectura.close();
except (RuntimeError, TypeError, NameError, IOError):
print (“Error en la ubicacion o nombre del archivo”);
exit();
#Modifica la cadena del texto original del archivo
if textoOriginal.find(cadenaABuscar) >= 0:
textoModificado = textoOriginal.replace(cadenaABuscar,cadenaParaReemplazar);
#Abre el archivo para escritura de datos
archivoEscritura = open(archivo,”w”);
archivoEscritura.writelines(textoModificado);
archivoEscritura.close();
print (“Se ha modificado el texto original.”);
else:
print (“No se encontro el texto buscado en el texto original. “);
print (“No se realizo ningun cambio.”);
import glob;
import os;
dir=’/home/drickmees/html/*.html’;
try:
ficheros=glob.glob(dir);
except (RuntimeError, TypeError, NameError, IOError, OSError):
print (“Error en la ruta del directorio”);
exit();
cadenaABuscar=”http://www.pagina.com/cambiadoConPytho2n/”;
cadenaParaReemplazar=”http://www.pagina.com/cambiameConPython/”;
i=1;
for fichero in (ficheros):
cambiaTextoEnArchivo(fichero, cadenaABuscar, cadenaParaReemplazar);
i=i+1;
if i<2:
print(“No hay archivos en el directorio”);
Ver la imagen del código:

Espero sea de utilidad.
Referencías:
ArchivosyDirectoriosConPython
A continuación un script en VBA para obtener datos de los libros de excel localizados en una carpeta:
Sub extraeDatosLibrosYHojasExcel()
Dim ruta
Dim ruta2
Dim ruta3
Dim valor
Dim nombre
Dim i As Integerruta = “F:\DesarrolloS\excel\*.xlsx”
ruta2 = “F:\DesarrolloS\excel\”
nombre = Dir(ruta)
i = 1
Do While nombre <> “”
ruta3 = ruta2 & nombre
Workbooks.Open (ruta3)
Workbooks(nombre).Activate
valor = Workbooks(nombre).Application.Cells(1, 1).Value
Workbooks(nombre).Close
Cells(i, 1).Value = valor
i = i + 1
nombre = Dir
Loop
End Sub
En la disciplina matemática del álgebra lineal, el algoritmo de Strassen, llamado así por Volker Strassen, es un algoritmo usado para la multiplicación de matrices. Es asintóticamente más rápido que el algoritmo de multiplicación de matrices estándar, pero más lento que el algoritmo más rápido conocido, y es útil en la práctica para matrices grandes.





Comentarios