競馬予想コラム『蛸坊主の赤鉛筆』

2012年1回東京開催から無線LAN設備が変更になり、公衆無線LAN「Wi2 300」と「Au-WiFi」で無線LANが無料サービスされることになりました。回線スピードは以前のサービスよりも遅くなった感じがありますが、指定席エリアだけでなくパドックや館内でも無線LANが使えるようになり便利になりました。

この記事では競馬場やWINSで「Wi2 300」に接続する方法を紹介します。

…続きを読む »

私は競馬道OnlineのKOLデータ（出馬表出走馬）に掲載されている調教時計情報からピックアップした調教好走馬をTARGET frontier JVの馬印に取り込んで予想の参考にしています。

調教好走馬のピックアップ方法は単純で調教コース・脚色・馬場状態別に基準時計を設定して、その基準時計をクリアしたものを調教好走馬としています。

基準時計は毎年１月に過去２年間の調教時計をTARGET frontier JVで分析して設定しています。

この記事では「調教時計のアプローチ」と題して、数回に分けて調教時計の分析方法について解説します。

…続きを読む »

TARGET frontier JVのVer5.72 Rev010がリリースされました。今回のリビジョンアップで抽選除外馬の検索機能が充実されました。

私はオープン特別レースと１６００万円下条件レースの予想材料としてTARGET frontier JVのチェック馬とチェック馬コメントで抽選除外による優先出走権有効期間を管理しています。
オープン特別レース（重賞も含む）を抽選除外になった馬は、そこから２ヶ月はオープン特別レースに優先出走できます。（ハンデ戦の除く）
１６００万円下条件レースも同じく、抽選除外になった馬は、そこから２ヶ月は１６００万円条件レースに優先出走できます。（ハンデ戦除く）

今まで私は抽選除外による優先出走権利馬のチェック馬登録は以下の手順で行っていました。

1. 出馬表の抽選情報に表示されている馬をダブルクリックして馬データ画面を表示する。
2. 馬データ画面のチェック馬ボタンを選択する。
3. 馬データ画面のチェック馬ボタンを再度選択して、チェック馬コメントの編集を選択する。
4. コメント編集画面でチェック馬のコメントに抽選除外による優先出走権利情報を書き込む。
   コメントには優先出走権利の期間を書き込む。

抽選除外馬のチェック馬への登録作業は面倒で抽選除外馬が多いと登録に時間が掛かるのが悩みでした。

今回のリビジョンアップで機能追加された「本日の抽選除外馬一覧（馬データ検索）」と他の機能を組み合わせることで抽選除外馬のチェック馬への登録作業が素早くできるようになりました。
この記事では抽選除外馬の優先出走権利情報をチェック馬コメントに登録する方法を事例として、今回のリビジョンアップで機能追加された「本日の抽選除外馬一覧（馬データ検索）」の使い方を紹介します。

…続きを読む »

SONYデジタル録画双眼鏡ＤＥＶ−３を東京競馬場東京競馬場で使ってみました。ＤＥＶ−３は双眼鏡と３ＤデジタルＨＤビデオカメラレコーダーが一体化した製品です。私は競馬場に双眼鏡と一眼レフカメラの両方を持ち込んでいたので、両方の機能を１つの製品して使えるデジタル録画双眼鏡ＤＥＶ−３に魅力を感じています。

SONYデジタル録画双眼鏡ＤＥＶ−３

…続きを読む »

競馬ブックのPHOTOパドックをEvernoteに自動登録するワークフローをAutomatorとApplescriptで作成しました。Evernoteに登録したPHOTOパドックはMacやiPhoneなどのデバイスを問わずに閲覧することができるので便利です。

iPhone版EvernoteでPHOTOパドックを表示

…続きを読む »

競馬場で使うためにMacBook AIRを購入しました。MacBook AIRには11インチモデルと13インチモデルの２種類あるのですが、私は競馬場の指定席で使うことを意識して11インチモデルを選びました。

13インチモデルだとサイズが大きく、机に置くと奥の円形の突起やドリンクホルダーに触れて不安定になります。MacBook AIR の11インチモデルだと写真のように指定席の机に安定して置くことができます。

MacBook AIR 11インチ(閉じた状態)

私はMacBook AIRでVMware fusion 4を利用してTARGET frontier JVを使っています。VMware fusion4ではWindowsで動くアプリケーションをMacのアプリケーションのように動かすことができるので重宝しています。

…続きを読む »

Microsoftから次期OSであるWindows8 DP(Developer Preview)がリリースされたので、Windows8 DP(32bit版)でTARGET frontier JVが動作するか確認してみました。

