以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  计划管理设置数据更新  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174827)
--  作者：otterlike
--  发布时间：2022/2/8 11:38:00
--  计划管理设置数据更新
各位老师好，我找到了一个实时更新股价的数据接口：http://qt.gtimg.cn/q=sz000568，在浏览器中测试时，每隔5秒刷新一次数据，测试显示数据能够得到有效更新。然后我在计划管理中写了如下代码：
 For Each dr As Row In Tables("数据采集").Rows
        Dim hc As New HttpClient("http://qt.gtimg.cn/q=" & dr("代码"))
        hc.Resp
        Dim sts() As String = hc.GetData.Trim(" ").Split("~")
            dr("名称复核")= sts(1)
            dr("当前价")= sts(3)
            dr("昨日收盘价")= sts(4)
  Next

执行间隔设置为：5000，却发现股价不能及时更新，请问问题出在哪里？
--  作者：有点蓝
--  发布时间：2022/2/8 11:48:00
--  
这种应该去咨询接口方
--  作者：WELOVEFOX
--  发布时间：2022/2/8 15:42:00
--  
应该是
1.没有提前对dr("代码")列空判断，代码为空，sts() As String为空，导致错误，要么代码设置跳过，要么筛选。
2.没有对dr("代码")列非空时判断返回字符串是否符合需求。如http://qt.gtimg.cn/q=FDF，http://qt.gtimg.cn/q=，都是错误的，代码设置判断对不存的结果，如"v_pv_n;"进行跳过。