エリザベス女王杯の単勝オッズを取得 JRAのオッズ取得
https://www.youtube.com/watch?v=dB4c-yTiz7Y
www.youtube.com
↑のパラメーターを変えただけです、設置方法は動画を見てください。
#エリザベス女王杯 のオッズを取得する
動画内で作成したパワークエリのソースコード
strPARA = Text.ToBinary("cname=pw151opS305202404081120241027Z/19"),
を #エリザベス女王杯 に対応するには、
doAction('/JRADB/accessO.html', 'pw151ouS308202406041120241110Z/61');">馬番順</a></li>
doAction('/JRADB/accessO.html', 'pw151opS308202406041120241110Z/83');">人気順</a></li>
なので、ここを変更する。
貼り付けて遊んでみてください。
※過去動画の紹介じゃなくて、新規を速く作らないと・・・
// 単勝オッズ取得サンプル エリザベス女王杯
let
strURL = "https://www.jra.go.jp/JRADB/accessO.html",
strPARA = Text.ToBinary("cname=pw151ouS308202406041120241110Z/61"),
strHEAD = [#"Content-Type"="application/x-www-form-urlencoded"],
ソース = Web.Contents(strURL, [Headers = strHEAD, Content = strPARA]),
文字列 = Text.FromBinary(ソース, 932),
// BetweenDelimitersで間を取得、便利かも？
// いつもの耳(ダブルコーテーション)が二つに注意
レース名 = Text.BetweenDelimiters(文字列, "<span class=""race_name"">", "<"),
時刻 = Text.BetweenDelimiters(文字列, "<div class=""cell time""><strong>", "<"),
レース番号 = Text.BetweenDelimiters(文字列, "<span class=""opt"">", "<"),
HTMLtest = Web.Page(文字列),
TB0 = HTMLtest{0}[Data],
追加されたカスタム = Table.AddColumn(TB0, "レース名称", each レース名),
追加されたカスタム1 = Table.AddColumn(追加されたカスタム, "カスタム時刻", each 時刻),
追加されたカスタム2 = Table.AddColumn(追加されたカスタム1, "カスタムレース番号", each レース番号),
並べ替えられた列 = Table.ReorderColumns(追加されたカスタム2,{"レース名称", "カスタム時刻", "カスタムレース番号", "枠", "馬番", "馬名", "単勝", "複勝（3着払い）", "性齢", "馬体重", "負担重量", "騎手名", "調教師名"})
in
並べ替えられた列// 単勝オッズ取得サンプル2 エリザベス女王杯
let
strURL = "https://www.jra.go.jp/JRADB/accessO.html",
test = 123,
strPARA = Text.ToBinary("cname=pw151opS308202406041120241110Z/83"),
strHEAD = [#"Content-Type"="application/x-www-form-urlencoded"],
ソース = Web.Contents(strURL, [Headers = strHEAD, Content = strPARA]),
文字列 = Text.FromBinary(ソース, 932),
// BetweenDelimitersで間を取得、便利かも？
// いつもの耳(ダブルコーテーション)が二つに注意
strレース名 = Text.BetweenDelimiters(文字列, "<span class=""race_name"">", "<"),
str時刻 = Text.BetweenDelimiters(文字列, "<div class=""cell time""><strong>", "</strong></div>"),
HTMLtest = Web.Page(文字列),
TB0 = HTMLtest{0}[Data],
追加されたカスタム = Table.AddColumn(TB0, "レース名", each strレース名),
追加されたカスタム1 = Table.AddColumn(追加されたカスタム, "オッズ時刻", each str時刻),
並べ替えられた列 = Table.ReorderColumns(追加されたカスタム1,{"レース名", "オッズ時刻", "枠", "馬番", "馬名", "単勝", "複勝（3着払い）", "性齢", "馬体重", "負担重量", "騎手名", "調教師名"})
in
並べ替えられた列エリザベス女王杯の単勝オッズを取得 JRAのオッズ取得
https://www.youtube.com/watch?v=dB4c-yTiz7Y
www.youtube.com
↑のパラメーターを変えただけです、設置方法は動画を見てください。
