月: 2021年4月

ぜつぼー

昨夜，思いのほかスヤーできました．22時就寝の6時半起床．贅沢．そこそこ暖かいのにオフトゥンを掛けていたからか，そこそこの寝汗でした．で，体温，35.9度でした．ま，起きて早々はそうよね．朝食後のいつもの時間に測り直したら，36.3度でした．いつもどおりじゃないの．

便意なき腹痛，胃痛？がありましたけど，いつもどおり散歩．昨日分も取り戻す勢いで，また別の特売店へ行きました．昼の検温結果は36.6度．いい感じです．

ふと気づくと，社会の窓が空いていました．いつからなんorz．

今日観たアニメ(4382)

  • [C]SHAMAN KING「オーバーソウル！」(第5話 4/29夜)

    胡散臭いスピリチュアルな物売りが声掛けてきたのかと思いきや，ちゃんとした審査員でした．自分に憑依合体させて力を借り受けるのに対し，当人と親和性の高い物に憑依させることで霊体に物理を操作させるオーバーソウル．平成の方は観たことないんですけど雰囲気，今回の挿入歌のオーバーソウルってそっちの主題歌だったんかね．

  • [C]ゴジラS.P「はやきことかぜの」(第5話 4/29深夜)

    転覆した舟の乗員救助に向かうヘリを襲うウミヘビ的な巨大な奴に，乗員さておき救助隊の安否も気になりました．SF的な議論を繰り広げている人達の会話をもっと聴講したいです．光を過去に屈折させるのを繰り返して増幅する的な話の一方，未来予知をしている風のトリケラトプスとの戦い，繋がってきますね．

  • [B]BanG Dream! 3rd Season「タコさんウィンナーだぎゃあ」(第4話 4/29深夜)

    親の力で捩じ込み，人気ジンクスのスタジオで新曲PV撮影．岐阜の方言を操る六花に対し，副題の名古屋弁で和まそうとするキャラじゃないレイ萌え．と思わせておいて，もっと柄にもなくタコさんウィンナーに萌えるますき萌え．からのRASのMV，カコイイじゃないの．どんどん捏ねちゃって．

かんせっつー

昨日夕方から，膝や手の指，手首辺りに痛みを感じ始めました．そしてたまに悪寒．案の定，37.3度を記録しました．とっとと寝ておく．

そして今朝，まあ体調は昨日に引き続き，普通．関節痛くらいしかありません．朝食後の体温，普段は36.3度なんですけど，今朝は36.9度でした．不穏な雰囲気．とりあえず，午前の特売突撃は控えました．代わりに一応寝ておこうか．寝るなら午前の方が，夜の睡眠への影響が抑えられるでしょうし．

昼食後，再検温．37.8度．てってれー．今日の特売は諦めました．体調は普通なんだけどな．…普通ってなに？ 久しく快調を体感していないので，常に微妙っちゃ微妙なんですけど．

夕方，再検温．また37.8度．下がりませんね．相変わらず咳もくしゃみも頭痛もだるさもないんですけど，37.8度ってことはやっぱり体調悪いのかな．現状こそが不調の定義なのかな．ゲシュタルト崩壊してきました．．

夜，再検温．37.4度．早めに寝ます．午前中に2時間も昼寝しちゃったし，寝られるかな．

