2017年06月の記事
全14件 (14件中 1-14件目)
1
-
楽天イーグルス 2017 6/30 vs ソフトバンク 4-3 安樂5回3失点
6/30安樂はソフトバンク相手に5回3失点なら上出来だけど柳田のホームランがなければね。前回140km/h出ていなかったけど今日は145km/h出てたから前回よりは良かったと思うけど5回で10人（8安打2四球）もランナー出したから球数が多くなったな。6回が問題だったけど高梨が抑えてくれたね。打線はウィラーとペゲーロのホームランで4点取ったけど追加点が取れなくて厳しかったよ。ソフトバンク相手に6回から1点差での継投は心臓に悪いね。やっと金曜日の連敗を止められたからこのまま3連勝したいな。
2017/06/30
コメント(0)
-
楽天イーグルス 2017 6/28 vs オリックス 3-2 辛島6回1失点
6/28辛島は3回表に1点取られた後の満塁のピンチを切り抜けたのが良かったな。ここで打たれてもう2点取られていたら金子のペースになっていたかもね。2回と5回に2安打されてるし6回も岡島のファインプレーに助けられたし全体としては甘い球が多かったから、よく1失点で済んだなっていう内容だけど結果は良かったからまあいいかな。打線はペゲーロと島内のホームランで3点取ったけど7回裏の1アウト満塁でも点を取りたかったよ。相手のミスで貰ったチャンスを生かせなくて8回表に失点する流れを作っちゃったね。ソロホームランで良かったよ。
2017/06/28
コメント(0)
-
注ぎ口のある内面コーティングされた片手鍋
使っている鍋のコーティングが剥げてきたから新しいのを買おうと思ってホームセンターやスーパーを何件か見て回ったんだけど内面コーティングされた片手鍋で注ぎ口のあるタイプを見つけられなかったよ。楽天で探して見つけたのがこの２つ。パール金属 リモージュ アルミ行平鍋18cm H-932 02P03Sep16価格：640円（税込、送料別) (2017/6/27時点)パール金属 マーブルミラー 内面4層 マーブル加工 アルミ 行平鍋 18cm [H-6451]【RCP】価格：604円（税込、送料別) (2017/6/27時点)鍋自体に違いがあるのか分からないんだけど取っての好みでH-932を購入したよ。行平鍋でコーティングされているのは珍しいね。やっぱり注ぎ口がある方が使いやすいな。
2017/06/27
コメント(0)
-
楽天イーグルス 2017 6/26 vs オリックス 先発 則本 延長12回 4-4
6/26則本は同点に追いついた直後の7回表に直ぐ2点取られたのが駄目だな。ランナー出すと1点で止められなくて2点以上取られるのは何故なんだろうな。150km/h以上の球があるのに不思議だよ。http://baseballdata.jp/mdata/sthidaritu.htmlここ見るとストレートの被打率が高いから球速はあるけど打ちやすいってことだね。打線は3回まで内野ゴロだらけでディクソンの術中に嵌ってたね。2巡目の4回裏は攻略出来そうだったけどペゲーロが牽制でアウトになったのが痛かったな。6回裏はディクソンの悪送球で貰ったチャンスで銀次のタイムリーで2点取れたけど、銀次が外野のミスで3塁まで行ったから逆転したかったよ。9回裏はよく追いついたな。則本の点の取られ方が悪かったからそのまま負ける流れだったけどね。藤田の振り逃げから松井の同点タイムリーで盛り上がったからそのままサヨナラ勝ちすれば最高だったけどな。
2017/06/26
コメント(0)
-
楽天イーグルス 2017 6/25 vs 日本ハム 先発 岸 6-0
6/25岸は大田と西川を合わせて5度出塁させて中田、レアードを迎えてたから点差はあっても、ちょっと怖かったな。それでも点を取られなかったのは流石だけどね。打線は相手バッテリーの自滅だけど初回に3点取ったのが大きかったね。カウント0-2と追い込まれてから四球を選んだ先頭打者の島内と、きっちり犠牲フライを打った銀次が良かったよ。初回の3点だけだと徐々に追い上げられる展開になりやすいから5回表の1点も効いたかな。ここも島内の四球から始まって銀次のタイムリーだったから1番から5番は今日の打順でしばらく試してみたいね。
2017/06/25
コメント(0)
-
楽天イーグルス 2017 6/24 vs 日本ハム 延長11回 2-1
6/24美馬は7回裏のピンチをよく凌いだね。今年は本当に安定してるな。打線は2回と3回のチャンスで得点できなくて有原を調子づかせてしまったね。ヒットじゃなくても点が入る場面で最低限もできないのが辛いな。茂木もいないしそろそろ2番ペゲーロをやめて打順を見直す時期かもね。最後はウィラーにホームランが出て松井の2イニングが投げ損にならなくて良かったよ。
2017/06/24
コメント(0)
-
楽天イーグルス 2017 6/23 vs 日本ハム
6/23安楽はあと一人だったのに勿体ない。5回裏西川に四球で交代は仕方ないかな。次がホームラン打たれた中田だしね。代わった高梨は中田に四球出してレアードに逆転タイムリー打たれたけど他に出せる投手もいないし仕方ないね。今は勝ち継投が福山、ハーマン、松井の3人しかいないから先発が6回を投げ切ってくれないと厳しいな。打線は茂木の代わりに1番に入った島内がホームランを打ったのは良かったけど先発が三本柱以外の時は最低5点は取らないと勝てそうにないから今の状態だと厳しいね。
2017/06/23
コメント(0)
-
楽天イーグルス 2017 6/16,17,18 vs 阪神 2勝1敗
6/16藤平は5回2失点なら上出来だよ。ストレートは150km/hぐらい出るのかと思ったけど144km/hぐらいだったね。ストレートで押すタイプかと思ったけど四死球も２つと多くないし意外とまとまった投球をするタイプなのかな。次は映像で見たいよ。打線は藤平が頑張ったんだから点を取ってほしかったけど6回まで三好のホームランの1安打じゃ話にならないな。6/17美馬はよく2失点で済んだなっていうくらい甘い球が多かったね。6回裏のピンチをよく凌いだよ。打線は初回に1点取った後の銀次の併殺が痛かったな。ここで3点ぐらい取りたかったよ。3回も1点取ったけど岡島がホームでアウトになって青柳を攻略できなかったな。1回と7回のチャンスでバントで送れなかったし打線が不調の時は小技ができないと辛いなって思っていたら8回のウィーラーの盗塁で流れが変わったね。最後はペゲーロの満塁ホームランも出て勢いが付いたかな。6/189回裏は痺れたな。糸井との勝負も見応えあったし俊介にサヨナラ3ラン打たれたかと思ったよ。岸は毎回のようにランナー出してたけど藤田の守備に助けられたね。8回の1アウト1，3塁が危なかったけど併殺で切り抜けられて良かったよ。打線は初対戦の投手を打てないね。まだまだ打者の地力が足りなんだろな。交流戦はソフトバンクに逆転されずに何とか首位を守ったね。オールスター明けまでは6連戦がないから楽になるけどソフトバンクとの5試合が勝負だよ。先発投手のローテーションの組み方に注目だね。
2017/06/18
コメント(0)
-
スポーツナビプロ野球一球速報のコメントをExelで表示
楽天の試合をニコ生で見ているとビジターの時はコメントなくて物足りなくなってしまうね。スポナビの一球速報のコメントをみたりしているんだけど余白が多くて一度に３つぐらいのコメントしか見れないのが不満だったからExcelで表示できるようにしてみたよ。A1 取得間隔（秒）B1 1行の文字数C1 ホーム側コメント色 1:黒 2:白 3:赤 4:緑 5:青 6:黄 7:紫 8:水色D1 ビジター側コメント色 1:黒 2:白 3:赤 4:緑 5:青 6:黄 7:紫 8:水色E1 URLExcel2000以外でちゃんと動作するかどうかわからないけどVBAはこんな感じ。無限Loopなので停止するときはctrl+Break。Sub スポナビ()On Error GoTo ErrorTrapDim oHttp As ObjectDim strURL As StringDim strText As StringDim arrData() As StringDim GetText As StringDim wIdx1 As LongDim wRow As LongDim wMaxRow As LongDim wStrno As LongDim wEndno As LongDim coment As StringDim comentd As StringDim comentn As LongDim comentmax As LongDim iro As LongDim mojisu As LongDim start As LongDim xxx(0) As StringDim i As IntegerDim StrFN As StringSheets("Sheet2").Select strURL = Cells(1, 5) mojisu = Cells(1, 2)Do comentmax = Cells(2, 4) 'クリア wMaxRow = Cells(Rows.Count, 5).End(xlUp).Row If wMaxRow < 2 Then wMaxRow = 2 Range("A2:" & "E" & wMaxRow).ClearContents wRow = 2 wStrno = 1 'オブジェクト変数に参照セットする Set oHttp = CreateObject("MSXML2.XMLHTTP") With oHttp 'URL読み込み .Open "GET", strURL, False 'キャッシュが読み込まれないように .setRequestHeader "If-Modified-Since", "Thu, 01 Jun 1970 00:00:00 GMT" .send If (.Status < 200 Or .Status >= 300) Then 'ステータスのチェック MsgBox "URL読み込みに失敗しました", vbExclamation + vbOKOnly, "Error!" Set oHttp = Nothing GoTo ExitTrap End If If InStr(1, .ResponseText, "野球実況掲示板") = 0 Then '野球実況掲示板かどうかチェック MsgBox "時系列データが見つかりません", vbInformation + vbOKOnly Set oHttp = Nothing GoTo ExitTrap End If For i = 1 To 15 '最大取得コメント数は15にしている 'HTMLソースから[コメントNo]取り出し Call 文字列抽出(wStrno, wEndno, GetText, .ResponseText, "<div class=""comment"" data-comment=""", """>") Cells(wRow, 4) = GetText comentn = GetText wStrno = wEndno + 1 'HTMLソースからコメントがホーム側かビジター側かで色を変える Call 文字列抽出(wStrno, wEndno, GetText, .ResponseText, "<div class=""teamFlag""><span class=""", """></span></div>") iro = Cells(1, 3) If InStr(1, GetText, "home") = 0 Then iro = Cells(1, 4) wStrno = wEndno + 1 'HTMLソースからコメント切り出し Call 文字列抽出(wStrno, wEndno, GetText, .ResponseText, "<p class=""comText"">", "</p>") strText = GetText wStrno = wEndno + 1 'コメントの1行区切りごとに配列セット arrData = Split(strText, "<br />", , vbTextCompare) For wIdx1 = LBound(arrData) To UBound(arrData) coment = Replace(arrData(wIdx1), vbLf, "") '改行削除 coment = Replace(arrData(wIdx1), vbCrLf, "") '改行削除 coment = Replace(coment, ">", ">") '> を < に変換 coment = Replace(coment, "…", "…") '… を … に変換 coment = Replace(coment, "→", "→") '→ を → に変換 'コメントを指定文字数毎に区切って表示 start = 1 Do comentd = Mid(coment, start, mojisu) If comentd = "" Then Exit Do If comentd = " " Then Exit Do Cells(wRow, 5) = comentd Cells(wRow, 5).Font.ColorIndex = iro wRow = wRow + 1 start = start + mojisu Loop Next wIdx1 wRow = wRow + 1 If wRow > 30 Then Exit For '最大行数は約30行にしている Next i End With ExitTrap: 'オブジェクト変数を解放する Set oHttp = Nothing 'セルA1*1秒間待つ For i = 1 To Cells(1, 1) * 2 DoEvents Application.Wait [Now() + "0:00:00.5"] Next iLoopExit SubErrorTrap: 'エラー処理 MsgBox "cmdKabukaGet_Click Error!" & Err.Number & ":" & Err.Description, vbExclamation + vbOKOnly, "Error!!" Resume ExitTrap End SubSub 文字列抽出(ByRef wStrno As Long, ByRef wEndno As Long, ByRef GetText As String, prmAllText As String, prmStrText As String, prmEndText As String) '全体文字列(prmAllText)の中から開始文字列(prmStrText)～終了文字列(prmEndText)までの間の文字を取得する wStrno = InStr(wStrno, prmAllText, prmStrText) + Len(prmStrText) '開始文字列の次の文字位置を取得する wEndno = InStr(wStrno, prmAllText, prmEndText) '終了文字列の位置を取得する GetText = Mid(prmAllText, wStrno, wEndno - wStrno) '開始文字列～終了文字列までの間の文字を取得するEnd Sub
2017/06/16
コメント(0)
-
楽天イーグルス 2017 6/13,14,15 vs ヤクルト 1勝2敗
6/13ラジオ中継もないからどんな感じなのかわからないけど釜田は結果を残せて良かったよ。球数が多かったからコントロールが良くなかったみたいだけど先発4人目が出来たね。打線は松井稼頭央の3本のタイムリーで5打点が効いたね。特に1回表にペゲーロのタイムリーで1点取った後の3ベースが良かったな。最近チャンスで1点しか取れないことが多かったからね。6/14安楽は今年初登板だから6回3失点ならまずまずだね。4回裏に1点取られた後の1アウト満塁をよく抑えたけど6回裏のホームランが余計だったな。パリーグ相手の次の登板でどうなるかだね。打線は由規に抑えられたな。由規と田中が投げあった試合でストレートだけで3回ぐらいまでノーヒットに抑えれた試合が印象に残ってるよ。序盤は球速落ちたなって思ったけど徐々にスピードが出て150km/h超えてたから完全復活したみたいだね。由規が好投して楽天が勝つのが理想だったんだけど2回表1アウト2，3塁と4回表1アウト3塁のチャンスで藤田で点が取れなかったのが痛かったな。6/15則本は肝心なところで三振取れないな。6回表のピンチで山田を歩かせたのが痛かったね。今日は嶋がワンバウンド止められなくて負傷で交代するし足立は三振なのに捕球できなくて点を取られるし則本も悪送球で点を取られるし首位とは思えない酷い内容だったな。打線も昨日から打てないね。3回表のノーアウト2塁で点を取れなかったのが今日の流れを決めたかな。最近疲れなのか不調な選手が多くなってきたね。阪神との3連戦で交流戦が終われば4日休めるから何とか踏ん張ってほしいよ。
2017/06/15
コメント(0)
-
楽天イーグルス 2017 6/9,10,11 vs 広島 2勝1敗
6/9塩見また腰痛か。先発が6人必用なのに則本、美馬、岸の3人しかいないのが厳しいね。戸村も久保もDeNA戦でけっこう投げてたから広島の強力打線を抑えるのは無理だったな。菅原も森原も失点したけど左のワンポイントかと思ってた高梨が2イニング抑えたのが良かったよ。打線は0点に抑えてた4回から7回にもうちょっと点を取れればね。ジョンソンがそんなに良さそうには見えなかったから2点じゃ物足りなかったな。6/10広島打線でもきっちり投げれば抑えられんだね。美馬は色んな球種を内と外にコントロール良く投げ分けられるのがいいな。則本みたいな投球は誰にでもできるわけじゃないけど美馬のような投球は他の投手も参考にしてほしいよね。打線が3回裏の1アウト2，3塁のチャンスを逃して4回表に1点取られて嫌な流れだと思ったよ。5回裏にアマダーのホームランで同点に出来なかったら完封されたかもね。右投手の時はアマダーの代わりに聖澤を使えばいいのにって思うけど、こういう一発を期待してアマダーを使ってるんだな。8回裏に茂木とペゲーロで1点取ったのが良かったよ。さらにウィーラーが駄目押しできればなお良かったけどね。9回表に松井が先頭打者を出したところで広島はバントしなかったのは驚いたよ。盗塁できる自信があったからなんだね。9回に1点負けてて盗塁するのは凄いよ。ただ打つだけの楽天との差だね。6/11岸は強力打線のプレッシャーのなか両サイドのコントロールが球審と合わなくて球数も増えて、かなり疲れたと思うけど7回129球をよく投げ切ったね。ただ5回表の1点は勿体なかったな。この回先頭のバティスタの四球と打たれた會澤への配球は変だよね。特に會澤の打席は2ストライク目がインコース低めいっぱいの素晴らしい球で続けてもう一球そこに投げたら少しは甘くなっちゃうな。打線は5回裏に押し出しで同点にした後に打ってれば岸に勝ちを付けられたんだけどね。広島相手に勝ち越せたのは大きいな。特に2、３戦目は1位対決に相応しい1点差のしびれるいい試合だったよ。
2017/06/11
コメント(0)
-
楽天イーグルス 2017 6/6,6/7,6/8 vs DeNA 1勝2敗
6/6辛島はストレートが甘く入って打たれてな。もう1イニング様子を見るかと思ったけど代えるの早かったね。前回の巨人戦も悪かったし見限られたかな。代わった戸村も大量失点して完敗だね。打線は2回と4回のチャンスで嶋が打っていれば違う展開になったと思うけど、また左投手を攻略できなかったのは深刻だな。今年も山形で勝てなかったね。タイムリーエラーやボークでも失点しているし酷い試合だったな。6/7森は前回良かったから期待したんだけどな。四球連発で大量失点する先発は久しぶりだね。森と森原で押し出し4失点、藤田のエラーで2失点と前日に続いて酷い試合しちゃったな。打線はペゲーロに3ランが出たのは良かったけど茂木が復調しないね。やっぱりこの2人が打たないと打線の調子は戻らないな。6/83連敗で来て則本がどういう投球をするか注目してたんだけど初回無難に立ち上がって良かったな。三振記録はプレッシャーになるならそろそろ終わってもいいけど、どうせなら田中の24勝に対抗して24試合連続2桁奪三振でもいいね。打線は茂木とペゲーロのホームランで序盤に援護できたし追加点も取れて完勝だね。明日からの広島戦は打ち勝たないと勝てそうもないから最低5点は取りたいな。明日は苦手の左投手だけど打線がちょっと活気づいて来たから何とか攻略してほしいね。
2017/06/08
コメント(0)
-
楽天イーグルス 2017 6/2,6/3,6/4 vs 中日 1勝2敗
6/2古川は頑張ったね。5回裏は危なかったけど3ベース、2ベース、四球、内野安打でも1失点で抑えたのが良かったよ。打線はまた左投手に抑えられたね。球数を投げさせて5回で交代させたのは良かったけど今後が不安だな。当日長距離移動しての試合は今年初めてだと思うから疲れがあったかもね。8回裏の伊志嶺の後逸連発も有って今年一番のつまらない試合になりそうだったけど最後島内の3ランで完封負けを阻止出来たのが救いかな。DHが使えないときはキャッチャーが嶋じゃないとだめだね。8番、9番に打てない打者がいると下位打線から上位打線に繋げられないな。6/3美馬は4回裏に荒木の2000本安打と美馬の悪送球で1，3塁になったところをよく抑えたよ。ここは打たれそうな流れだったよね。嶋が盗塁を２つ刺したのも良かったな。打線は茂木とペゲーロが最初の打席でカーブで三振して嫌な予感がしたよ。1点は取ったけど5回まで2安打で厳しいかったしね。6回にやっと集中打で3点取れて良かったよ。打線はまた上向いてほしいけど茂木が三振が多いのが気になるね。6/4岸は1回と2回に得意のカーブをヒットされて投げにくくなったかな。それにいつもより球速が出てないしコントロールも微妙に悪くて球数も多くなったね。岸は90球ぐらいで疲れが出てくるからそれが5回にきた感じかな。打線が2回の無死満塁で2点ぐらい取っていれば岸ももっとテンポよく投げれたと思うけどね。また左投手を打てなかったから対策してほしいよ。
2017/06/04
コメント(0)
-
楽天イーグルス 2017 5/30,31,6/1 vs 巨人 3勝0敗
5/30辛島は不運なヒットが続いて2回表に3点取られて立ち直れなかったね。ボール先行で球も高いしコントロールが悪かったな。代わった戸村が2回を無失点に抑えて相手に反撃させなかったのがよかったよ。打線は菅野が調子が悪かったとはいえよく8点も取ったな。初回の茂木が10球粘ってヒットを打ったことが菅野の出鼻をくじいたね。5/31塩見が復帰戦で結果を出せて良かったよ。4回と5回の併殺が助かったな。2度先頭打者に四球を出したのは次への反省だね。打線は1回と2回のチャンスを併殺で潰して嫌な感じだったけど3回にエラーと四球でもらったチャンスで3点取れて良かったよ。巨人は打線が湿っているから4回のペゲーロの特大ホームランで勝負ありって感じだったね。6/1則本は3回にペースを掴んだかなって思ったんだけど村田にホームラン打たれた球は甘かったな。カウント３-1になってストライクを投げると打たれそうな雰囲気があったね。打線は池田に苦労したね。腕の振りとチェンジアップが良くて初対戦では攻略が難しかったかな。代わったらチャンスはあると思ったけど3球で同点にするとはね。則本がせっかく記録作ったのに負けたら意味がないから9回はハラハラしたよ。バント空振りで2ndランナーをアウトにできたのがラッキーだったね。
2017/06/01
コメント(0)
全14件 (14件中 1-14件目)
1
-
-
- 花、風景の写真を撮るカメラとレンズ
- 寒風にも負けず水仙の花(1/26)
- (2026-02-02 14:22:42)
-
-
-
- ジャンクパーツ
- 秋原他でのお買い物250111ハーフその…
- (2025-02-15 18:03:22)
-
-
-
- 【楽天市場】☆☆楽天おかいどくお買い…
- ルーム ステッパー
- (2026-06-05 07:20:04)
-
