网页上精确提取数据(VB)

最新推荐文章于 2021-06-04 07:02:22 发布

原创

最新推荐文章于 2021-06-04 07:02:22 发布 · 4.2k 阅读

6 ·

CC 4.0 BY-SA版权

文章标签：

#webbrowser #vb #microsoft #object #internet #library

该程序使用VB，结合Microsoft Internet Controls和HTML Object Library，从股票网站上精确提取个股的基本信息，将数据保存到本地文件Data2.Txt。通过遍历网页元素，定位到数据预览标签，提取并存储股票代码对应的数据。

' 程序一：从网页上精确提取数据
'
' 为运行本程序，应在“菜单->工程->部件”中添加“Microsoft Internet Controls”
' 并在“菜单->工程->引用”中添加“Microsoft HTML Object Library”
'
' 为了简洁，程序仅下载九只个股的基本信息
Option Explicit
Private Const Form_ID = 1
Dim Code(9) As String
Dim Current As Long
Private Sub Form_Load()
Form1.MousePointer = 11
' 以下是个股代码
' 为了程序简洁，这里仅使用九只代码。
' 而在真实环境中，应从数据文件中读入全部个股代码。
Code(0) = "600001": Code(1) = "600002": Code(2) = "600003"
Code(3) = "600005": Code(4) = "600006": Code(5) = "600007"
Code(6) = "600008": Code(7) = "600009": Code(8) = "600010"
Current