今日観たアニメ(4381)

  • [C]ODDTAXI「田中革命」(第4話 4/26深夜)

    同情はします．なるべくしてこうなったっつー説得力．みんなに自慢したいからと，レアな消しゴムを入手すべく，オークションで10万円，がバレてクレジットカードの主にボコられる小学3年生．の因縁があってのウルトラスーパーレアのドードーゲットのための課金の社会人生活．苦節4年，やっと手に入った，と思った次の瞬間にタクシーを避けての即行スマホ側溝ポチャン南無．

  • [B]転生したらスライムだった件 転スラ日記「水着で1日」(第4話 4/27深夜)

    ドワーフの方々がリムル様のために仕立てたフリフリの可愛い水着，一瞬ながらちゃんと来てくれてありがとう．鬼人ではない羽付きの人，見たことあるけど認識定かじゃなかったです．ガビルの妹分で諜報鬼人を慕ってた人ね．A級魔人のみんなが湖水浴を楽しむ中，しっぽり釣りでも，というつもりだった師匠，湖の主を見てからの目の色の変わりようｗ．

  • [A]聖女の魔力は万能です「奇跡」(第4話 4/27深夜)

    聖女として認知されていないのは，召喚時，そういうことにしてくれ的な話があったからだったかしら．考え事をしていると，うっかりポーションを量産してしまうて．効果5割増を呪いとか言うな．怪我して障害が残り，退役せざるを得なくなったみんなの姿を見かね，遂に聖魔法を解き放ってしまいました．穏やかな日々よさようなら．

  • [C]七つの大罪 憤怒の審判「最終戦争」(第16話 4/28夜)

    数千の魔神を瞬時に鎮めるバンさすが．仕留め損ねた1体，聖騎士長ら3人がかりでも全然太刀打ちできない．ところに登場したエスカノール．恩寵なしにこんなに体張れる人だったんですね．魔神王に呑まれたゼルの魂，諦めちゃいましたか．その前にヴァンパイアが登場するものと思いましたが，登場したのは七つの大罪．

  • [C]MARS RED「歌知らずの歌」(第4話 4/28深夜)

    ヴァンパイアの位が低いおっちゃん，良いキャラしているわ．若い高位の部下とか人間の元同僚とかにいい感じに扱われ，超音波会話ができずにピンチという健気さ．先に潜入していた仮面隊員は別動任務だったのかしら．「でも…」と言い澱む新聞記者娘に対し，「デモクラシーはもうたくさん」とか返すセンス．

  • [B]究極進化したフルダイブRPGが現実よりもクソゲーだったら「ただ一人の攻略者」(第4話 4/28深夜)

    失禁にそんなトラウマがありましたか．妹に慕われ，良い格好を見せたかった短距離走の地区予選，スカウトの人や元選手の有名ジャーナリストが見ている中，優勝候補だったにもかかわらず，転倒失禁で敗退．自暴自棄となり，妹との関係も最悪．を，再びRPGの世界へ引き戻す竹達店員の営業力．

  • [B]小林さんちのメイドラゴン「カンナ，学校に行く！（その必要はないんですが）」(第4話 4/28深夜)

    日常的にベランダから登下校生を眺めるカンナ．可愛い文房具やランドセルを揃えて小学校に入学．単発的好奇心でなく，卒業までずっと通い続けられればいいですけどね．転入初日，つっかかってきたでこっぱち，泣かれて速攻陥落．からの仲良しいいね．雰囲気，みつどもえの杉崎感覚えました．

  • [A]幼なじみが絶対に負けないラブコメ「我，初恋復讐完了す」(第3話 4/28深夜)

    好きだったのに離れていった末晴を自分に惚れさせてから振ってやろうと思っていたけど離れていった理由を知ってやっぱり今も好きだけど振られたっつー白，好きになった途端に振られた腹いせに自分に惚れさせてから振ってやろうと思っていたけど黒の大切さに気付いてそっちに告白したけど振られた末晴，のために尽くして身を引く決心をしたのに不意に公然告白されて悔しいからと断ってしまって後悔する黒，みんないい．

  • [C]スーパーカブ「アルバイト」(第4話 4/28深夜)

    高校の斡旋で別の高校との間で所管の運搬をする夏休み中のアルバイト．現金で日払いの給料，用意するのが大変そう．まとめて銀行振込とかできないのか．エンジンオイルの交換，一人でやれるようになりました．

しむれた

固定IPアドレスでTCP通信するデバイスと通信するiOSアプリ向けライブラリ，これを拡張する前回の第2弾的案件．自宅の75cm角のテーブルがまたも荷物で溢れました．机上にはWindowsのノートPC，MacBook，iPad，スマホ，通信相手のデバイス2種類，それといろんな線類．散らかっていると落ち着いて仕事できないのよね．

固定IPアドレスというのが曲者で，MacBook上のiOSシミュレータではデバイスとの通信の確認がうまくできなかった気がします．というわけで，iPadを会社から昨日，持ち帰ってきたわけです．が，残念，MacBookとiPadを繋ぐケーブルがありません．USBTypeCとLightning．なんてこった．

慣れないMacのネットワーク設定をいろいろ弄ったら，iOSシミュレータで動作確認できました．IPアドレスだけじゃなく，サブネットマスクとデフォルトゲートウェイをそれなりにしたのが奏功したのか，アクセスポイントを繋ぎ替えたのが良かったのか．逆に前回うまくいかなかったのは，「適用」ボタンを押し忘れていたのか，デバイス側の設定がおかしかったのか．大したことしてないのに今回はうまく行ったとなると，前回なんなんと．

