Ver Mensaje Individual
  #10 (permalink)  
Antiguo 11/12/2010, 13:36
esetigris
 
Fecha de Ingreso: diciembre-2010
Mensajes: 22
Antigüedad: 13 años, 5 meses
Puntos: 1
Respuesta: cambiar imagenes con un "click"

conseguido el 2º tema...GUARDAR Y RECUPERAR
voila coma ha quedado:
Código HTML:
Ver original
  1. <img src="1.jpg" name=leer onclick="leecambios()">
  2. <img src="2.jpg" name=aplicar onclick="aplicacambios()">
  3. <Table border=1 >
  4.  
  5. <tr>
  6.     <td><img src="fot/a/38185.jpg" name=33 onclick="cambia(this)"></td>
  7.     <td><img src="fot/a/47754.jpg" name=44 onclick="cambia(this)"></td>
  8.     <td><img src="fot/a/11753.jpg" name=11753 onclick="cambia(this)"></td>
  9.     <td><img src="fot/a/16587.jpg" name=16587 onclick="cambia(this)"></td>
  10.     <td><img src="fot/a/38185.jpg" name=38185 onclick="cambia(this)"></td>
  11.     <td><img src="fot/a/47754.jpg" name=44754 onclick="cambia(this)"></td>
  12. </tr>
  13. <script language="javascript">
  14. var numero={};
  15. for(i=0;img=document.images[i];i++){numero[img.name]=img.src;}
  16.  
  17. function cambia(img){img.src=img.src==numero[img.name]?'3.jpg':numero[img.name];}
  18.  
  19. function aplicacambios()
  20.    {
  21.     var numero={};
  22.     var fso = new ActiveXObject("Scripting.FileSystemObject");
  23.     var a = fso.CreateTextFile("F:/XAPAS/a3.txt", 2);
  24.      for(i=0;img=document.images[i];i++)
  25.       {numero[img.name]=img.src;
  26.       a.WriteLine( numero[img.name]);
  27.       }
  28.     a.Close();
  29.    }
  30.  
  31. function leecambios()
  32.    {
  33.     var fso = new ActiveXObject("Scripting.FileSystemObject");
  34.     var abc = fso.OpenTextFile("F:/XAPAS/a3.txt", 1);
  35.      for(i=0;img=document.images[i];i++)
  36.       {
  37.        var jjj=abc.ReadLine();
  38.        img.src=jjj;
  39.       }
  40.     abc.Close();
  41.    }
Y COMO ME QUEDA EL TXT
Código HTML:
Ver original
  1. file:/F:/XAPAS/1.jpg
  2. file:/F:/XAPAS/2.jpg
  3. file:/F:/XAPAS/fot/a/38185.jpg
  4. file:/F:/XAPAS/fot/a/47754.jpg
  5. file:/F:/XAPAS/fot/a/11753.jpg
  6. file:/F:/XAPAS/fot/a/16587.jpg
  7. file:/F:/XAPAS/3.jpg
  8. file:/F:/XAPAS/3.jpg


que facil es programar con ayuda desinteresada y
que facil deberia ser controlar "espacios aereos" por menos de 300.000 €