More than 3 years have passed since last update.

フリーソフトが使えない人のためのタイムマネジメントツール（Powershell）

PowerShell

Last updated at 2019-12-26Posted at 2019-12-26

はじめに

タイムマネジメントが大切だと思う今日この頃、、、
世の中にはタイムマネジメントを助ける素敵なツールがたくさんあるのですが、
「フリーソフトはインストールダメ！！！」とか「OSSなんてけしからん」などといったしがらみにより使えないということが多々あります。

そんなときのために、作業時間を計測してCSVに出力するだけのツールを作成しました。

動作環境

環境	バージョン
OS	Windows 10 Pro 10.0.18362
実行環境	Powershell 5.1.18362.145

仕様

所要時間と成果物の紐づけが出来たらいいなくらいの気持ちで作っています。

使い方

リストから項目を選んで、「memo」に作業内容を簡潔に書く
作業が終わったら、成果物の場所を入力する
1. そのまま別作業がある場合「完了」をクリック
2. 当日の作業がすべて終わった場合は「帰宅」をクリック（アプリケーションが終了します）

出力イメージ（追記）

ソース

※追記（出力にヘッダー付けました）

timeApp.ps1

# .NET Framework クラスを読み込み
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing

set-variable -name exitRc -value "Exit" -option constant
set-variable -name normalRC -value "Continue" -option constant
set-variable -name initValue -value "None" -option constant

# ジョブコードを配列で返す
function jobList {
    $jobCodeList = @("会議",
                    "レビュー",
                    "設計",
                    "検証",
                    "構築",
                    "テスト",
                    "運用",
                    "雑務")
    return $jobCodeList
}

function startForm {
    # フォーム クラスの定義
    $form = New-Object System.Windows.Forms.Form
    $form.Text = 'Select job'
    $form.Size = New-Object System.Drawing.Size(300,250)
    $form.StartPosition = 'CenterScreen'

    # [OK] ボタンを作成
    $OKButton = New-Object System.Windows.Forms.Button
    $OKButton.Location = New-Object System.Drawing.Point(75,180)
    $OKButton.Size = New-Object System.Drawing.Size(75,23)
    $OKButton.Text = 'OK'
    $OKButton.DialogResult = [System.Windows.Forms.DialogResult]::OK
    $form.AcceptButton = $OKButton
    $form.Controls.Add($OKButton)

    # [キャンセル] ボタンを作成
    $CancelButton = New-Object System.Windows.Forms.Button
    $CancelButton.Location = New-Object System.Drawing.Point(150,180)
    $CancelButton.Size = New-Object System.Drawing.Size(75,23)
    $CancelButton.Text = 'Cancel'
    $CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
    $form.CancelButton = $CancelButton
    $form.Controls.Add($CancelButton)

    # ラベルのテキストをウィンドウ上に用意
    $label = New-Object System.Windows.Forms.Label
    $label.Location = New-Object System.Drawing.Point(10,20)
    $label.Size = New-Object System.Drawing.Size(280,20)
    $label.Text = 'Please select a job:'
    $form.Controls.Add($label)

    # ラベルのテキストに記述した情報をユーザーに提供するコントロールを追加
    $listBox = New-Object System.Windows.Forms.ListBox
    $listBox.Location = New-Object System.Drawing.Point(10,40)
    $listBox.Size = New-Object System.Drawing.Size(260,20)
    $listBox.Height = 80

    $listContent = jobList
    foreach ($lc in $listContent){
        [void] $listBox.Items.Add($lc)
    }
    # フォームを開くときに他のウィンドウとダイアログボックスの最上部に開くよう、Windowsに指示
    $form.Controls.Add($listBox)

    # ラベルのテキストをウィンドウ上に用意
    $textBoxLabel = New-Object System.Windows.Forms.Label
    $textBoxLabel.Location = New-Object System.Drawing.Point(10,120)
    $textBoxLabel.Size = New-Object System.Drawing.Size(280,20)
    $textBoxLabel.Text = 'Memo:'
    $form.Controls.Add($textBoxLabel)
    
    # 作業メモ入力ボックスの設定
    $textBox = New-Object System.Windows.Forms.TextBox 
    $textBox.Location = New-Object System.Drawing.Point(10,140) 
    $textBox.Size = New-Object System.Drawing.Size(260,10)
    $form.Controls.Add($textBox) 

    $form.Topmost = $true

    # Windows でフォームを表示
    $result = $form.ShowDialog()
    # 入力結果を代入
    [string[]]$startFormRtnArr = @($initValue,$initValue)
    if ($result -eq [System.Windows.Forms.DialogResult]::OK){
        $listitem = $listBox.SelectedItem
        $startFormRtnArr[0] = $listitem
        $startFormRtnArr[1] = $textBox.Text
        return $startFormRtnArr
    } else {
        return $startFormRtnArr
    }
}

