三流君 ken3のmemo置き場

三流プログラマーのメモ書きです。主にVBAやWindowsの話題が多いです

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

JRA の検索結果:

BAT タスクスケジューラ から タスクを削除 schtasks /delete /tn タスクの名前 /f

…elete /tn JRA_AUTO_TEST /f ECHO 削除終了 pause にしました。3.単純に実行すると、エラー: アクセスが拒否されました D:\JRA_TEST\20220522>ECHO タスクの削除 タスクの削除D:\JRA_TEST\20220522>schtasks /delete /tn JRA_AUTO_TEST /f エラー: アクセスが拒否されました。D:\JRA_TEST\20220522>ECHO 削除終了 削除終了D:\JRA_TEST…

Excel VBAで表示変更 10倍以下を赤 小数点を0.0でそろえる 例題:JRA 単勝オッズ取得

… Function JRA_Bodyからオッズの時刻を返す(oDocument As Object) As String Dim strTEMP As String Dim strRETURN As String 'リターン値 Dim n As Integer 'errでリターン値を初期化 strRETURN = "ERR 文字列が見つかりませんでした" 'HTMLのBODYテキストを代入 strTEMP = oDocument.body.innerText 'まず最終オッズ…

VBScript 定期実行 タスクスケジューラの設定テスト 終了設定でつまづく VBSを5分単位で実行させてみた

…つける。 TEST_JRAオッズ取得 など、任意の名前3.1 操作を設定する ここでは、テスト用の オッズ取得3.vbs を選択する3.2 トリガー(実行時刻と繰り返しをセット) 設定、今回は一回にします。※毎週日曜日など、安定稼働してきたら・・・テストしましょう 繰り返し間隔を 今回は5分としました。※二回目を早く実行してほしかったので、現在時刻を見て、テスト開始時刻を設定有効期限を開始の10分後、2回で止めたかったので。※通常は最終レース後の時刻かな4.OKを押して、タス…

VBSからPowerPoint を起動して スライドショーの実行 SlideShowSettings.Run 自動実行もどきを作成してみた

….Open("d:\JRA_TEST\20220508\pptest.pptx") 'WScript.Sleep(1000) '1秒待つ ※これが無いと、下の.Runがうまく動作しなかった、なぜ? 'あれ?無くても動いた、気になるけど、なくていいか。 oApp.ActivePresentation.SlideShowSettings.Run 'スライドショーの実行 F5的なヤツ For p=1 To 3 'ループでとりあえず3ページ WScript.Sleep(5000) '…

XXXXXさんへ JRA オッズ取得 ホームページ「onClick=doAction が なんでPOSTだとわかったんですか?」と質問されたので

…に 00:25 1.JRAのHPを表示させます 00:39 2.ソースを表示します 01:29 2.1 ソースの頭でjavascriptのコードがまとめてインクルード 02:02 2.2 doActionのコードをみると 03:22 2.3 元のソースでcommForm01を探すと 04:42 3.終わりのあいさつ1.JRAのHPを表示させます2.ソースを表示します ここで、onClick=doActionを探しますが、 本体のコードが見つかりません。2.1 ソースの頭でja…

Excel web パワークエリで取得かぁ 今度調べてみよう メモメモ JRA オッズ取得

…oAction('/JRADB/accessO.html', 'pw151ouS305202202040120220501Z/96');"><img src="/JRADB/img/race_number/race_num_1.png" alt="1レース"/></a></li> <li><a href="#" onclick="return doAction('/JRADB/accessO.html', 'pw151ouS305202202040220220501Z/4B'…

VBSで JRAオッズ自動取得Excelマクロ を10分間隔で タスクスケジューラ を使い起動したテスト

VBS

…ame = "c:\JRA_TEST\20220501\20220501単勝オッズ東京.xlsm" oApp.Workbooks.Open sFileName WScript.Sleep 500 '1.3 マクロの実行 oApp.RUN "ie_JRA単勝オッズをレース別に複数蓄積する" WScript.Sleep 500 '1.4 ブックを閉じる oApp.ActiveWorkbook.Close 'ブックを閉じる '阪神 '1.2 ファイルを開く sFileName = …

CreateObject("htmlfile")でDocumentを作りweb上のhtmlデータを抜き出す 例題でJRAオッズを取得してみた

