如何显示黄金交易网站的行情

oo2010

这是一个黄金贵金属的交易网站，http://www.kitco.cn/
想创建一个窗口，在窗口嵌入一个IE的对象，且只显示网站上面的一部份，如图片所示

heroxianf

看上去也是我想学习的，顶一下。。

ap112

看在楼主头像的份上，给个源码。

#include <IE.au3>
#include <Array.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
$Form1 = GUICreate("Form1", 620, 360)
local $a = _GetData()
$ListView1 = GUICtrlCreateListView($a[0], 10, 10, 600, 340)
For $i = 1 To 8
        GUICtrlCreateListViewItem($a[$i],$ListView1)
Next

GUISetState(@SW_SHOW)


While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

Func _GetData()
        Local $oIE = _IECreate("http://www.kitco.cn/",0,0)
        Local $oTable = _IETableGetCollection ($oIE, 49)
        Local $aTableData = _IETableWriteToArray ($oTable, True)
        _IEQuit($oIE)
        Local $str,$listviewitem[9]
        For $i = 0 To 8
                $str = ""
                For $j = 0 To 8
                        $str &= $aTableData[$i][$j]&"|"
                Next
                $listviewitem[$i] = StringTrimRight($str,1)
        Next
        Return $listviewitem
endfunc

heroxianf

回复 3# ap112

楼主头像我沾光了

heroxianf

看在楼主头像的份上，给个源码。
ap112 发表于 2015-9-21 16:12

运行后没界面啊  求指点。

ap112

回复 5# heroxianf


   第八行代码是从网站上取数据，取数据越快，显示越快。

运行后等两分钟就看到了，楼主可以优化一下呀！先显示界面，在加载数据。

需要说一声有空帮你改改。。。。。不过等两分钟看看情况

heroxianf

回复 6# ap112


    我是WIN7 64位   运行后确实连界面都没有   等了两分钟也没有。

ap112

回复 7# heroxianf

代码运行图如下：


实在不行你运行下面代码看看

#include <IE.au3>
#include <Array.au3>
$oIE = _IECreate("http://www.kitco.cn/")
$oTable = _IETableGetCollection ($oIE, 49)
$aTableData = _IETableWriteToArray ($oTable, True)
_ArrayDisplay($aTableData)

这是我的运行的图片：

ap112

楼主电脑或者RP有故障呀，哈哈

heroxianf

回复 9# ap112

可能是我系统问题  第二个代码还是没有界面，运行过程没有提示错误。

ap112

ap112

#include <IE.au3>
#include <Array.au3>
$oIE = _IECreate("http://www.kitco.cn/")
$oTable = _IETableGetCollection ($oIE, 49)
$aTableData = _IETableWriteToArray ($oTable, True)
_ArrayDisplay($aTableData)
MsgBox(0,"提示","已完成")

等待程序运行完，也就是不弹出Msgbox就没运行完，你的网速不行，不过这个网站确实加载会很慢很慢。不行就点击运行，出去吃顿饭洗个澡再回来看看还是没结果吗？期间电脑一点都不要动。

wangms

回复 3# ap112

请教，表索引号49是通过什么好办法对网页源码分析得出的？

heroxianf

回复 12# ap112

成功了，谢谢，再问一个问题：我听别人说要通过正规则表达式挖出来 你这个不像正规则挖出来的。如何做到挖出指定窗口。

ap112

回复 14# heroxianf


    _IETableGetCollection 你看看这个函数就明白了。因为你的网站一眼看过去就有很多Table，我是枚举出来的，才知道49.