Dim obj_down As New System.Net.WebClient()
Dim drs As List(Of DataRow) = DataTables("表A").Select("股piao代码 is not null")
For Each dr As DataRow In drs
Dim data As String = obj_down.DownloadString("http://hq.sinajs.cn/list=" & dr("股piao代码"))
Dim start As Integer = data.IndexOf("""") + 1
Dim en As Integer = data.IndexOf(""";")
Dim datas() As String = data.SubString(start, en - start).Split(",")
If datas.length > 10 then
dr("股piao名字") = datas(0)
dr("今日开盘") = datas(1)
dr("昨日收盘") = datas(2)
dr("当前价格") = datas(3)
Else
End If
Next
加好友 
发短信
Post By：2018/8/31 10:20:00 [显示全部帖子]
