请问怎样将html格式文档转换成纯文本文档？

Question

首先引入 Microsoft HTML Object Library:Dim WithEvents x As HTMLDocument
Dim oh As HTMLDocument
Private Sub Command1_Click()
    Set x = New HTMLDocument
    Set oh = x.createDocumentFromUrl("http://www.applevb.com/index.html", "null")
End SubPrivate Sub x_onreadystatechange()
    If x.readyState = "complete" Then
        Debug.Print "abcd"
        If Not oh.body Is Nothing Then
            Debug.Print oh.body.outerText
        End If
    End If
End Sub

Answer 1

感觉问题应该解决了90%,可能是版本不同的原因,我在引用html library后,其中的HTMLDocument对象没有createDocumentFromUrl这个方法,以create...打头的只有createDocumentFragment,createElement,createStyleSheet,createTextNode四个,从参数来看好象接近Open方法,但好象又不是,还没明白,再请教一下老大,谢谢

Answer 2

TEXT=WEBBROWSER1.DOCUMENT.BODY.INNERTEXT
OPEN "C:\AFILE" FOR OUTPUT AS #1
   PRINT #1,TEXT
CLOSE #1

Answer 3

请问怎样将多个html格式文档转换成一个纯文本文档中？

Answer 4

跟一个没什么区别呀，就是HTML一个一个读出来就可以了。