Rerum Varium

Jueves, 29 de diciembre de 2005

Un ejemplito de cliente Web en VB.NET

Un programa de consola que utiliza la técnica de "screen scrapping" (con una muy básica expresion regular) para consultar el teléfono desde Páginas Doradas.

Module Module1

Sub Main()
Console.WriteLine("Nombre a buscar:")
Dim nombre As String = Console.ReadLine()
Dim url As String = String.Format("http://www.paginasdoradas.com/BuscarTelefonica.action?apellido={0}", nombre)
' creamos el web request
Dim wreq As WebRequest = WebRequest.Create(url)
' configuramos los parámetros necesarios del pedido
wreq.ConnectionGroupName = "doradas"
' obtenemos la respuesta del servidor
Dim wresp As WebResponse = wreq.GetResponse()
' usamos el contenido (stream de lectura)
Dim respStream As Stream = wresp.GetResponseStream()
Try
' creamos un reader sobre el stream
Dim txtReader As TextReader = New StreamReader(respStream)
' una expresión regular para encontrar el primer teléfono
Dim reg As Regex = New Regex("\(\d+\) \d+-\d+")
Dim m As Match = reg.Match(txtReader.ReadToEnd())
If m.Success Then
Console.WriteLine(m.ToString())
Else
Console.WriteLine("no encontrado")
End If
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
' siempre cerrar un stream!!
respStream.Close()
End Try
End Sub

End Module


Novedad: este código se puede beneficiar de usar el espacio My nuevo en VB 2005, que está interesante. Decripto aquí.

Por: Ignacio Nicolás Rodríguez | MOC 2415 | Comentarios (1) | Referencias (1)

Comentarios

Ariel Ierino | 29-12-2005 20:17:11

Comentar

Referencia

URL para referencias o trackbacks

C++/CLR: otro ejemplo de screen scrapping | 2006-01-14 01:13:36
[...] teléfonos en Páginas Doradas era en VB.NET). En este caso se trata de tomar las visitas del día desde WebStats4U y pasar el valor obtenido a un contador de Windows, de los que se pueden consultar con el visor de Rendimiento. Por supuesto, [...]