Foros del Web - Ver Mensaje Individual

emitojleyes · #9 (**permalink**) 16/05/2008, 09:33

Hola!
Les paso acá el código, según el modelo que me pasaste, aplicado a mis datos... me quedó horrible!!
Ahi va...
Se los mando en dos partes, por la limitación de caracteres
----------------------

<html xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns="http://www.w3.org/TR/REC-html40">

<head>

<script type="text/javascript">
var colum=0; // columna por la que se filtrará
var valor; // value del botón que se ha pulsado

function selecciona(obj,num) {
t = document.getElementById('tab');
filas = t.getElementsByTagName('tr');
// Deseleccionar columna anterior
for (i=1; ele=filas[i]; i++)
ele.getElementsByTagName('td')[colum].className='';
// Seleccionar columna actual
colum=num;
for (i=1; ele=filas[i]; i++)
ele.getElementsByTagName('td')[colum].className='celdasel';
// Cambiar botón por cuadro de texto
valor = obj.value;
celda = obj.parentNode;
celda.removeChild(obj);
txt = document.createElement('input');
celda.appendChild(txt);
txt.focus();
txt.onblur = function() {ponerBoton(this,num)};
txt.onkeyup = function() {filtra(this.value)};
// Desactivar los demás botones
for (i=0; ele=t.getElementsByTagName('input')[i]; i++)
if (ele.type == 'button') ele.disabled=true;
}

function ponerBoton(obj,num) {
celda = obj.parentNode;
celda.removeChild(obj);
boton = document.createElement('input');
boton.type = 'button';
boton.value = valor;
boton.onclick = function() {selecciona(this,num)}
boton.onkeypress = function() {selecciona(this,num)}
celda.appendChild(boton);
// Activar botones
for (i=0; ele=t.getElementsByTagName('input')[i]; i++)
ele.disabled=false;
}

function filtra(txt) {
t = document.getElementById('tab');
filas = t.getElementsByTagName('tr');
for (i=1; ele=filas[i]; i++) {
texto = ele.getElementsByTagName('td')[colum].innerHTML.toUpperCase();
for (j=0; ra=document.forms[0].rad[j]; j++) // Comprobar radio seleccionado
if (ra.checked) num = j;

if (num==0) posi = (texto.indexOf(txt.toUpperCase()) == 0);
else if (num==1) posi = (texto.lastIndexOf(txt.toUpperCase()) == texto.length-txt.length);
else posi = (texto.indexOf(txt.toUpperCase()) != -1);
ele.style.display = (posi) ? '' : 'none';
}
}
</script>

<meta http-equiv=Content-Type content="text/html; charset=windows-1252">
<meta name=ProgId content=Excel.Sheet>
<meta name=Generator content="Microsoft Excel 11">
<link rel=File-List
href="Telefonos%20Publicos%20y%20Cabinas_archivos/filelist.xml">
<link rel=Edit-Time-Data
href="Telefonos%20Publicos%20y%20Cabinas_archivos/editdata.mso">
<link rel=OLE-Object-Data
href="Telefonos%20Publicos%20y%20Cabinas_archivos/oledata.mso">

<style>

</style>
<!--[if gte mso 9]><xml>
<x:ExcelWorkbook>
<x:ExcelWorksheets>
<x:ExcelWorksheet>
<x:Name>Hoja1</x:Name>
<x:WorksheetOptions>
<x:DefaultColWidth>10</x:DefaultColWidth>
<x:Print>
<x:ValidPrinterInfo/>
<x:PaperSizeIndex>9</x:PaperSizeIndex>
<x:HorizontalResolution>-4</x:HorizontalResolution>
<x:VerticalResolution>0</x:VerticalResolution>
</x:Print>
<x:Selected/>
<x:Panes>
<x:Pane>
<x:Number>3</x:Number>
<x:ActiveRow>9</x:ActiveRow>
<x:ActiveCol>7</x:ActiveCol>
</x:Pane>
</x:Panes>
<x:ProtectContents>False</x:ProtectContents>
<x:ProtectObjects>False</x:ProtectObjects>
<x:ProtectScenarios>False</x:ProtectScenarios>
</x:WorksheetOptions>
<x:Sorting>
<x:Sort>(1) N°</x:Sort>
</x:Sorting>
<x:PublishObjects>
<x:PublishObject>
<x:Id>28840</x:Id>
<x:DivID>911-Parque_28840</x:DivID>
<x:SourceType>SourceSheet</x:SourceType>
<x:HtmlType>HtmlStatic</x:HtmlType>
<x:Location HRef="F:\Telecom Cabinas\Telefonos Publicos y Cabinas.htm"/>
</x:PublishObject>
</x:PublishObjects>
</x:ExcelWorksheet>
<x:ExcelWorksheet>
<x:Name>Hoja2</x:Name>
<x:WorksheetOptions>
<x:DefaultColWidth>10</x:DefaultColWidth>
<x:ProtectContents>False</x:ProtectContents>
<x:ProtectObjects>False</x:ProtectObjects>
<x:ProtectScenarios>False</x:ProtectScenarios>
</x:WorksheetOptions>