如何读取html文件内容？

[chango]

有没有现成读取html文件内容 或 转换成文本文件的控件?

[hengxin54]

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

[foolishtiger]

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

[thinkeasy]

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

[lou_df]

webbrowser1.document.body.innertext