…? 07:23 3.JRAオッズ取得を例題にデバッグ 08:17 文字化けの説明 10:00 CreateObject("htmlfile")でDocumentを作り 10:36 リンクからオッズのAタグを取り出す 12:02 URLとパラメーターを切り出す 12:57 POST処理 URLとパラメータをPOSTしてHTML結果をGet 13:48 取得したHTMLをデバッグ用テキストファイルへ落とす 14:22 再度 CreateObject("htmlfile")でDoc…

はてなの質問に答えてみた Excel VBA セル内を改行(VBLF)で区切られた文字列のフォントを行単位で変更するテスト

…= Split(objRANGE.Cells(1, 1), vbLf)2.Characters(Start:=開始位置, Length:=文字数).Font.Size = フォントサイズ セル内のフォントを部分的に変更したかったので、 マクロ記録された .Characters を使用する3.エラーチェックで分割された文字列の数を数える 必ず固定の改行があると決めつけると痛い目みるので、 UBound(strBOX) などで、改行の行数をチェックしてみた。 Option Exp…

XXXXXさんへ お坊ちゃんプログラムで申し訳ない IE操作 JRAオッズ取り込みが動作しない件

…でした。 >やはり、JRAHPサイトの都合によるProg.変更等により不都合が生ずるものなのでしょうか。 >マクロ上で次ボタン押して次レースのデータ自動的に取得してゆくことは難しい事なのでしょうか >教えていただけませんか。 >また別にそうでないとすれば、 >馬単オッズ表(馬番順)だけでもマクロの基本モジュールをご紹介願いませんでしょうか。 メッセージありがとうございます。 他の方たちからも、 指定時間に自動実行したい や 他の種類の取り込み・・・ 競馬ファンの人たちは熱い志…

XXXXXさんへ 形の違うweb上の表・テーブル から指定された 項目・列を取得したい

… Sheet2です JRA競馬のオッズ取得だと、 表の左上 .Rows(0).Cells(0).innerText = "〇〇"で判断しているが、 形の違う表から(テストで現在3パターン) ゼッケン,名前,前回1,前回2,前回3,前回4,前回5 の列を探して取得したい、指定した列を取得したい。そんな感じかな。 SQL文ならSelect ゼッケン,名前,前回1,前回2,前回3,前回4,前回5 From Web上の表1Select ゼッケン,名前,前回1,前回2,前回3,前回4,…

JRA単勝オッズ取得でIEを前面にして IEスクロール SendKeysとjavascript:scrollToを使ってみた

…ださい エイターの jra の単勝2取得であの午前中の時刻テストという形であの 清酒あの修正したんですけどあの自国の人がはの後に修正したんであの 13実が3分とかの すいません現在4つの取得ですねこれはあのそのままの君家であの n っていうか あの花の現在おっつー カラーの6持ち引いて6文字取り出すって感じであの 時刻を決め打ちであの13時03分とかの6文字決め打ちで取り出してたんですねで これが 午前中の場合あの例えばの3:03と母の 御餅となってあの風合いになるか どうか…

実験 テキストのHTMLソース TABLEテキストをコピペ Excelへ貼り付けてみた

…le> キッカケは、JRA単勝取り込みのデバッグしたライブ デバッグ JRA単勝オッズの取り込みに失敗 バグの再現と修正 Excel2016 VBA IE表の取り込み - YouTube の終わりに、 チャットのコメントで テーブルのOuterhtmを貼り付けたほうが簡単だよ と アドバイスをいただいたことです。58:27 ​テーブルのOuterhtmをクリップボードに取り込んで PasteSpecial Format:="テキスト", NoHTMLFormatting:=T…

バグ修正 .Document.body.innerTextから発走時刻とオッズの時刻をMidで抜き出す デバッグ Excel VBA JRAオッズ取り込み

昨日修正したJRA 単勝オッズ 取り込みサンプル下記 ken3memo.hatenablog.com ですが、発走時刻とオッズ時刻が正しくない と連絡を速攻でいただく。最後まで、確認をしていなくてスミマセン。すぐに修正をしてみます。 ※またまた、ライブネタにして、恥を重ねてみます。。。いつものライブ デバッグ動画 VBA IE操作 バグ修正 発走時刻とオッズの時刻が変 JRA 単勝オッズ の取り込み デバッグ - YouTube www.youtube.com1.バグ・不具合…

デバッグ JRA HP表示変更で単勝オッズの取り込みに失敗 F12で要素を確認して修正する

