程式 - VB6+html已經下載網頁中的資料,想取出網頁中的一些數字字串沒找到怎麼辦?

[飛行船大大]

--------------------
閱讀本主題的最佳解答
--------------------


我已經用INET 下載了此網頁
http://mis.tse.com.tw/indextseX.html
想取出網頁中右上方的 ( 總委買張數: 總委買筆數: 總委賣張數: 總委賣筆數: ) 這四組數字.
分細析其原始碼內容 ~竟找不到此網頁 符合畫面的數字.(因為我是要將數字 SHOW 在label中)
仔細看原始碼 ,原來是讀取server端的 資料成為變數名稱 所以數字字串不在.html 之中. 這4個變數名稱如下:
ODR1_BQTY
ODR1_BCNT
ODR1_SQTY
ODR1_SCNT

請問: vb6要如何 得知這4個變數內 的數值字串(要如何得知html內變數)?
~多謝回覆~

http://mis.tse.com.tw/indextseX.html

[mini]

觀察 javascript
可以分析出
sURL+sCSVFile+"?ID="+Now.getTime()
就是資料庫網址
也就是
http://mis.tse.com.tw/data/TSEIndex.csv?ID=目前時間

也可以直接將 http://mis.tse.com.tw/data/TSEIndex.csv 載回來
再讀取內部欄位值
(這份.csv 是純文字資料庫檔，可以透過 ADO 方式，或以檔案讀入方式分析)


另外一種方式 比較直接
利用執行該網頁 javascript
(http://forum.slime.com.tw/thread223407.html#post1875917)
但
可以分析的出來
裡面沒有一個單獨的函式可以供你直接使用 (不大能肯定... ※)
得到某某數值
所以就必須自己加入一小段 javascript程式碼
於原 javascript段落後

這時要用到 WebBrowser1
WebBrowser1.Document.Open
WebBrowser1.Document.Write 新的網頁原始碼
因此可能比較麻煩
(一小段 javascript程式碼 內容，請自行發揮程式寫作技能)


※ 直接使用 javascript函式
執行 actions 後 再執行 table.getText(i,2); 可以得到 ODR1_BQTY
但這個 i 要送進多少
請自行分析 table.response = function(data) 函式

[cwvdavid]

網頁的script有註解...

(iID == 0) 是 // 交易日期
(iID < 100) 是 // 指數 (1~99都是指數)
(iID < 200) 是 // 委託統計資料(100~199都是委託統計資料)
(iID == 200) 是 // 市場成交金額
(iID == 201) 是 // 市場成交筆數、股數

這個指的是...你用INET去把http://mis.tse.com.tw/data/TSEIndex.csv
下載回來之後...

直接抓開頭是"110", 以及"111"的那2行...就是你要的資料了...
"110","13:30:00","8,322,296","1,216,426"
"111","13:30:00","7,927,372","1,139,700"

[飛行船大大]

作者: mini

觀察 javascript
可以分析出
sURL+sCSVFile+"?ID="+Now.getTime()
就是資料庫網址
也就是
http://mis.tse.com.tw/data/TSEIndex.csv?ID=目前時間

也可以直接將 http://mis.tse.com.tw/data/TSEIndex.csv 載回來
再讀取內部欄位值
(這份.csv 是純文字資料庫檔，可以透過 ADO 方式，或以檔案讀入方式分析)

......

感謝 mini版主 和cwvdavid大大的解答
原來那個.cvs 檔是關鍵 (我太粗心了.)

.( 我猜想應該也是學ASP或網頁的這方面的專業)昨夜我有PM david大大 又麻煩他一次.

MINI大大的解答也是標準答案 也提示了不少資料可學習,( 看來我只會一種VB6是落伍了, 要好好加油. )

[mini]

個人也是vb6的愛用者...

.NET等哪天 M$將其內嵌於 windows後再說
C系列 開發便利與速度 不及 VB6

[cwvdavid]

我目前是什麼都碰啦.......

delphi, java, vb,
asp, jsp, php, asp.net, vb.net, c#
javascript, vbs.......

最近在玩LUA...(為了讓FreeGrab能夠下載檔案, 硬是去學起來...)

唉...沒一樣精通的...

[飛行船大大]

作者: cwvdavid

我目前是什麼都碰啦.......

delphi, java, vb,
asp, jsp, php, asp.net, vb.net, c#
javascript, vbs.......

最近在玩LUA...(為了讓FreeGrab能夠下載檔案, 硬是去學起來...)

呵呵..程式範疇很大 2位都是年輕有為...比我強多了
4年前評估過 自己和c java水土不和, 所以選中vb6
仍舊是主要是寫資料庫方面 (以前則是設計了10多年clipper).
但我還是耽心vb6不久 會被強迫升為net 又得經歷換版的陣痛.

約十天前 改了個QQ寵物小程式 給我兒女 讓他們送同班的好同學玩
QQ寵物 (內有235個flash檔)從大陸某論壇抓的. 我修改為繁體版 並加了form3.frm
可以在 子目錄103下,你可以自行換一個照片MYPIC.JPG ,和換一句話MYLIST.txt
送2位玩玩.
http://huhuge.hp.infoseek.co.jp/setup_DAVIDPET.exe