Colabora: Buscador en HTML

BUSCADOR EN HTML
[by Ciberwalter (VB6.0)]

Fecha: 11 Diciembre 2003 (publicado 13/Dic/2003)
Autor: Walter Mart�nez O.
[email protected]
http://www.geocities.com/gnivel4

Este ejemplo administra las direcciones web de un buscador realizado en javascript, muy �til para la realizaci�n de p�ginas web, sin la necesidad de utilizar PHP, CGI u otros archivos similares, ya que muchos servidores gratuitos no los admiten.
Bueno Amigos, �sta es la soluci�n.
Un Buscador BBB (Bueno, Bonito y Barato).
Muchos se preguntar�n, Por qu� utilizo nombres de variables tan raras, bueno yo tambi�n me lo pregunto...

Para agregar una nueva direcci�n completa los siguientes campos:

- Hipervinculo: P�gina Vinculada
- Tipo de Ventana: Ventana en que se abrir� el V�nculo.
- T�tulo: Nombre de la P�gina vinculada
- Palabras Clave: Palabras que se buscar�n.
- Descripci�n: Peque�o resumen del contenido de la p�gina.

en las palabras clave de este Item deber�as poner entre otras "Guille"
Y al Buscar la Palabra "Guille". El Item se ver� de esta forma:

______________________________________________________________________

La Web Del Guille (T�tulo)

En esta web encontrar�n todo acerca de Visual Basic y Mucho M�s.
(Descripci�n)

http://www.mundoprogramacion.com/indice.asp (V�nculo)

______________________________________________________________________

A continuaci�n sigue el c�digo en Visual Basic 6.0 (Completo):

Option Explicit

Dim Linea As String
Dim NoVermas As Boolean

Private Sub Command1_Click()

' Como Siempre, Dimensionamos las Variables
Dim Ficha As String
Dim walter As Integer
Dim Linea As String
Dim NameFile As String
Dim i
Dim Vinculo As String
Dim HiperV As String
Dim Vinculo2 As String
Dim HiperV2 As String

i = 0
walter = FreeFile

' NameFile es el archivo que contiene las direcciones
NameFile = App.Path & "\data.js"

' Si Alg�n Campo no est� completo no permite que se cree el nuevo Item
If Reference <> "" And Title <> "" And KeyWords <> "" And Descriptions <> "" Then
    Ficha = "add(" & Chr$(34) & "<a href='" & Reference & "' target='" & Target & "'>" & Title & "</a>" & Chr$(34) & "," & Chr$(34) & KeyWords & Chr$(34) & "," & Chr$(34) & Descriptions & Chr$(34) & ")"

    ' Aqu� agrega a List1 una nueva ficha y avanza 1 en el contador
    List1.AddItem Ficha
    NumberLista = NumberLista + 1

    ' Aqu� Resetea los campos para que queden neutros
    Reference = "http://"
    Option2_Click
    Option2.Value = True
    Title = ""
    KeyWords = ""
    Descriptions = ""

    List2.Clear

' Abrimos el archivo con los datos y le agregamos los Items
Open NameFile For Output As #walter
    Do While i < NumberLista
        Print #walter, List1.List(i)

        Linea = List1.List(i)
        HiperV = InStr(Linea, "'")
        Vinculo = Mid$(Linea, HiperV + 1)
        HiperV2 = InStr(Vinculo, "'")
        Vinculo2 = Mid$(Vinculo, 1, HiperV2 - 1)
        List2.AddItem Vinculo2

        i = i + 1
    Loop
Close #walter
' Una Vez Guardado el Item, Avisamos este suceso
    MsgBox "Item Guardado", vbInformation, "Guardado"

Else
' Pero si no has completado todos los casilleros...
' Caer� sobre t� una maldici�n China... �?.. no!, s�lo te saldr� un error
    MsgBox "Debes completar todos los casilleros", vbExclamation, "Error"
End If
End Sub

Private Sub Descriptions_Change()
' Al Cambiar el casillero Descriptions mostrar� la previsualizaci�n
    EjDesc.Caption = Descriptions.Text
End Sub

Private Sub Form_Load()
Dim Vinculo As String
Dim HiperV As String
Dim Vinculo2 As String
Dim HiperV2 As String

