Regresar a la página www.ComoCrearTuWeb.com
Resultados 1 al 3 de 3

Tema: Crear un buscador

  1. #1
    Me va gustando esto... Habitante
    Fecha de Ingreso
    09 jun, 08
    Ubicación
    Madrid
    Mensajes
    43
    Poder de Reputación
    20

    Crear un buscador

    tengo un problema en principio simple
    Como puedo hacer para que el array tenga mas campos ya que si añado así sin mas varios, me sale error en el script. Ayudenme. Por otra parte si alguien me puede dar el codigo de un spider
    Gracias
    Código:
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    
    <html>
    <head>
    <title>TheoQ-Search</title>
    <script language="javascript" type="text/javascript">   
    //BUSCADOR DE EL CODIGO   
    //Autor: Iván Nieto Pérez   
    //Este script y otros muchos pueden   
    //descarse on-line de forma gratuita   
    //en El Código: www.elcodigo.com   
      
    caracter = new Object(5)    
    caracter[0] = 'á'  
    caracter[1] = 'é'  
    caracter[2] = 'í'  
    caracter[3] = 'ó'  
    caracter[4] = 'ú'  
      
    caracter_nuevo = new Object(5)   
    caracter_nuevo[0] = 'a'  
    caracter_nuevo[1] = 'e'  
    caracter_nuevo[2] = 'i'  
    caracter_nuevo[3] = 'o'  
    caracter_nuevo[4] = 'u'  
      
    caracter_nuevo2 = new Object(5)   
    caracter_nuevo2[0] = '[áa]'  
    caracter_nuevo2[1] = '[ée]'  
    caracter_nuevo2[2] = '[íi]'  
    caracter_nuevo2[3] = '[óo]'  
    caracter_nuevo2[4] = '[úu]'  
      
    var BaseDatos = new Array(   
    "http://aguillo.atwebpages.com/theopedya1.html;TheoPedya;Grupo TheoQMZ Enciclopedia virtual en la que los usuarios registrados podrán aportar datos o ampliar información.;enciclopedia,enciclopedia en interneet,TheoPedya",   
    "http://www.google.es/;www.google.es;Buscador principal de internet.;buscador,buscadores,google",   
    "http://www.live.com;www.live.com;Buscador de Microsoft en asociación con MSN.;buscador,buscadores,live,live msn",   
    "http://aguillo.atwebpages.com/busca.html;Buscador TheoQ;Buscador del grupo TheoQMZ.;buscador,buscadores,TheoQ,",   
    "http://www.yahoo.com;www.yahoo.com;Buscador Yahoo;buscador,buscadores,Yahoo,",   
    "http://es.altavista.com;http://es.altavista.com;Buscador Altavista.;buscador,buscadores,altavista",   
    "http://es.ask.com;http://es.ask.com;Buscador Ask;buscador,buscadores,ask",   
    "http://www.normagas.es;www.normagas.com;Normagas S.A Especialistas en detectores de fugas de todos los tipos de gases(domiciliarios,industriales...);seguridad,seguridad de gas,gas,detectores,",   
    "http://www.normadat.es;www.normadat.es;Normadat S.A Especialistas en seguridad de datos, copias de seguridad, digitalización, backups...;seguridad,seguridad de datos,datos,backup,backups,digitalización",   
    "http://willoughbybasketballteam.atwebpages.com;Colegio Willoughby;Grupo TheoQMZ Colegio Willoughby Colegio bilingüe situado en Madrid.;colegio,bilingüe,colegio bilingüe,willoughby,willoughby basketball team",   
    "http://centeneradeandaluz.mywebcommunity.org;Centenera de Andaluz;Grupo TheoQMZ Centenera de andaluz es un pueblo situado en la provincia de Soria...;pueblo,pueblos,soria,pueblo en soria,centenera,centenera de andaluz",   
    "http://centeneradeandaluz.mywebcommunity.org/fotos.html;Centenera de Andaluz;Grupo TheoQMZ Fotografías de Centenera;pueblo,pueblos,soria,pueblo en soria,centenera,centenera de andaluz",   
    "http://centeneradeandaluz.mywebcommunity.org/foro.html;Centenera de Andaluz;Grupo TheoQMZ Foro de Centenera;pueblo,pueblos,soria,pueblo en soria,centenera,centenera de andaluz,foro,foros",   
    "http://www.centeneradeandaluz.es;Centenera de Andaluz;Página Oficial de Centenera;pueblo,pueblos,soria,pueblo en soria,centenera,centenera de andaluz",   
    "http://www.centenera.tk;Centenera de Andaluz;Página de Centenera de Andaluz;pueblo,pueblos,soria,pueblo en soria,centenera,centenera de andaluz",   
    "http://aguillo.atwebpages.com;Aguillo;Grupo TheoQMZ Aguillo es un pueblo situado en el Condado de Treviño,en Burgos...;pueblo,pueblos,condado de treviño,treviño,aguillo,pueblo en el condado de treviño",   
    "http://aguillo.atwebpages.com/web.html;Diseño Web;Grupo TheoQMZ Página que te enseña como crear una web en pasos muy fáciles.;diseño web,web,crear web,crear una web,como hacer una web,pagina web,curso de html,como crear una web",   
    "http://www.comocreartuweb.com;www.comocreartuweb.com;CCTW Aprende a crear una web mediante cursos básicos de diseño web.;diseño web,web,crear web,crear una web,como hacer una web,pagina web,curso de html,como crear una web",   
    "http://www.creatupropiaweb.com;www.creatupropiaweb.com;Clases y cursos de html y diseño web.;diseño web,web,crear web,crear una web,como hacer una web,pagina web,curso de html,como crear una web",   
    "http://www.comocrearunsitioweb.com;www.comocrearunsitioweb.com;Curso de creación de paginas web muy fácil.;diseño web,web,crear web,crear una web,como hacer una web,pagina web,curso de html,como crear una web",   
    "http://www.lastminute.com;Last Minute;Viajes baratos con Vuelo+Estancia...;agencias de viaje,viajes,viaje,vulos,cruceros,estancias,hotel,hoteles,extranjero",   
    "http://www.halconviajes.com;www.halconviajes.com;Agencia Halcón Viajes. Ofertas de vuelos, viajes, hoteles...;agencias de viaje,viajes,viaje,vulos,cruceros,estancias,hotel,hoteles,extranjero",   
    "http://www.marsans.es;www.marsans.es;Viajes y vuelos Marsans;agencias de viaje,viajes,viaje,vulos,cruceros,estancias,hotel,hoteles,extranjero",   
    "http://www.viajeselcorteingles.es;www.viajeselcorteingles.es;Ofertas y Viajes del Corte Inglés;agencias de viaje,viajes,viaje,vulos,cruceros,estancias,hotel,hoteles,extranjero",   
    "http://www.agenciasdeviajesenlared.com;www.agenciasdeviajeseninternet.com;Ofertas de viajes, vuelos, estancias... a precios muy económicos;agencias de viaje,viajes,viaje,vulos,cruceros,estancias,hotel,hoteles,extranjero",   
    "http://www.iberia.com;www.iberia.com;Reserva ya sus billetes de Avión desde Iberia.com;vuelos,vuelo,viaje,viajes,compañias aereas,aerolineas",   
    "http://www.lufthansa.com;www.lufthansa.com;Ofertas especiales de Lufthansa;vuelos,vuelo,viaje,viajes,compañias aereas,aerolineas",   
    "http://www.spanair.com;www.spanair.com;Spanair encuentre nuestras mejores Ofertas;vuelos,vuelo,viaje,viajes,compañias aereas,aerolineas",   
    "http://www.vueling.com;www.vueling.com;Visite y compre ya en Vueling;vuelos,vuelo,viaje,viajes,compañias aereas,aerolineas",   
    "http://www.britishairways.com;www.britishairways.com;Reserve ya sus billetes para estas Navidades!;vuelos,vuelo,viaje,viajes,compañias aereas,aerolineas",   
    "http://www.airfrance.es;www.airfrance.es;Air France en Español;vuelos,vuelo,viaje,viajes,compañias aereas,aerolineas",   
    "http://www.alitalia.com;www.airitalia.es;Viaje ya con Air Italia y compre nuestras mejores ofertas;vuelos,vuelo,viaje,viajes,compañias aereas,aerolineas",   
    "http://www.continental.com;www.continental.com;Viaje estas Navidades a todas partes da América con Air Continental;vuelos,vuelo,viaje,viajes,compañias aereas,aerolineas",   
    "http://www.air-europa.com;www.air-europa.com;Air Europa;vuelos,vuelo,viaje,viajes,compañias aereas,aerolineas",   
    "http://www.norwegian.no;www.norwegian.no;Norwegian Airlines;vuelos,vuelo,viaje,viajes,compañias aereas,aerolineas",   
    "http://www.aircanada.com;www.aircanada.com;Air Canadá airlines.;vuelos,vuelo,viaje,viajes,compañias aereas,aerolineas",   
    "http://www.aena.es;www.aena.es;Página de la Asociación de los Aeropuertos Españoles;vuelos,vuelo,viaje,viajes,compañias aereas,aerolineas,aena,asociacion de aeropuertos españoles,aeropuerto,aeropuertos,aeropuertos españoles",   
    "http://www.mascotasvirtuales.org/perros/abandodno-de-perros.php;El abandono de Perros;El abandono de perros un problema creciente. Algunas consideraciones. Las alternativas para evitar el abandono de perros.;abandono,perros,mascotas,evitar abandono de perros,abandono de perros,abandono de mascotas",   
    "url;desc;Indice de los scripts del Tiralíneas para creación de código a medida;scripts,javascripts,tiralineas,ejemplos,código,programación,ventanas",   
    "/tiralineas/tiralineas1;Tiralíneas: Creación de ventanas;Script de creación de código para abrir ventanas;scripts,javascripts,tiralineas,ejemplos,código,programación,ventanas",   
    "/tiralineas/tiralineas2;Tiralíneas: Textos en la barra de estado;Script de creación de código para mostrar textos en la barra de estado del navegador;scripts,javascripts,tiralineas,ejemplos,código,programación,barras,estados,textos,desplazamientos,scrollings",   
    "/tiralineas/tiralineas3;Tiralíneas: Creación de formularios;Script de creación de código para formularios sencillos de 4 campos;scripts,javascripts,tiralineas,ejemplos,código,programación,formularios,campos,textos,cuadros,radios,botones,submit,reset,enviar"  
    )   
      
    var totales     //numero de entradas encontradas   
    var Pagina      //string que contendra la pagina a mostrar   
    var Entradas        //string que va guardando las entrdas encontradas   
    var clave1, clave2  //palabra a buscar   
      
    //obtiene longitud de la base de datos   
    var longitud = BaseDatos.length  
      
      
    function Buscaclave(FormBusqueda, desde) {   
        //busca la palabra clave en el array de palabras clave   
        //devuelve -1 si no hay coincidencias   
        var index = -1   
      
        //recorre el array en busca de la palabra clave (en cualquier parte)   
        for (x = desde; x < longitud; x++) {   
            if ( (BaseDatos[x].search(clave1) != -1) || (BaseDatos[x].search(clave2) != -1) ) {   
                index = x   
                break  
            }   
        }   
      
        return index  
    }   
      
    function IniciaPagina(FormBusqueda) {   
        //crea la pagina a visualizar y la muestra   
      
        //cabecera y apertura cuerpo   
        Pagina =    '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">\n' +   
                '<html><head>\n' +   
                '<title>Resultados de la busqueda-TheoQ Search</title>\n' +   
                '<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">\n' +   
                '<meta NAME="AUTHOR" CONTENT="TheoQMZ">\n' +   
                '<link rel="stylesheet" type="text/css" href="/elcodigo.css"></head>\n' +   
                '<body>\n' +   
                '<h3>Resultados de la búsqueda</h3>\n'  
      
        if (totales != 0)   
            Pagina += '
    
    Se han encontrado ' + totales + ' resultados que contienen la palabra <strong class="rojo">' + FormBusqueda.palabra.value + '[/b]:</p>\n'  
        else  
            Pagina += '
    
    No se han encontrado resultados para la palabra <strong class="rojo">' + FormBusqueda.palabra.value + '[/b].</p>\n'  
    }   
      
    function TerminaPagina() {   
      
        //final cuerpo   
        Pagina +=   '</body></html>\n'  
    }   
      
    function CreaEntradas(indice) {   
      
        var CadenasEntrada   
      
        //divide la cadena de resultados en subcadenas y escribe los resultados   
        CadenasEntrada = BaseDatos[indice].split(";")   
        Entradas += '
    
    ' + CadenasEntrada[1] + '
    \n'  
        Entradas += CadenasEntrada[2] + '</p>\n'  
    }   
      
    function MuestraPagina(Pagina) {   
        //muestra el contenido del display   
        window.document.open()   
        window.document.write(Pagina)   
        window.document.close()   
    }   
           
    function IniciaBuscador(FormBusqueda) {   
           
        //inicia variables globales   
        var desde = 0   
        totales = 0   
        Pagina = ""  
        Entradas = ""  
           
        //clave busqueda   
        var palabraClave = document.forms["FormularioBusqueda"].palabra.value  
           
        //detiene busqueda si palabra clave vacia   
        if ( palabraClave == "" ) {   
            alert("¡Introduzca cadena de búsqueda!")   
            return  
        }   
           
        //elimina acentos   
        var palabra_sin = elimina_especiales(palabraClave)   
           
        //obtiene la expresion regular para la busqueda (global e ignorando case)   
        clave1 = new RegExp(palabraClave, "gi")   
        clave2 = new RegExp(palabra_sin, "gi")   
      
        //inicia variables locales   
        var indice = -1   
           
        //busca entrada de pagina que contenga la clave   
        do {   
            indice = Buscaclave(FormBusqueda, indice + 1)   
            if (indice != -1) {   
                CreaEntradas(indice)   
                totales++   
            }    
        } while (indice != -1)   
           
        //escribe pagina de resultados   
        IniciaPagina(FormBusqueda)   
        Pagina += Entradas   
        TerminaPagina()   
      
        //abre una ventana y escribe los resultados   
        MuestraPagina(Pagina)   
    }   
      
    //SUSTITUYE TODAS LAS OCURRENCIAS DE UN CARACTER UNA CADENA POR OTRO CARACTER   
    function sustituye_caracter(cadena, caracter, nuevo_caracter) {   
        var longitud, indice    
           
        longitud = cadena.length  
        indice = cadena.indexOf(caracter)   
        while ( (indice != -1) && (cadena.charAt(indice + 1) != ']') ) {   
                cadena = cadena.substring(0, indice) + nuevo_caracter + cadena.substring(indice + 1, longitud + 1)   
                indice = cadena.indexOf(caracter, indice)   
            }   
      
        return cadena   
    }   
      
    //ELIMINA CARACTERES ESPECIALES   
    function elimina_especiales(cadena) {   
      
        //elimina caracteres con acento   
        for (x = 0; x < 5; x++) {   
            cadena = sustituye_caracter(cadena, caracter[x], caracter_nuevo[x])   
        }   
           
        //sustituye las vocales por una expresion regular para ignorar los acentos   
        for (x = 0; x < 5; x++) {   
            cadena = sustituye_caracter(cadena, caracter_nuevo[x], caracter_nuevo2[x])   
        }          
           
        return cadena   
    }   
      
      
      
      
    </script
    </head>
    <body>
    
    
    [img]Objetos/theoqsearch.bmp[/img] 
    <form name="FormularioBusqueda">  
    
    
    [img]Objetos/theoqsearch.bmp[/img]SEARCH THEOPEDYA
      
    <input type="text" name="palabra" size="35">  
    <input type="button" value="Buscar en TheoQ" name="buscar" onClick="IniciaBuscador(this.form)">  
      
    </form>  
    </p>
    
    
    Al utilizar palabras genéricas obtendrá más resultados de búsqueda.</p>    
    Copyright © 2008 TheoQ Search
    </body>
    </html>
    Descragar software, Publicar anuncios Gratuitos*...
    http://theoq.atwebpages.com

  2. #2
    Esto empieza a ser un vicio... Habitante Avatar de nosabernada
    Fecha de Ingreso
    02 ago, 08
    Ubicación
    Velar por CCTW
    Mensajes
    1,233
    Poder de Reputación
    25
    Hola,

    de javascript no se mucho, pero decirte que si el scrit esta echo para uno valores predeterminados, aunque le añadas mas campos...dara error, tendras que buscaar en la parte del valor, y cambiarlo. Ejemplo:

    -Yo tengo una cesta que admite 5 naranjas, pero yo le meto 7, no funcion y me "dara error". Lo que debo hacer es cambiar de cesta (valor) para que pueda metrer siete.


    Adios

    PD: esto es lo maximo que puedo ayudarte yo, lo siento

  3. #3
    Me va gustando esto... Habitante Avatar de nicosanchez1910
    Fecha de Ingreso
    18 jul, 18
    Ubicación
    Ciudad de México
    Mensajes
    33
    Poder de Reputación
    5

    Question Buscador

    Hola, es una muy interesante idea, me agrada la idea del buscador, tengo una pregunta, solo será un buscador para vuelos? Me gustaría que en tu buscador hubiera la opción de comprar boletos de autobus, ya que es una de las formas más económicas de viajar, si lo logras podrías informarme en cuanto este lista tu web ó tu aplicación. ¡Saludos!

Temas Similares

  1. Crear buscador con php
    Por Kondoriano en el foro Php Bases de Datos y MySQL (Nuevo!)
    Respuestas: 2
    Último Mensaje: 28/04/2013, 17:08
  2. Crear buscador en CCTW
    Por Doodleo en el foro Sugerencias
    Respuestas: 8
    Último Mensaje: 14/05/2011, 04:45
  3. crear un buscador
    Por +croster+ en el foro Foro General
    Respuestas: 4
    Último Mensaje: 01/04/2008, 17:26

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •