lunes, 20 de octubre de 2008

Cómo sugerir texto a partir de lo capturado, al estilo de Google en VB.NET

Esta función toma como parámetro un texto, por ejemplo "isaac new" y devuelve una lista con posibles coincidencias, por ejemplo "Isaac Newell" e "Isaac Newton", etc...

Util para sugerir texto en búsquedas.


Aquí está el código para VB.NET:
Imports System.Xml

Public Class google

Public Shared Function getList(ByVal prefixText As String) As String()

Dim doc As New XmlDocument()

Dim suggArList As List(Of String) = New List(Of String)()

Dim url As String = "http://google.com/complete/search?output=toolbar&q=" & prefixText

doc.Load(url)

For Each node As XmlNode In doc.SelectNodes("//CompleteSuggestion")

Dim value As String = node.SelectSingleNode("suggestion/@data").InnerText

suggArList.Add(value)

Next

Return suggArList.ToArray()

End Function

End Class

No hay comentarios: