VB讀取網頁數據

Microsoft Internet Tramnsfer Control 6.0 控件

Dim sj As String

Private Sub Command1_Click()

sj = Inet1.OpenURL("/dlt/dltlssj/index.html")

sj = Mid(sj, InStr(sj, "詳情</td>"), 600)

Text1.Text = Mid(sj, InStr(sj, "&nbsp") - 3, 2)

sj = Mid(sj, InStr(sj, "&nbsp") + 1, 600)

Text1.Text = Text1.Text & "," & Mid(sj, InStr(sj, "&nbsp") - 4, 2)

sj = Mid(sj, InStr(sj, "&nbsp") + 1, 600)

Text1.Text = Text1.Text & "," & Mid(sj, InStr(sj, "&nbsp") - 3, 2)

sj = Mid(sj, InStr(sj, "&nbsp") + 1, 600)

Text1.Text = Text1.Text & "," & Mid(sj, InStr(sj, "&nbsp") - 3, 2)

sj = Mid(sj, InStr(sj, "&nbsp") + 1, 600)

Text1.Text = Text1.Text & "," & Mid(sj, InStr(sj, "&nbsp") - 3, 2)

sj = Mid(sj, InStr(sj, "&nbsp") + 1, 600)

Text1.Text = Text1.Text & ",+"

Text1.Text = Text1.Text & "," & Mid(sj, InStr(sj, "&nbsp") - 3, 2)

sj = Mid(sj, InStr(sj, "&nbsp") + 1, 600)

Text1.Text = Text1.Text & "," & Mid(sj, InStr(sj, "&nbsp") - 3, 2)

End Sub

上一篇:貨幣基金是什麽，求助！

下一篇:湘西趕屍是怎麽回事呢？