2021年度のプロ野球日程をCSVで

2021年度のプロ野球は3月26日に開幕予定です。
公式戦の日程をCSVにしてみました。 (さらに…)

2020年B1全日程

B.LEAGUEの2019-2020シーズンは新型コロナの影響で消化不良のまま終わってしまいました。
そして、2020-2021シーズンのB.LEAGUEの日程が決まりました。
2020年10月2日に開幕試合、東京対川崎が行われます。
600試合の予定をCSVにまとめました。
なお現時点で開始時刻が決まっているのは10月28日までです。 (さらに…)

2020年度のプロ野球日程をCSVで

ようやく2020年度のNPBの日程が決まりました。最初の1カ月だけですが。
開幕の6月19日から7月23日までの全日程をCSVにまとめました。 (さらに…)

JSONとCSVを相互に変換する「JSON⇄CSV」

JSONをCSVに変換するツールを作っていて「前に作ったことがあるぞ」と思い出して、ファイルを探すとありました。無駄な作業をしてしまいました。 (さらに…)

ロシアW杯Googleカレンダー用CSV

FIFAワールドカップ2018の予選リーグ日程をCSVにしてみました。
Googleカレンダーにインポートして使えます。 (さらに…)

株価を調べる「株価一括取得ツール」

ちょっと前に複数の上場企業の株価を調べる機会がありました。
そのときに作ろうと思っていたツールをようやく作りました。もはや使う機会がありませんが。 (さらに…)

プロ野球の日程をCSVにする(2017年)

プロ野球の日程が決まりました。
試合日程・結果 | NPB.jp 日本野球機構
今年もGoogleカレンダーにインポートするためのCSVを作ってみました。

日本プロ野球2017年試合日程

予備日やオールスターなどの日程は外しています。
実際にGoogleカレンダーにインポートしてみましたが858件が正しくインポートされました。ただし毎日のように6試合のイベントが表示されるので邪魔です。特定のチームに絞ってインポートするのがいいでしょう。
インポートについてはGoogleカレンダーにCSVファイルから予定をインポートする方法を参考にしてください。

ブラジルW杯(予選リーグ)Googleカレンダー用CSV

ブラジルで行われる2014FIFAワールドカップの予選リーグについて、試合予定をGoogleカレンダーにインポートするためのCSVを作りました。

ブラジルW杯予選Googleカレンダー用

日本とブラジルの時差はちょうど12時間ですが、一部11時間のところがあるようです。

Toodledoのインポート用CSVを作成するマクロ

Excelシートに作ったToodledo用のデータをCSVに変換するマクロです。
CSVをToodledoにインポートする操作についてはYou Look Too Cool » Toodledoでタスクをインポートする方法を参考にしてください。

Excelシート

使う見出しはTASK,FOLDER,CONTEXT,DUEDATEの4つです。
他の見出しにも対応するはずですが試していません。
使わない見出しは削除しても構いませんがTASKは必須だと思います。
ワークシートに次のようにセットします。

A B C D
1 TASK FOLDER CONTEXT DUEDATE
2 資料作成 打合せ Work 2012/10/20
3 煙突掃除 掃除 Life 2012/10/21

マクロ

アクティブシートに対して処理されます。

Sub Toodledoインポート用CSV出力()
    fnsave = Application.GetSaveAsFilename( _
        "import.csv", "CSV(*.csv),*.csv")
    If fnsave = False Then Exit Sub
    mytext = ""
    i = 1
    Do
        j = 1
        Do
            If Cells(1, j) = "DUEDATE" Then
                temp = Format(Cells(i, j), "yyyy-mm-dd")
            Else
                temp = Cells(i, j)
            End If
            mytext = mytext & Chr(34) & temp & Chr(34) & ","
            j = j + 1
        Loop Until Cells(i, j) = ""
        mytext = Left(mytext, Len(mytext) - 1) & vbCrLf
        i = i + 1
    Loop Until Cells(i, 1) = ""
    mytext = Left(mytext, Len(mytext) - Len(vbCrLf))
    With CreateObject("ADODB.Stream")
        .Type = 2
        .Charset = "utf-8"
        .Open
        .WriteText mytext, 1
        .SaveToFile fnsave, 2
        .Close
    End With
End Sub

千葉ロッテとジェフ千葉のGoogleカレンダー用データ

今年の千葉ロッテはドラフトで獲得した3人の投手がそれぞれ個性的で3人とも一軍に残る可能性があるということでとても楽しみです。
例年、ロッテはドラフトで獲った選手がそれなりに活躍するので今年も期待したいと思います。

問題はジェフ千葉の方でしょうか。今年こそはJ1に復帰してもらいたいところです。

そこで、千葉ロッテマリーンズとジェフ千葉のGoogleカレンダー用のCSVデータを作りました。ジェフの方は既に始まってしまいましたが。 (さらに…)

古い記事

タグ

カテゴリー

最近の投稿

最近のコメント

固定ページ

アーカイブ

stabucky

写真

メタ情報