…います。 12/5にJRAがHPの仕様を変更したためだと思うのですが、 単勝オッズ取り込みが出来なくなってしまいました。 「枠番のテーブルが見つかりません」 というメッセーッジボックスが出るので 単勝オッズ取り込みができない はやくなおせカス などなど、氷山の一角でこれだけ反応があったので、 怖いなぁ・・と思いつつ、デバッグを開始する1.バグ・不具合の再現2.原因の特定 処置・対策2.1 レース番号が押されていない strRACE = nRACE & "R" 'R1など 文字…

XXXXXさんへ JRA単勝取り込みサンプルプログラムの作りが悪くご迷惑をおかけしてスミマセン。

…」 試したのですが、JRAのHBのリンク数は13個でした。JRA側が2017/08から何か変更したのでしょうか? 私のサンプルがご迷惑をかけたみたいです ※プログラムの作りが甘いからかも・・・やってみたら、動いてしまったのですが、 不具合を再現するために、イロイロと操作をしてみたら原因が判明・・・再現手順: ホームページから開催日を反転させて(範囲指定して)手動でコピーすると 2回新潟9日 と後ろにスペースや改行が入って ExcelのB2セルにコピーされてしまいます。この状態…

XXXXXXさんへ JRA サイトから レース結果を取り込む

…笑ってくださいね。 JRA サイトから レース結果をExcelに取り込む・・・三流プログラマー の 独り言 ライブ プログラミングほか テスト中 - YouTube www.youtube.com 下記の質問をいただきました。 JRAのオッズ取り込みを改造して レース結果を取り込むことにチャレンジしていますが 中々、思うようにいきません質問させていただきます ①JRAのレース結果取り込みです (※前提として、競馬開催の当日で12Rまで終わっていない場合) 最終レースまで終わっ…

(未解決あとで検索する) XXXXXさんへ IE操作(JRA-IPAT) selectタグが動作しない件について

…ツール?ライブラリをJRAが使い始めた?>JRA-IPATのメニューが新しくなり これって?最近の話なのですか? ※私自身、昔のサンプル放置していて・・・すみません。単純な、 SELECTタグの選択じゃなくなったとすると、 少し難しいかもしれません。https://app.codegrid.net/entry/angular-tips-1 は、 そのツール?ライブラリの中での話で、 VBA側とは違いそうですし、、、私も、無知で、ヒントすらだせなくてスミマセン。excel vb…

XXXXXさんへ IE操作「Webページからのメッセージ」(Javascriptのalert)を消す方法

…セージを無効にする JRA入出金メニュー ken3memo.hatenablog.com や VBA IE操作 ニセのpromptとalert() を 挿入する そんな実験 ken3memo.hatenablog.com で '暗証番号を入れ、実行する '確認メッセージで はい を 答えたい ≠≒ 確認を必ず はい(true)にする Dim ele 'エレメント(script)を1つ作りたいので。 Set ele = objIE_I.document.createElemen…

XXXXXさんへ JRAオッズ取得 Excel2016でテストしたブックを保存しました

…ッセージありがとう。JRAオッズ取得の テストで使用したExcelブックを test/20170820.zip に保存しました。アレンジして使ってみてください。コードだけで、動くブックを保存していなくてすみませんでした。 次回から、あるていどまとまったら、ブックを公開してみようと思います。 ken3memo.hatenablog.com ken3memo.hatenablog.com 2017 JRA 単勝オッズをExcelへ取り込むVBA - YouTube www.you…

TABLE WebのJRA3連単オッズ表 二重のテーブル からデータ取得のテスト

…解説動画です。。。 JRA 3連単オッズ 取得プログラム作成前の確認をライブで Ken3 ライブ プログラミング テスト中 - YouTube www.youtube.com1.現物の確認実際のHPを見たり、 ソースを見たりして、 TABLEの構造を探ります。1.1 自作のIE TABLE確認ツールのデバッグを兼ねて探ってみる 少し前 テストで作成した ken3memo.hatenablog.com ↑自前のTABLE取り出しツールのデバッグを兼ねて、 3連単の構造を探ってみ…

Excel Formから起動済みのIEを選択 テーブルを取得するテスト

前回 ken3memo.hatenablog.com の続きです。XXXXXさんより、下記の質問が来ました。 > 【VBA IE操作】テーブル単体を取り出す にて勉強中の老人です。 > 上記サンプルはURLを記述して表示して >WEBページにテーブルの内容を取得しておりますが、 >当方も目的はページを次から次に切り替えて >その都度にテーブルの内容をEXCLEに蓄積したいと思っ > てます。(手動で開いたページのテーブル等) と、 既存IEを手動で操作して、データを抜く、 そ…