今日観たアニメ(4380)

  • [C]キングダム「二つの戦場」(第3期4話 4/25深夜)

    疲弊して下がった後ろから攻められてピンチ．先頭から速攻戻ってきた信が活を入れ，にわか万人将．函谷関の高い城壁に慢心が見られるの危険信号．ついに橋が架けられました．とはいえ，そんな隘路じゃ人流絞られよう．

  • [B]東京リベンジャーズ「Resolve」(第3話 4/25深夜)

    未来の卍會トップとの接点を得るため，そして奴隷の日々から脱するため，喧嘩賭博の胴元とのタイマン勝負．いや，一方的にボコられていただけですけど，根性出ましたね．からの，総長降臨．血が通った人間的な側面がありつつ，氷のように胴元を潰したりと，ヤベぇ奴に違いない．翌日の学校に乗り込み，遊びに誘ってくるところにビンタする彼女の肝っ玉．

  • [C]不滅のあなたへ「小さな進化」(第3話 4/26深夜)

    靴に仕込んだ骨角器的ナイフ，なんか厨二心を擽られます．いろいろ刺さって流血しながらも攻めてくる巨大な白熊おっかない．木の実の御礼なのか，颯爽登場して対峙，狼に変化したりして退治したフシ，次はこの大熊様に変化するのかと思いました．

  • [C]やくならマグカップも「お茶漬けの味」(第4話 4/26深夜)

    父愛用の茶碗を割ってしまい，代わりの茶碗を拵えよう姫乃．しかし，亡き母が高校生のときに作ってプレゼントした品だったとか，その手触りに近い茶碗を一時的に借りたとか，ハードル上がりすぎる．

  • [B]恋と呼ぶには気持ち悪い「聖なる夜に」(第4話 4/26深夜)

    好きなタイプ談義．枯れ専から力士萌えまで幅広．兄と真逆の特徴を挙げ，ちょうどそれに填まったクラスの男子，何を思うか．クリスマスプレゼントの相談を双方から受けては助言する妹の立ち位置いいね．

  • [B]ひげを剃る。そして女子高生を拾う。「バイト」(第4話 4/26深夜)

    バイト先のバリバリのJK先輩，がさつに見えて繊細というか，友人思いのなかなかできる子でOK牧場．この子のプライベートにも何かしら問題が潜んでいそう．一方，後藤上司．ここに来て恋愛レース参戦て，忙しくなるわね．

ゆーいぎ

昨日発見した不具合の修正結果検証のため出社．本来の目的と会議以外にも，会社でしかやれないいろいろを片づけられ，とても有意義でした．

一つは運搬．自宅で使っていたけど使わなくなったデバイスを会社へ持っていきました．逆に，今後の作業で必要になるデバイスを会社から自宅へ持って帰りました．

一つは設定．自宅から会社のネットワークへ入るための認証アプリ，iOSかAndroid6以降じゃないと動きません．スマホが新しくなったことにより，動かせるバージョンになったので，認証アプリの設定をしました．会社の環境でないとうまく設定できない雰囲気だったんでね．

一つは返却．今までこの認証アプリを動かすためのiPhoneを借りていたのですが，それの返却．1年近くお世話になりました．

一つは調査．引き合いを受けた案件の予備調査を，会社にあるデバイスで実施しました．お陰で，折角出社したんだからと，だいぶ残業しました．とりあえず必要な予備調査は終えられた気がするので，良い気分でまた引き篭もれそうです．

はけーん

某仕様調査で仕様を調査する中で，仕様に不穏な表記を見つけました．ヒヤリハットで済むなら良いけど，と思ってソースコードを掘ってもらった結果，残念が判明しました．からの，対応検討会議．先方から来た依頼資料を設計資料としてコピペしたものと思いきや，一部が誤記され，そのまま完璧に実装とテストが行われた模様．取り繕いようもなくどうしようもない．今日の天秤座は1位だったのにな．

今日観たアニメ(4379)

  • [C]ドラゴン、家を買う。「冷たい家」(第4話 4/25深夜)

    勇者が来ない雪原の僻地の物件．建物は雪で自作．ライフライン整っていなくてサバイバル．食肉にしようとした鹿に追われるドラゴンｗ．吹雪に襲われ，臨死体験までしたというのに，不動産屋は遠めに観察していただけとはスパルタ．流氷に取り残され，鯨に呑まれ，中で暮らす半魚人の話し相手になってと，散々ですね．

  • [C]さよなら私のクラマー「フロンティア」(第4話 4/25深夜)

    良い試合だったと褒めたつもりが，逆切れされる男子．負け散らかしてぼろ雑巾のように傷心中て．身体作りは食事から，ということで始めた調理実習でなでしこコーチ，残念．新調したユニフォームのデザインも残念．

  • [C]SEVEN KNIGHTS REVOLUTION「友諠～コネクション」(第4話 4/25深夜)

    呑まれて暴走した王子よりも，助けた方が回復に時間を要す．それよりもどうして，会長はこっちに気を配るのかと．自称主体性のない女，ゆえに何か暗躍していそうな予感．ペット禁止の寮でこっそり猫を飼うのであれば，せめて首輪ナシにして，咄嗟に野良猫だと言い張れるようにするのはどうか．

  • [C]戦闘員，派遣します！「悪の幹部の倒し方」(第4話 4/25深夜)

    手柄に盲目的なスノウ，実力あるのかないのかよく解りません．座っている人はどうして気絶していたのか．四天王の魔石を奪って弱体化させ，ぴえんさせていかがわしい格好をさせる六号の悪行ポイントが止まらない．