function stopForm([string]$args1, [array]$args2) {
    $startCode = $args1 + " " + $args2[0] + " " + $args2[1]

    # フォーム クラスの定義
    $endform = New-Object System.Windows.Forms.Form
    $endform.Text = 'Continue or Exit'
    $endform.Size = New-Object System.Drawing.Size(300,200)
    $endform.StartPosition = 'CenterScreen'


    # ラベルのテキストをウィンドウ上に用意
    $endlabel = New-Object System.Windows.Forms.Label
    $endlabel.Location = New-Object System.Drawing.Point(10,20)
    $endlabel.Size = New-Object System.Drawing.Size(280,40)
    $endlabel.Text = $startCode
    $endform.Controls.Add($endlabel)

    #  [完了] ボタンを作成
    $ENDButton = New-Object System.Windows.Forms.Button
    $ENDButton.Location = New-Object System.Drawing.Point(75,120)
    $ENDButton.Size = New-Object System.Drawing.Size(75,23)
    $ENDButton.Text = '完了'
    $ENDButton.DialogResult = [System.Windows.Forms.DialogResult]::OK
    $endform.AcceptButton = $ENDButton
    $endform.Controls.Add($ENDButton)

    #  [帰宅] ボタンを作成
    $KITAKUButton = New-Object System.Windows.Forms.Button
    $KITAKUButton.Location = New-Object System.Drawing.Point(150,120)
    $KITAKUButton.Size = New-Object System.Drawing.Size(75,23)
    $KITAKUButton.Text = '帰宅'
    $KITAKUButton.DialogResult = [System.Windows.Forms.DialogResult]::Abort 
    $endform.AcceptButton = $KITAKUButton
    $endform.Controls.Add($KITAKUButton)

    # ラベルのテキストをウィンドウ上に用意
    $stopTextBoxLabel = New-Object System.Windows.Forms.Label
    $stopTextBoxLabel.Location = New-Object System.Drawing.Point(10,70)
    $stopTextBoxLabel.Size = New-Object System.Drawing.Size(280,20)
    $stopTextBoxLabel.Text = '成果物:'
    $endform.Controls.Add($stopTextBoxLabel)
    
    # 作業メモ入力ボックスの設定
    $stopTextBox = New-Object System.Windows.Forms.TextBox 
    $stopTextBox.Location = New-Object System.Drawing.Point(10,90) 
    $stopTextBox.Size = New-Object System.Drawing.Size(260,20)
    $endform.Controls.Add($stopTextBox) 

    # フォームを開くときに他のウィンドウとダイアログ ボックスの最上部に開くよう、Windows に指示
    $endform.Topmost = $true

    # Windows でフォームを表示
    $endresult = $endform.ShowDialog()
    # 入力結果を代入
    [string[]]$stopFormRtnArr = @($initValue,$initValue)
    if ($endresult -eq [System.Windows.Forms.DialogResult]::OK){
        $stopFormRtnArr[0] = $normalRC
        $stopFormRtnArr[1] = $stopTextBox.Text
    } else {
        $stopFormRtnArr[0] = $exitRc
        $stopFormRtnArr[1] = $stopTextBox.Text
    }
    return $stopFormRtnArr
}

# ======================================================
# メイン処理
# ======================================================
# csvファイル出力先設定
$formatted_date = (Get-Date).ToString("yyyyMM")
[string]$filename = "D:\${formatted_date}_作業実績.csv"
$headerText = "開始時刻,終了時刻,作業項目,所要時間,作業メモ,成果物"

if (!(Test-Path $filename)) {
    Write-Output $headerText | Add-Content $filename -Encoding String
}

# アプリケーション起動
while ($true) {
    $jobArr = startForm
    $startDate = Get-Date

    if ($jobArr[0] -ne $initValue) {
        $rcArr = stopForm $startDate $jobArr
        $endDate = Get-Date
    
        # 差分確認
        $timeDiff = $endDate - $startDate
        $timeDiffString = [string]$timeDiff
        $timeDiffSplit = $timeDiffString.Split(".")
    
        # ファイル出力
        $printText = [string]$startDate + "," + [string]$endDate + "," + $jobArr[0] + "," + $timeDiffSplit[0] + "," + $jobArr[1] + "," + $rcArr[1]
        Write-Output $printText | Add-Content $filename -Encoding String
    
        # 帰宅ボタンが押されたときアプリケーション終了
        if ($rcArr[0] -eq $exitRc) {
            break
        }
    }
}

感想

初めてPowershellを使ってみましたが、情報もたくさん出回っていていいなと思いました。
PowerShellはWindowsマシンで大体動くはずなので、少し勉強したいなと思います。

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up