URLから数値をとるには〆(。。)?

解決

ひろ URL 2005-02-16 18:22:01 No: 119673

はじめましてVB6の初心者ですヾ(・ω・`)

あまり調べてないのですが（汗）URLから数値などを取り出せるのでしょうか？趣味で株のデータソフトを作りたいのですが1時間おきに例として
http://quote.yahoo.co.jp/q?s=9633 の取引値を引数,配列にいれたいんですが URLからのデータのやり取りとかしたことないので,どのボックスとかを使うとうまくいくかわからないので親切な方アドバイスよろしくお願いしますm(__)m

LESIA 2005-02-16 20:50:22 No: 119674

そのURLから取引値を取得するなら、こんな感じです。
URLのソースをみればわかりますが、取引値は、25番目のtdタグの値に
なっています。(インデックスは0から始まるので24になります)
詳しくは、DHTMLについて調べてみてください。

Dim objIE As Object

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Visible = True

objIE.Navigate "http://quote.yahoo.co.jp/q?s=9633"

Do While objIE.Busy = True
DoEvents
Loop

MsgBox objIE.document.getElementsByTagName("td").Item(24).innerText

ひろ 2005-02-17 03:05:49 No: 119675

ご返事ありがとうございます(=^人^=)

少し調べてからやってみます（汗）
サンプルソースありがとうございます

ひろ 2005-02-17 10:56:20 No: 119676

LESIAさんありがとうございました

URLのソースを見てもところどころバイナリでかかれているからよく25番目とわかりますね
すごいです

あと
Do While objIE.Busy = True
DoEvents
Loop
とループさせているのはIEがつながるまでループしろという意味ですかね？

とにかくありがとうでした

LESIA 2005-02-17 20:53:48 No: 119677

> URLのソースを見てもところどころバイナリでかかれているからよく25番目とわかりますね

バイナリではなく、日本語が文字化けしているだけです。
半角はちゃんと読めるので、取引値でソースを検索してそこから上方向へTDタグを
検索していけば、簡単にわかりますよ。

> あと
> Do While objIE.Busy = True
> DoEvents
> Loop
> とループさせているのはIEがつながるまでループしろという意味ですかね？

この場合は、Navigateで指定したページがすべて表示されるまで待つっていう
意味ですね。