テスト JRA単勝オッズをレース別に複数蓄積する

…イブ動画です・・・ JRA単勝オッズをレース別に複数蓄積する VBA IE操作 Ken3 ライブ プログラミング テスト中 - YouTube www.youtube.comポイントは、 単勝順のオッズを一時的に Sheets("作業用") に書き込む次に、 1.初回は、馬番 馬の名前を書き込む 2.二回目以降は、時刻とオッズを書き込む 上記をポイントに処理を行ってみたいと思います。初回のチェックは、 一枠一番の馬名が変化したかを単純にチェックしました。 あとは、単純にデータ…

JRA オッズの発表時間を取得します 蛇足で.getElementsByClassNameのテスト

…説が長かったり、、 JRA オッズ取得 時刻の取得 最終オッズの判断 VBA IE操作 Ken3 ライブ プログラミング テスト中 - YouTube www.youtube.com次は、 最終オッズ や 99:99(XX時XX分) などの、 オッズの集計時間を取得してみたいと思います。1.現物の確認 レースが終了していると、 <td class="cTtl headerOdds"> 2017年7月30日(日)&nbsp;2回新潟2日&nbsp;&nbsp;<span cla…

JRA 単勝オッズ取得 いただいた要望 開催日とレースの指定にチャレンジ

…わせてみてください JRA オッズ取得 開催地とレースを指定 VBA IE操作 Ken3 ライブ プログラミング テスト中 - YouTube www.youtube.comもらった要望 ア.一つだけご教示お願いしたいことがあります。 '開催日を探す Dim strJYOBOX(10) As String Dim j As Integer '開催日のリンクをあさる j = 0 For i = 0 To objIE.Document.Links.Length - 1 '右端の"…

JRA オッズ取得 Click処理を共通化後 単勝オッズ人気順にチャレンジ

…【VBA IE操作】JRA オッズ取得 Click処理を共通化後 単勝オッズ人気順にチャレンジ - YouTube www.youtube.com1.ドキュメントのリンク オブジェクトを押す処理を共通化.Document.Links(i) のリンクを探して押す処理を外側に出してみます。 ※サブルーチン化してみますパターン的には、 表示中のIE と 条件を渡し クリックさせる2.共通化のサブ関数ができたので、 これを使い、 人気順の単勝オッズ取得を作成してみる ※簡単にいくとい…

JRA 単勝オッズ取得 コードまとめ と Sleep DoEventsの違いをテスト

…e_test() 'JRA 単勝オッズの取り込み テスト 'IEの起動 Dim objIE As InternetExplorer '変数を定義します。 Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = Fal…

JRA HP から 単勝オッズの取り込み 開催場所でループ

…utube.com JRA 単勝オッズ 開催場所のループ処理 VBA IE操作 Ken3 ライブ プログラミング テスト中 です・・・ - YouTube1.開催日を取り出す 開催日を取り出します ※日曜日は前日の土曜日があるので、 単純にはいかないけど、今回はすべて取り込む2.開催日のループを作成 12Rまで取得終了したら、 次の開催地のオッズへ移動 1Rから取得を 開催日がなくなるまで行う onclick="return doAction('/JRADB/accessO.…

コピペで作るプログラム と 変数とループを使ったプログラム

…ttp://www.jra.go.jp/" '.Navigate メソッドで JRA表示する。 'Navigate と Navigate2 の 違いが私もイマイチわかってませんが 'ページの表示完了を待ちます。 While objIE.ReadyState <> READYSTATE_COMPLETE Or objIE.Busy = True '.ReadyState <> 4の間まわる。 DoEvents '重いので嫌いな人居るけど。 Wend 'ページが表示されたので、表…

IE操作 Web上の表 取り込み rowspan の対応を少し考えてみた

JRAオッズの取り込みで、 枠番の取り込みが正しくなく、 データがズレてセットされてしまった前回 ken3memo.hatenablog.com の続きです。下記、まだ慣れてない ライブ プログラミング動画。 単勝表の取り込み バグ修正 VBA IE操作 JRA Ken3 ライブ プログラミング テスト中 です・・・ - YouTube www.youtube.com簡単な解説 と コード単勝取り込みテスト現在単勝の表を下記のコードで取り込むと、 'Webの表をシートへ転記(…

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。
・[Excel/Access VBA]の解説
・[ASP(Active Server Pages)]の解説。
・[元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
・[プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
三流君を踏み台にする
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)