求原始碼。
至少能實作相當于“用ie打開指定網址，然后另存為某某.txt”的功能。
謝謝。
uj5u.com熱心網友回復：
liburl ？uj5u.com熱心網友回復：
僅供參考Private Function StrFormat(s As String) As String
On Error Resume Next
Dim Buf As String
Dim StrTemp As String
Dim c As String
Dim i As Long
Dim j As Long
Dim k As Long
Dim L As Long
Buf = s
Do
L = InStr(1, Buf, "<style", vbTextCompare)
If L > 0 Then
k = InStr(L + 6, Buf, "</style>", vbTextCompare)
If k > 0 Then
Buf = Left(Buf, L - 1) + Mid(Buf, k + 8)
Else
Buf = Left(Buf, L - 1)
Exit Do
End If
Else
Exit Do
End If
Loop
Do
L = InStr(1, Buf, "<script", vbTextCompare)
If L > 0 Then
k = InStr(L + 7, Buf, "</script>", vbTextCompare)
If k > 0 Then
Buf = Left(Buf, L - 1) + Mid(Buf, k + 9)
Else
Buf = Left(Buf, L - 1)
Exit Do
End If
Else
Exit Do
End If
Loop
Buf = Replace(Buf, "&", "&")
Buf = Replace(Buf, """, Chr(34)) '替換成雙引號
Buf = Replace(Buf, "<", "<")
Buf = Replace(Buf, ">", ">")
Buf = Replace(Buf, " ", "")
Buf = Replace(Buf, "<", " <")
Buf = Replace(Buf, ">", "> ")
Buf = Replace(Buf, " ", "")
Buf = Replace(Buf, Chr(26), " ")
Buf = Replace(Buf, Chr(10), " ")
Buf = Replace(Buf, Chr(9), " ")
Buf = Replace(Buf, Chr(13), " ")
Buf = LTrim(Buf)
Buf = RTrim(Buf)
'您可加入其他替換
StrTemp = ""
For i = 1 To Len(Buf)
c = Mid(Buf, i, 1)
Select Case c
Case "<"
If i <> 1 Then
StrTemp = StrTemp & Mid(Buf, j + 1, i - j - 1)
End If
Case ">"
j = i
End Select
Next i
L = Len(StrTemp)
Do
Buf = Replace(StrTemp, " ", " ")
i = Len(Buf)
If i = L Then Exit Do
L = i
StrTemp = Buf
Loop
StrFormat = Buf
End Function
uj5u.com熱心網友回復：
Private Sub Command1_Click()
With CreateObject("InternetExplorer.Application")
.navigate "http://bbs.csdn.net/topics/390471772"
Do While Not .readyState = 4
DoEvents
Loop
Open "d:\某某.txt" For Output As #1
Print #1, .document.innertext
Close #1
End With
End Sub
uj5u.com熱心網友回復：
Private Sub Command1_Click()
With CreateObject("InternetExplorer.Application")
.Visible = False
.navigate "http://bbs.csdn.net/topics/390471772"
Do While Not .readyState = 4
DoEvents
Loop
Open "d:\某某.txt" For Output As #1
Print #1, .document.All("post-394605125").All.tags("td")(1).innertext
Close #1
.Quit
End With
End Sub
uj5u.com熱心網友回復：
有點錯誤，Print #1, .document.innertext應該為：
Print #1, .document.body.innertext
uj5u.com熱心網友回復：
用vb自帶的winsock控制元件也行。發送http字串命令就獲得網頁原始碼流轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/153288.html
標籤：網絡編程
上一篇：VB亂碼