GUI介面抓不同網頁數值依序寫入-已解决问题区-AUTOIT CN

fancky 发表于 2009-2-26 13:43:39

GUI介面抓不同網頁數值依序寫入

想請問我程式在31～51行的For Next迴圈中，我設計要依序讀出不同網頁的數值，然後依序填入，不過寫出來只會讀到第一個網頁然後顯示第一列資料而已，不會讀第二個網頁顯示第二列資料，一直循環下去，該如何修正呢？

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <IE.au3>
#include <Array.au3>

Dim $oInput
Dim $Address
Dim $ImageAddress
Dim $ListView
Dim $j

$Address="B15,072";查詢代碼
$Address="B09,001"

$ImageAddress="http://allsharing.net/drupal_5_1/lineworld/fund/html/0549.htm"
$ImageAddress="http://allsharing.net/drupal_5_1/lineworld/fund/html/BLKMEMAA.htm"

#Region ### START Koda GUI section ### Form=D:\AutoIt\腳本\tabbed pages.kxf
$dlgTabbed = GUICreate("Tabbed Notebook Dialog", 500, 298, 261, 182);寬高左側上方
GUISetIcon("D:\005.ico")
$PageControl1 = GUICtrlCreateTab(8, 8, 396, 256)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)

$TabSheet1 = GUICtrlCreateTabItem("Funds")
$ListView1 = GUICtrlCreateListView("Item|Date|Name|Address|Value", 8,26,400,240);左側上方寬高

;讀取網頁表格數據
For $j=0 To $j=1

$oIE2 = _IECreate ("http://fund.cnyes.com/fund_nav.asp?fundcode=" & $Address[$j],0,0,1,0);不顯示IE 0 0 1 0
$oInputs = _IETableGetCollection ($oIE2) ;返回指網頁內所有表格的目標變量
$iNumTables = @extended ;文檔內所以表格的數量
$i = 14;指定顯示第幾個表格欄位 $i+1個
$table = _IETableGetCollection ($oIE2,$i)
$oInput = _IETableWriteToArray ($table) ;讀取指定表格內的數據,寫入到數組
;

;讀入全部資料
;For $i=0 To UBound($oInput,2)-1          ;行
;Dim $lv_item=""
;For $j=UBound($oInput,1)-1 To 0 Step -1;列
;$lv_item=$oInput[$j]&"|"&$lv_item
;Next
;GUICtrlCreateListViewItem($lv_item,$ListView1)
;Next

$ListView[$j] = GUICtrlCreateListViewItem($j&"|"&$oInput&"|"&$oInput&"|"&$oInput&"|"&$oInput, $ListView1)
Next

GUICtrlSetState(-1,$GUI_SHOW); will be display first
$TabSheet3 = GUICtrlCreateTabItem("Image")

;嵌入圖片
$oIE_code = _IECreateEmbedded ()
$GUIActiveX = GUICtrlCreateObj($oIE_code, 8,25,396,250);定義內嵌IE 窗口大小
;嵌入圖片結束

$TabSheet2 = GUICtrlCreateTabItem("IE TAB")

;嵌入IE在分頁上
$oIE = _IECreateEmbedded ();Create a Webbrowser object suitable for embedding in an AutoIt GUI with GuiCtrlCreateObj().
$GUIActiveX = GUICtrlCreateObj($oIE, 8,25,396,250);定義內嵌IE 窗口大小
;嵌入IE在分頁上結束

GUICtrlCreateTabItem(""); end tabitem definition
$Button0 = GUICtrlCreateButton("&GetImage0", 420, 46, 65, 20, 0);左側上方按鈕寬度按鈕高度?
$Button1 = GUICtrlCreateButton("&GetImage1", 420, 70, 65, 20, 0);左側上方按鈕寬度按鈕高度
$Button2 = GUICtrlCreateButton("&OK", 166, 272, 75, 25, 0)
$Button3 = GUICtrlCreateButton("&Cancel", 246, 272, 75, 25, 0)
$Button4 = GUICtrlCreateButton("&Help", 328, 272, 75, 25, 0)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
   Case $Button0
Get_fakeimage()
;嵌入IE在分頁上
         _IENavigate ($oIE, $ImageAddress);將IE指向URL
         ;嵌入IE在分頁上結束
         Get_image()
   Case $Button1
Get_fakeimage()
;嵌入IE在分頁上
         _IENavigate ($oIE, $ImageAddress);將IE指向URL
         ;嵌入IE在分頁上結束
         Get_image()
EndSwitch
WEnd

Func Get_fakeimage()
;嵌入圖片
_IENavigate ($oIE_code, "about:blank",1)
;加載一個空白網頁，可以自定一個網頁，讓驗證碼圖片顯示左左對齊，頂部對齊，如果你會HTML應該明白什麼意思
$oBody = _IETagNameGetCollection($oIE_code, "body", 0)
_IEDocInsertHTML($oBody, 'IE加載中...', "afterbegin");在嵌入IE底部追加文字
;嵌入圖片結束
EndFunc
Func Get_IE()
;嵌入IE在分頁上
_IENavigate ($oIE, $ImageAddress);將IE指向URL
;嵌入IE在分頁上結束
EndFunc
Func Get_image()
$oImg = _IEImgGetCollection ($oIE,0);返回IE文檔內IMG
$oPic = $oIE.Document.body.createControlRange()
$oPic.Add($oImg)
$oPic.execCommand("Copy");複製到剪貼板
$ImageFilePath = ClipGet();獲取路徑，在臨時文件裡面
_IEAction ( $oIE_code,"refresh" );刷新嵌入IE頁面
$oBody = _IETagNameGetCollection($oIE_code, "body", 0)
_IEDocInsertHTML($oBody, '<img src='& FileGetShortName($ImageFilePath) &'>', "afterbegin");在嵌入IE底部追加圖片顯示
EndFunc

[ 本帖最后由 fancky 于 2009-2-26 14:27 编辑 ]

cnsnc 发表于 2009-2-26 14:22:31

for $j=0 to 1

fancky 发表于 2009-2-26 14:27:04

原來我是這個小地方沒注意到，太慚愧了，感謝您的幫忙

页: [1]

AUTOIT CN's Archiver

GUI介面抓不同網頁數值依序寫入