怎么获得网页里的文字？

Question

我现在得到了网页的html代码，现在只想从这些代码里获得文字。web控件不用。有什么办法吗？

Answer 1

Dim dWinFolder     As New ShellWindows
Dim WithEvents eventIE       As WebBrowser_V1Private Sub Command1_Click()
    Dim objIE     As Object    For Each objIE In dWinFolder
        If objIE.LocationURL = List1.List(List1.ListIndex) Then
            Set eventIE = objIE
            Command1.Enabled = False
            List1.Enabled = False
            Text1.Text = ""
            Exit For
        End If
    Next
End SubPrivate Sub eventIE_NavigateComplete(ByVal URL As String)
    Text1.Text = Text1.Text + Chr(13) + Chr(10) + URL
End Sub'在运行前。点击菜单   Projects   ¦   References   项，在Available   References   列表中选择Microsoft   Internet   Controls项将Internet对象引用介入到工程中Private Sub Form_Load()
    Dim objIE     As Object    For Each objIE In dWinFolder
        If InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then
            List1.AddItem objIE.LocationURL
        End If
    Next
    Command1.Caption = "正文"
End SubPrivate Sub Form_Unload(Cancel As Integer)
    Set dWinFolder = Nothing
End SubPrivate Sub List1_Click()
    Dim objDoc     As Object
    Dim objIE     As Object    For Each objIE In dWinFolder
        If objIE.LocationURL = List1.List(List1.ListIndex) Then
            Set objDoc = objIE.Document            For i = 1 To objDoc.All.length - 1
                If objDoc.All(i).tagname = "BODY" Then
                    Text1.Text = objDoc.All(i).innerText
                End If
            Next
            Exit For
        End If
    Next
  End Sub

Answer 2

web不用的话,那只能用winsock get 到源代码然后一个个循环去读,你不觉得很慢吗?要不，用VBS也能做,8过就不素VB的范围了

Answer 3

vbs 也可以 啊！能放代码出来看看吗？