大家看一下这个 VB代码！！高手来

显示全部楼层 · 2009-6-28 10:44:49

我想把网页上的文字转换成TXT文档，可是执行了以下代码后，把网页内容保存了两边，怎么弄？？代码：
Private Sub Command1_Click()

'WebURL = "http://www.gdfc.org.cn/Lottery/ComputerLottery/c736_history.html"

WebURL = Text1.Text

WebBrowser1.Navigate WebURL

End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

Me.Caption = WebBrowser1.LocationName & "
加载完成"

Set doc = WebBrowser1.Document

Set objhtml = doc.body.createtextrange()

If Not IsNull(objhtml) Then

strhtml = WebBrowser1.Document.body.innertext

FreeFileNum = FreeFile

Open "C:\Docume~1\Admini~1\桌面\1.txt" For Output As #FreeFileNum

Print #FreeFileNum, strhtml

Close #FreeFileNum

MsgBox "任务完成", vbOKOnly, "提示"

End If

End Sub

千问 · 2009-6-28 10:44:49

WebURL是啥？这句也有问题 Open "C:\Docume~1\Admini~1\桌面\1.txt"要用绝对路径...