如何读取html文件内容？

Question

Dim s As String
Private Sub Command1_Click()
Dim str As String
Open "yourfilename path" For Input As #1
   Do While Not EOF(1)
    Line Input #1, str
      s = s + str + vbCrLf
    Loop
Close #1
Text1.Text = s
End Sub

Answer 1

Private Function GetHtmlText(ByVal InputString As String) As String
'    Author:吴文智
'      Date:2002-06-14
'Description:从Html文件中解析出文本内容    Dim lngCount As Long '记数器
    Dim lngI As Long
    Dim strTemp As String '用来存放操作过程中的字符串
    
    lngCount = 0
    '从尾开始可以为Mid函数的使用带来方便，不必总是重新计算长度
    For lngI = Len(InputString) To 1 Step -1
        Select Case Mid(InputString, lngI, 1)
        Case ">"
            '找到标志符，开始记数
            lngCount = 1
        Case "<"
            '标识符结束，开始截除标识符
            If lngCount > 0 Then
                '这里用了strTemp来存放结果，如果直接用InputString，那第二个Mid函数就会出错了，呵呵
                strTemp = Mid(InputString, 1, lngI - 1) & Mid(InputString, lngI + lngCount + 1)
                InputString = strTemp
            End If
            
            lngCount = 0
        Case Else
            '标识符尚未结束，累加
            If lngCount > 0 Then lngCount = lngCount + 1
        End Select
    Next
    
    GetHtmlText = InputString
End Function

Answer 2

使用DHTML Edit Control For IE5中的控件DHTMLEdit