TARGET frontier JV Ver 5.27とJV-LINK4.0の組合せで動作確認した結果、一応問題なく動作しました。
なお、TARGETの作者およびJRA-VANはWindows8でサポートすることを公式発表していませんのでWindows8でJV-LINKやTARGETを使う場合はサポート受けられませんのでご注意下さい。
また、Windows8 DP(Developer Preview)は製品出荷時に仕様が変更になる可能性がありますので、今後TARGETやJV-LINKが動作しない場合もありますのでご注意下さい。

…続きを読む »

TARGET frontier JVで出力したPDF競馬新聞や競馬データをEvernoteに登録するVBScriptスクリプトを作成しましたので興味のある方は使ってみてください。

VBScriptスクリプトの作りは単純です。指定されたフォルダに格納されているファイルをGMailに添付して、Evernoteメールアドレスに送信しています。

EvernoteとGMailのアカウントを持っていれば、TARGET frontier JVで出力したファイルを楽にEvernoteに登録することができます。

スクリプトの定数をご利用の環境にあわせて修正した上で、TARGET frontier JVのランチャ（外部プログラムの起動）に登録して使用してください。修正が必要な定数は以下の通りです。

• mailfolder　　　Evernoteに登録するファイルが格納されたフォルダ名
• evernotemail　   Evernoteのメールアドレス
• evernotebook　  Evernoteのノートブック名
• gmail_id　　　 GMailアドレス
• gmail_pass　　GMailパスワード

'=======================================================
'【ファイル】evernotemail.vbs
'【機能仕様】指定したフォルダに格納されているファイルを
'            ファイル単位にEvernoteにメール送信する。
'【来　　歴】2011.07.10　新規作成
'=======================================================
Option Explicit
Const mailfolder   = "c:\mail" #送信フォルダ名
Const evernotemail = "Evernoteのメールアドレス"
Const evernotebook = "TARGET" #ノートブック名
Const gmail_id     = "GMAILのメールアドレス"
Const gmail_pass   = "GMAILのパスワード"
Dim objMessage, strSchemas
Dim FSO, oDir, oFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oDir = FSO.GetFolder(mailfolder)
For Each oFile In oDir.Files
    '-------------------------------------------------------------
    Set objMessage = CreateObject("CDO.Message")
    strSchemas = "http://schemas.microsoft.com/cdo/configuration/"
    objMessage.Configuration.Fields.Item _
               (strSchemas & "sendusername") = gmail_id
    objMessage.Configuration.Fields.Item _
               (strSchemas & "sendpassword") = gmail_pass
    objMessage.Configuration.Fields.Item _
               (strSchemas & "smtpauthenticate") = 1
    objMessage.Configuration.Fields.Item _
               (strSchemas & "smtpusessl") = True
    objMessage.Configuration.Fields.Item _
               (strSchemas & "sendusing") = 2
    objMessage.Configuration.Fields.Item _
               (strSchemas & "smtpserver") = "smtp.gmail.com"
    objMessage.Configuration.Fields.Item _
               (strSchemas & "smtpserverport") = 465
    '-------------------------------------------------------------
    objMessage.From = gmail_id
    objMessage.To   = evernotemail
    objMessage.Subject = oFile.Name & " @" & evernotebook
    objMessage.AddAttachment  mailfolder & "\" & oFile.Name
    '-------------------------------------------------------------
    objMessage.Configuration.Fields.Update
    objMessage.Send
    Set objMessage = Nothing
    '-------------------------------------------------------------
    FSO.DeleteFile mailfolder & "\" & oFile.Name
Next
Set FSO = Nothing
WScript.Echo "Evernoteにメールを送信しました。"

実行イメージ画面

実行イメージ画面

最終回は、照合結果テーブルから近親リストファイルを出力する方法について解説します。

近親リスト対象馬ファイルから血統登録番号をキーに照合結果テーブルを照合して、賞金額が多い順から重賞好走馬をファイル出力する単純な処理です。

…続きを読む »

今回は、近親リスト作成対象馬と重賞好走馬の照合方法について解説します。

近親リスト対象馬の続柄毎に重賞好走馬が存在するか調べます。近親リスト作成対象馬の繁殖コードと重賞好走馬の繁殖コードを組み合わせながら、下記の続柄の重賞活躍馬を調べ、その結果を照合テーブルに格納します。

照合結果テーブルは、血統登録番号・続柄・代表レース名・代表レースの着順・賞金額の合計で構成されます。血統登録番号は近親リスト作成対象馬テーブルから転記します。続柄はスクリプト中のSQLで固定文字として登録します。その他の項目は重賞好走馬テーブルから転記します。

• 母の照合
• 祖母の照合
• 曾祖母の照合
• 兄弟の照合
• 叔父叔母の照合
• 従兄弟の照合
• 近親の照合（祖母の兄弟）
• 近親の照合（祖母の兄弟の子）
• 近親の照合（祖母の兄弟の孫）

…続きを読む »