主题：数据下载

 

你要抓取哪一天的数据？

比如现在这时段到晚上12点前所有数据，该怎样写

甜老师，动态加载我的方法有沒有错，25楼的代码终止日期我己改为为today

没有问题

这计划管理有时段控制吗？比如这个例子的数据是两个时段的：10.00到22.00是十分钟22.00到02.00是五分钟。可以分开设置时段的时间间隔吗？

使用计数法，把间隔设置为5分钟，判断当前时间，如果是10.00到22.00，那么计数2次，如果是22.00到02.00就计数一次

 谢谢老师，

老师，临时表怎样转为数据表？临时表每抓取一次数据就保存一次为数据表。

看懂下面代码

 

Dim startDate As Date = "2018-4-15"
Dim endDate As Date = "2018-4-18"
Dim dt As DataTable = DataTables("数据下载日期表")

Dim d As Date = startDate
Do While d <= endDate
    If d > Date.today Then
        msgbox("不能查找大于今天的数据" & d)
    Else
        Dim fdr As DataRow = dt.Find("日期 = #" & d & "#")
        If fdr Is Nothing Then
            fdr = dt.AddNew
            fdr("日期") = d
        End If
    End If
    d = d.AddDays(1)
Loop

dim dt2 as datatable = datatables("老时时彩")
Dim web As new System.Windows.Forms.WebBrowser
For Each rw as datarow In dt.select("下载 = false")
    StartDate = rw("日期")
    Dim str As String = Format(startDate, "yyyy-MM-dd_yyyy-MM-dd")
    str = "http://chart.cp.360.cn/kaijiang/kaijiang?lotId=255401&spanType=2&span=" & str & "&key=" & Rand.Next(10000)
   
    web.Navigate(str)
    Do Until web.ReadyState = 4
        Application.DoEvents
    Loop
    Dim i As Integer = 0
    For Each dl As object In web.Document.GetElementById("his-tab").GetElementsByTagName("table")
        If dl.getattribute("classname") Like "tr-odd*" Then
            For Each tr As object In dl.GetElementsByTagName("tr")
                Dim tds = tr.GetElementsByTagName("td")
                If tds.count >= 5 AndAlso tds(0).Innertext > "" Then
                    Dim ndr As DataRow = dt2.Find("日期=#" & startDate & "# and 期号='" & tds(0).innertext & "'")
                    If ndr Is Nothing Then ndr = dt2.addnew
                    ndr("日期") = startDate
                    ndr("期号") = tds(0).innertext
                    ndr("开奖号") = tds(1).innertext
                End If
            Next
        End If
    Next
    If StartDate < Date.today Then
        rw("下载") = True
    End If
Next

辛苦了老师，万分感谢