下载XML数据（双色球）

蓝天630902

Sub 下载XML数据()
    下载期号数
    Dim ie As Object, nod, arr(1 To 5000, 1 To 32)
    Set ie = CreateObject("Microsoft.XMLHTTP")
    bb = Sheet2.Range("a65536").End(xlUp).Row
    For p = 2 To bb
        ie.Open "get", "http://zx.500wan.com/static/info/kaijiang/xml/ssq/" & Format(Sheet2.Cells(p, 1), "00000") & ".xml", False
        ie.Send
        i = 0
        For Each nod In ie.responseXML.getElementsByTagName("xml")(0).ChildNodes
            i = i + 1
            arr(p, i) = nod.Text
        Next
    Next p
    Sheet1.Range("a1:af" & bb) = arr
    Sheet1.[a1:af1] = Split("PeriodicalNO,RedResult,OutBall,BlueResult,HappySunDayResult,ResultTime,EncashTime,Money1,Num1,Money2,Num2,Money3,Num3,Money4,Num4,Money5,Num5,Money6,Num6,HappySunDayMoney,HappySunDayNum,TotalMoney,CCMoney,AddCCMoney,HappyResult,HappyMoney,HappyNum,HappyCCMoney,BallsNum,RedFX,BlueFX,TiDian", ",")
End Sub

Sub 下载期号数()
    Dim temp, s
    With CreateObject("Microsoft.XMLHTTP")
        .Open "GET", "http://lottery.sports.sohu.com/open/ssq.shtml", False
        .Send
        n = Range("a65536").End(xlUp).Row
        temp = Split(.responsetext, "</option><")
        For i = 1 To UBound(temp) - 1
            s = Split(temp(i), ">")
            Sheet2.Cells(UBound(temp) - i + 1, 1) = s(UBound(s))
        Next i
    End With
End Sub

goldowl2011

Mark it .Thank you.

cool冷酷到底

谢谢分享！

引子玄

引子玄 发表于 2012-7-28 16:05
原来XML具有自主安排版面的功能，比如博客，可自由拖拽栏目位置.
由此，让我想起了“数据包”概念，猜 ...

数据包 - 简介

“包”(Packet)是TCP/IP协议通信传输中的数据单位，一般也称“数据包”。有人说，局域网中传输的不是“帧”(Frame)吗？没错，但是TCP/IP协议是工作在OSI模型第三层(网络层)、第四层(传输层)上的，而帧是工作在第二层(数据链路层)。上一层的内容由下一层的内容来传输，所以在局域网中，“包”是包含在“帧”里的。 名词解释：OSI(Open System Interconnection，开放系统互联)模型是由国际标准化组织(ISO)定义的标准，它定义了一种分层体系结构，在其中的每一层定义了针对不同通信级别的协议。OSI模型有7层，1?7层分别是：物理层、数据链路层、网络层、传输层、会话层、表示层、应用层。OSI模型在逻辑上可分为两个部分：低层的1?4层关注的是原始数据的传输；高层的5?7层关注的是网络下的应用程序。 我们可以用一个形象一些的例子对数据包的概念加以说明：我们在邮局邮寄产品时，虽然产品本身带有自己的包装盒，但是在邮寄的时候只用产品原包装盒来包装显然是不行的。必须把内装产品的包装盒放到一个邮局指定的专用纸箱里，这样才能够邮寄。这里，产品包装盒相当于数据包，里面放着的产品相当于可用的数据，而专用纸箱就相当于帧，且一个帧中只有一个数据包。 “包”听起来非常抽象，那么是不是不可见的呢？通过一定技术手段，是可以感知到数据包的存在的。比如在Windows 2000 Server中，把鼠标移动到任务栏右下角的网卡图标上(网卡需要接好双绞线、连入网络)，就可以看到“发送：××包，收到：××包”的提示。通过数据包捕获软件，也可以将数据包捕获并加以分析。 就是用数据包捕获软件Iris捕获到的数据包的界面图，在此，大家可以很清楚地看到捕获到的数据包的MAC地址、IP地址、协议类型端口号等细节。通过分析这些数据，网管员就可以知道网络中到底有什么样的数据包在活动了。 附： 数据包的结构 数据包的结构非常复杂，不是三言两语能够说清的，在这里主要了解一下它的关键构成就可以了，这对于理解TCP/IP协议的通信原理是非常重要的。数据包主要由“目的IP地址”、“源IP地址”、“净载数据”等部分构成。 数据包的结构与我们平常写信非常类似，目的IP地址是说明这个数据包是要发给谁的，相当于收信人地址；源IP地址是说明这个数据包是发自哪里的，相当于发信人地址；而净载数据相当于信件的内容。 正是因为数据包具有这样的结构，安装了TCP/IP协议的计算机之间才能相互通信。我们在使用基于TCP/IP协议的网络时，网络中其实传递的就是数据包。理解数据包，对于网络管理的网络安全具有至关重要的意义。

lmylmy224

谢谢分享！学习了

引子玄

XML和HTML的区别

XML和HTML都来自于SGML，它们都含有标记，有着相似的语法，HTML和XML的最大区别在于：HTML是一个定型的标记语言，它用固有的标记来描述，显示网页内容。比如< H1>表示首行标题，有固定的尺寸。相对的，XML则没有固定的标记，XML不能描述网页具体的外观，内容，它只是描述内容的数据形式和结构。


这是一个质的区别：网页将数据和显示混在一起，而XML则将数据和显示分开来。

我们看上面的例子，在myfile.htm中，我们只关心页面的显示方式，我们可以设计不同的界面，用不同的方式来排版页面，但数据是储存在myfile.xml中，不需要任何改变。


(如果你是程序员，你会惊讶的发现，这与模块化面向对象编程的思想极其相似！其实网页何尝不是一种程序呢？)

正是这种区别使得XML在网络应用和信息共享上方便，高效，可扩展。所以我们相信，XML做为一种先进的数据处理方法，将使网络跨越到一个新的境界。

引子玄

引子玄 发表于 2012-7-28 15:50
XML和HTML的区别
XML和HTML都来自于SGML，它们都含有标记，有着相似的语法，HTML和XML的最大区别在于：HTM ...

原来XML具有自主安排版面的功能，比如博客，可自由拖拽栏目位置.
由此，让我想起了“数据包”概念，猜想主要是针对XML网页的抓取办法。

亚聪

资料不错。

qianxiaofeng

谢谢分享！

lzqlaj

转换成2003运行出错误。