システムトレーダーの冒険の書

自作のプログラムでシステムトレードを行っています。ポジション完全公開で、シストレやプログラミングについて書いていきます。相互リンク募集中です。

HTAで現在の株価を取得するツールを作る

ブログランキング参加中!!

過去にExcel VBA を利用してWebからデータを持ってくる手法を紹介しましたが、
記事の方針としては、読んだ人が記事の内容を応用して
各自のツールに組み込めば使えるように書きました。

人によって必要なデータの種類、使い方は異なるので
出来るだけ汎用性を持たせるにはそうするしかないと思ってやったのですが、
もしかしたら実際に活用してくれた人って少ないんじゃないかと思い、
今日はコピーすれば完成する株価取得ツール(FXも対応)を紹介します。

手順
1.Windowsのメモ帳を開く(ほかのOSは未対応)
2.続きを読むを押して、出てくるコードを貼り付ける
3.株価取得.hta という名前でファイルを保存する
4.保存したファイルをダブルクリックしプログラムを起動する
5.コード枠に株価コード(トヨタなら7302)や通貨ペア(ドル円は USDJPY)や、
 その他いろいろ(日経平均は998407 NYダウは ^DJI など)を入力
6.価格取得ボタンを押す

これで現在の価格を取得できます。

※注意:
プログラムを体験してもらうのが目的のコードのため、
あまりよいプログラムになっていません。
このプログラムを使うことによって生じたいかなる損失についても
責任を負いかねます。


【人気ブログをチェック】

<!--この下の行からコピー-->
<!DOCTYPE hmtl>
<title>価格取得ツール</title>
<SCRIPT>
window.resizeTo( 400, 270 );
</SCRIPT>
コード:<input Name="code" type="text">
価格:<input Name="price"type="text" readonly><br>
コード:<input Name="code" type="text">
価格:<input Name="price"type="text" readonly><br>
コード:<input Name="code" type="text">
価格:<input Name="price"type="text" readonly><br>
コード:<input Name="code" type="text">
価格:<input Name="price"type="text" readonly><br>
コード:<input Name="code" type="text">
価格:<input Name="price"type="text" readonly><br><br>
<input type="button" value="価格取得" onClick="run()"><br><br>
<a href="http://yutarosnotebook.blog.fc2.com/">ブログへ</a>
<script type="text/VBScript">
Sub run()
for i = 0 to 4
cd = document.getElementsByName("code").Item(i).value
if cd <> "" then
pr = getNowPrice(cd)
else
pr = ""
end if
document.getElementsByName("price").Item(i).value = pr
next
End Sub
Function getNowPrice(Code)
url = "http://stocks.finance.yahoo.co.jp/stocks/detail/?code=" & Code
With CreateObject("MSXML2.XMLHTTP")
Call .Open("GET", URL, False)
Call .send
html = .responseText
End With
if InStr(html, "見つかりませんでした") > 0 then
getNowPrice = "エラー"
Exit Function
end if
with New RegExp
.Pattern = "<td class=""stoksPrice"">(.*?)</td>"
getNowPrice = .Execute(html).Item(0).SubMatches(0)
End With
If Not IsNumeric(getNowPrice) Then
getNowPrice = "価格がありません"
End If
End Function
</Script>
<!--この上の行までコピー-->
[ 2013/03/02 11:11 ] シストレツール | TB(0) | CM(0)
コメントの投稿












管理者にだけ表示を許可する
トラックバック
この記事のトラックバックURL

プロフィール

yutaro

Author:yutaro
年齢:30代
職業:IT系(ベンダーからWeb系に転職)
住所:関東

Excelで自作したツールのシグナルにしたがってシステムトレードをやっています。

相場暦:
2005年10月からFX開始
就職前後に一旦取引を中断し、
2012年6月から株をやってます

トレードの目標は2020年1月1日を億万長者としてむかえること。

Twitterアカウントはこちら。



ご連絡を取りたいかたはブログのコメント欄、メールフォーム、Twitter、などどちらからでもOKです。システムトレード、プログラミング、数学、などのほか、飲み会のお誘いなど何でもどうぞ。

書籍・グッズの購入はこちら
メールフォーム

名前:
メール:
件名:
本文:

ブログランキング

株式投資ブログランキング
アクセスカウンタ