El Guru Programador
Usuario DESCONOCIDO | Registrate Gratis | Usuarios Registrados
Foro de Visual Basic/VB.NET
Foros del Guru > Visual Basic/VB.NET
Usuario Capturar el TEXTO de una web a una...
el_vito
6 Mensaje(s)
Enviado - 22/9/2004
 
Necesito capturar el texto de una pagina web, no del sitio completo, sino de una url determinada. AVER SI ALGUIEN ME PUEDE AYUDAR
 
nostromo
389 Mensaje(s)
Enviado - 22/9/2004
 
Hola;

Más antecedentes por favor....

Nos vemos.
 
el_vito
6 Mensaje(s)
Enviado - 23/9/2004
 
Necesito capturar el texto de una pagina y pasarla a una acaja de texto en vb, es hacer una funcion cosa que yo despues atravez de otro sistema le pida que me vayya a buscar el texto a la direccion que yo le de.
 
nostromo
389 Mensaje(s)
Enviado - 23/9/2004
 
Hola;

No se para que lo quieres, pero, es complicado, como empieza la cadena de caracteres??? de lo que buscas.

Es una especie de leer el código fuente de la página y empezar a buscar por comparasión de cadenas. Como leer un archivo .ini para que te guies.

Debes especificar si el texto se encuentra dentro de una tabla global, anidada, etc.

Reconocer si esta en capa, span o div, etc.

Donde empieza y termina. A ver si encuentras algo en:

http://www.vbaccelerator.com/

Nos vemos.
 
Desconocido
Enviado - 29/9/2004
 
hola la pagina es http://www.dimetchi.cl/cgi-bin/showmetar.pl?code=sur es agarrar todo ese texto
 
el_vito
6 Mensaje(s)
Enviado - 29/9/2004
 
hola la pagina es http://www.dimetchi.cl/cgi-bin/showmetar.pl?code=sur es agarrar todo ese texto

 
elazzote
2 Mensaje(s)
Enviado - 1/10/2004
 
Hola..con este código puedes hacer eso
ponlo como accion de un botón y no olvides crear el textbox

salu2


Imports System.Net
Dim request As WebRequest
Dim response As WebResponse
Dim Pagina As StreamReader
Try
request = WebRequest.Create("http://www.laweb.com/index.htm")
response = request.GetResponse()
Pagina = New StreamReader(response.GetResponseStream())
TextBox1.Text = Pagina.ReadToEnd()
Pagina.Close()
response.Close()
Catch WE As WebException
MessageBox.Show("No Se Encontro la Página", 1, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
 
 

 

Contactos myStudio Network