うぇぶすくれいぴん

毎週末，保有株と購入候補株の値段を調べ，Excel表を更新しています．そのExcelでは，値動きや利回りに応じて「売るべし」「買うべし」が表示されるようにしています．これで，気分に左右されることなく，比較的普遍的な評価基準で，何も考えずに判断できる仕組みになっています．

毎週末の作業は，銘柄コードをYahoo!ファイナンスページへコピペし，直近1週間の日次情報をExcelへコピペするものです．現在は37銘柄を監視しており，このコピペ作業，意外と手間．株を始めた頃はこの作業もそれなりに楽しめていたのですが，そろそろ煩わしさが勝ってきました．なんとか楽したい．

ということで以前，それらしいWebAPIを軽く突けないかと，Webページを軽くハッキングしてみました．しかし，私のHTMLおよびJavaScript力では，乗り越えるに至らず，タイムアップでギブアップしました．

5月の大型連休を前に，少し時間が確保できたので，再挑戦．今度はアプローチを変え，Webサイトに表示されている株価をHTMLから抽出することにしました．いわゆる，Webスクレイピングです．これまでやったことないけど，これならやれるでしょう．やれました．ExcelのVBAで実現しました．

まずは，指定のWebページのHTMLの取得．「Microsoft XML, v6.0」というライブラリの参照を追加し，XMLHTTP60というクラスを使ったサンプルに倣いました．こんなに簡単にできちゃうんですね．

Private Function GetHtml(ByVal url As String) As String
    Dim httpReq As New XMLHTTP60
    Call httpReq.Open("GET", url)
    Call httpReq.send
    Do While httpReq.readyState < 4
        DoEvents
    Loop
    GetHtml = httpReq.responseText
End Function

次に，HTMLから株価の部分を抽出するコード．正規表現で頑張ればなんとかなりそう．「Microsoft VBScript Regular Expressions 5.5」というライブラリの参照を追加し，VBScript_RegExp_55.RegExpというクラスを使いました．正規表現自体，あまり使ったことないので，調べながらでした．これでいいかと思ったら，株価に桁区切りのカンマが入るケースがあったり，小数部が入るケースがあったりで，何度か修正．

Private Sub Extract(ByVal html As String)
    'HTMLに埋まっている株価の表の一部の例
    '{"openPrice":"3,015","highPrice":"3,039","lowPrice":"3,007","closePrice":"3,023","volume":"1,161,200","adjustedClosePrice":"3,023","baseDate":"2021年4月23日","baseDateIso":"2021-04-23T00:00:00+09:00"},
    '{"openPrice":"3,047","highPrice":"3,057","lowPrice":"3,001","closePrice":"3,036","volume":"1,478,500","adjustedClosePrice":"3,036","baseDate":"2021年4月22日","baseDateIso":"2021-04-22T00:00:00+09:00"},
    '{"openPrice":"3,032","highPrice":"3,034","lowPrice":"2,976","closePrice":"2,997","volume":"3,178,600","adjustedClosePrice":"2,997","baseDate":"2021年4月21日","baseDateIso":"2021-04-21T00:00:00+09:00"}

    Const PTN0  As String = """openPrice"":""(\d*,?\d+\.?\d*)"""
    Const PTN1  As String = """highPrice"":""(\d*,?\d+\.?\d*)"""
    Const PTN2  As String = """lowPrice"":""(\d*,?\d+\.?\d*)"""
    Const PTN3  As String = """closePrice"":""(\d*,?\d+\.?\d*)"""
    Const PTN4  As String = """volume"":""(\d*,?\d*,?\d+\.?\d*)"""
    Const PTN5  As String = """adjustedClosePrice"":""(\d*,?\d+\.?\d*)"""
    Const PTN6  As String = """baseDate"":""(\d{4}年\d?\d月\d?\d日)"""
    Const PTN7  As String = """baseDateIso"":""(\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}\+\d{2}:\d{2})"""
    Dim regex   As New VBScript_RegExp_55.RegExp
    Dim matches As MatchCollection
    Dim m       As match

    regex.Pattern = "{" & PTN0 & "," & PTN1 & "," & PTN2 & "," & PTN3 & "," & PTN4 & "," & PTN5 & "," & PTN6 & "," & PTN7 & "}"
    regex.Global = True
    Set matches = regex.Execute(html)
    For Each m In matches
        Debug.Print "日付：" & m.SubMatches(6) & " 終値：" & m.SubMatches(3)
    Next
End Sub

これで要素技術は確保できたので，あとはExcelの表を良い感じに操作するだけです．銘柄コードからURL化するところはExcel上の数式にしちゃって，並べた銘柄分と取得した日数分だけループを回し，縦や横に配置する感じ．程よくエラー処理を入れたりして無事完成．毎週末の作業がだいぶ楽になりました．