Dim walter As Integer
Dim NameFile As String

NoVermas = True

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
walter = FreeFile
NameFile = App.Path & "\data.js"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Al comenzar el programa carga los items previamente guardados al List1

Open NameFile For Input As #walter

    Do While Not EOF(walter)
        Line Input #walter, Linea
        List1.AddItem Linea
        HiperV = InStr(Linea, "'")
        Vinculo = Mid$(Linea, HiperV + 1)
        HiperV2 = InStr(Vinculo, "'")
        Vinculo2 = Mid$(Vinculo, 1, HiperV2 - 1)
        List2.AddItem Vinculo2
    Loop

Close #walter
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
NumberLista = List1.ListCount
End Sub

Private Sub KeyWords_Change()
' Al Cambiar el casillero KeyWords mostrar� la previsualizaci�n

    KeyToFind.Caption = KeyWords.Text
End Sub

Private Sub Label15_Click()
If NoVermas = True Then
    Label15.Caption = "Previsualizaci�n: <<"
    Me.Height = Me.Height - 1890
    NoVermas = False
ElseIf NoVermas = False Then
    Label15.Caption = "Previsualizaci�n: >>"
    Me.Height = Me.Height + 1890
    NoVermas = True
End If
End Sub

Private Sub List2_KeyPress(KeyAscii As Integer)
Dim EliminarItem

' Para eliminar un Item debes seleccionarlo y pulsar la tecla Retroceso
EliminarItem = MsgBox("Desea Eliminar este Item", vbYesNo, "Eliminar Item")

If EliminarItem = vbYes Then
    If KeyAscii = 8 Then
        If List2.ListIndex >= 0 Then
        List1.RemoveItem List2.ListIndex
        List2.RemoveItem List2.ListIndex

Dim i
Dim walter
Dim NameFile

walter = FreeFile
NameFile = App.Path & "\data.js"
i = 0
' Aqu� Abrimos el data.js para eliminar alg�n Item
Open NameFile For Output As #walter
    Do While i < NumberLista - 1
        Print #walter, List1.List(i)
        i = i + 1
    Loop
Close #walter

    NumberLista = NumberLista - 1

        End If
    End If
Else
    Exit Sub
End If
End Sub

Private Sub Option1_Click()
    Otra.Visible = False
    Target = Option1.Caption
End Sub

Private Sub Option2_Click()
    Otra.Visible = False
    Target = Option2.Caption
End Sub

Private Sub Option3_Click()
    Otra.Visible = False
    Target = Option3.Caption
End Sub

Private Sub Option4_Click()
    Otra.Visible = False
    Target = Option4.Caption
End Sub

Private Sub Option5_Click()
    Otra.Visible = True
End Sub

Private Sub Otra_Change()
    Target = Otra
End Sub

' Parte de la Previsualizaci�n
Private Sub Reference_Change()
    Linker.Caption = Reference.Text
End Sub

Private Sub Title_Change()
    EjTitle.Caption = Title.Text
End Sub

Si Tienen alg�n comentario o queja haganmela saber a mi e-mail.

Instrucciones de Utilizaci�n.

Instrucciones: todo programador de HTML sabe o al menos intuye c�mo se publican los archivos con extensi�n .htm, .js, .jpg, etc. Pero para aquellos que no lo tienen tan claro les vamos a explicar:
Primero que nada, deben contar con un sitio donde hospedar sus p�ginas (Obviamente). los archivos necesarios para que este buscador funcione correctamente son:

Search.htm
back_file.gif - next_file.gif
db.js - data.js - code.js

Es Decir, deben subir al directorio web que poseen todos estos archivos (Obligaci�n).

Adem�s de los numeros que se encuentran en la carpeta "numeros" para ello debes crear una carpeta en el servidor de internet que poseas y darle el nombre "numeros" y dentro de ella debes colocar todas las imagenes correspondiente a los n�meros del 1 al 100.

Por el contrario, si no quieres que aparezcan estos n�meros, borra el archivo code.js y renombra el archivo code2.js con el nombre code.js, (este otro archivo no incluye las im�genes de los n�meros sino que utiliza letras).

ADBuscador by Ciberwalter (Ciberwalter_buscador.zip - Tama�o 162 KB)