Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: NsTeam en Diciembre 17, 2015, 09:25:42 pm
-
Buenas!
Hace tiempo recuerdo haber visto un código que leía el texto completo de una página, no recuerdo bien donde lo vi.
Para leer el código fuente de una página, tengo el siguiente código:
Dim Datos As String
Datos = Inet1.OpenURL("https://www.google.com.pe/")
Text1.Text = Datos
El código lee el código fuente de una página, pero cómo puedo hacer para que lea el texto completo de una página, mas no el código fuente?
-
Hola proba así, no hace falta que agregue el control inet. (en este ejemplo use un msgbox no te va a mostrar todo el texto porque el msgbox tienen un limite pero en un textbox debería entrar todo.
Option Explicit
Private Sub Form_Load()
Me.Show
MsgBox GetWebText("http://leandroascierto.com/foro/index.php?topic=3114.0")
End Sub
Private Function GetWebText(ByVal sUrl As String) As String
'On Error Resume Next
Dim m_Inet As Object
Dim HtmlDOC As Object
Dim i As Long
Set m_Inet = CreateObject("MSXML2.ServerXMLHTTP")
m_Inet.open "GET", sUrl, False
m_Inet.send
If m_Inet.Status = 200 Then
Set HtmlDOC = CreateObject("htmlfile_FullWindowEmbed")
HtmlDOC.body.innerHTML = m_Inet.responsetext
'HtmlDOC.body.innerHTML = StrConv(m_Inet.responseBody, vbUnicode)
GetWebText = HtmlDOC.body.innerText
End If
End Function
-
Hola Leandro, lo he probado y me anda bien, pero tengo la duda de que, ¿por qué no logra andarme con esta URL? "http://www.google.es/#q=hola", ya que me muestra un espacio en blanco.