parameter sheet: accept H:mm style for UsageTimeLimit

Author: HashidaTKS

docs/sources/BrowserGuardAdminGuide.md

@@ -731,7 +731,8 @@ JSON の書式を意識せずに、機能ごとのシートの表へ設定値を
 * 編集するのは「値」列だけです。
   「内部パラメータ名」列は設定ファイルの項目名と対応しているため、変更すると出力できなくなります。
 * 有効・無効や動作の種類は、プルダウンから選択します。
-* 数値は 0 以上の整数で記入します。
+* 数値は 0 以上の整数で記入します。空欄にはできません。
+  * 空欄のまま出力しようとすると、入力エラーになります。
 * 拡張子やプログラムの一覧などの表で行が足りない場合は、
   表の最終行で Tab キーを押すか、表内に行を挿入して増やします。
 * 空欄の行は出力時に読み飛ばされます。
@@ -1000,8 +1001,8 @@ JSON の書式を意識せずに、機能ごとのシートの表へ設定値を
 | `Enabled` | 真偽値 | `false` | この機能を有効にする |
 | `MaxContinuousMinutes` | 数値 | `0` | 連続して使用できる時間（分）。`0` は無制限 |
 | `AllowedTimeRanges` | オブジェクトの配列 | `[]` | 使用を許可する時間帯。空の場合は時間帯では制限しない |
-| `AllowedTimeRanges[].Start` | 文字列 | `""` | 開始時刻（`HH:mm`、24 時間表記の現地時刻） |
-| `AllowedTimeRanges[].End` | 文字列 | `""` | 終了時刻（`HH:mm`、24 時間表記の現地時刻） |
+| `AllowedTimeRanges[].Start` | 文字列 | `""` | 開始時刻（`H:mm` または `HH:mm`、24 時間表記の現地時刻） |
+| `AllowedTimeRanges[].End` | 文字列 | `""` | 終了時刻（`H:mm` または `HH:mm`、24 時間表記の現地時刻） |
 | `OnExceeded.Action` | 文字列 | `"WarnOnly"` | 超過時の動作。`WarnOnly` または `Terminate` |
 | `OnExceeded.GraceSeconds` | 数値 | `60` | `Terminate` の場合に、警告してから終了するまでの猶予（秒） |
 | `OnExceeded.ReWarnIntervalMinutes` | 数値 | `10` | 警告を出し直す間隔（分）。`0` の場合は繰り返さない |
@@ -1011,7 +1012,7 @@ JSON の書式を意識せずに、機能ごとのシートの表へ設定値を
 * 終了が開始より**前**である場合、日をまたぐ指定と解釈されます。
   `{ "Start": "22:00", "End": "02:00" }` は日をまたぐ 4 時間の時間帯です。
 * 開始と終了が同じ場合は、終日を表します。
-* `HH:mm` として読み取れない時間帯は無視されます。
+* `H:mm` または `HH:mm` として読み取れない時間帯は無視されます。
 
 ### 超過時の動作
 

tools/parameter-sheet/ExportConfig.bas

@@ -302,7 +302,7 @@ Private Function CollectProblems() As Collection
         startText = TimeText(lo, CLng(r), 1)
         endText = TimeText(lo, CLng(r), 2)
         If Not IsHourMinute(startText) Or Not IsHourMinute(endText) Then
-            problems.Add "・使用時間の制限: " & r & " 行目の時刻は HH:mm 形式で入力してください。"
+            problems.Add "・使用時間の制限: " & r & " 行目の時刻は H:mm または HH:mm 形式で入力してください。"
         End If
     Next r
 
@@ -314,7 +314,11 @@ Private Sub CheckLong(ByVal problems As Collection, ByVal tableName As String, _
     Dim v As Variant
 
     v = ParamRaw(tableName, paramName)
-    If Trim$(CStr(v & "")) = "" Then Exit Sub
+    ' 空欄は 0 として出力されてしまい、保持日数の 0 (無期限) のように意味が変わるため止める。
+    If Trim$(CStr(v & "")) = "" Then
+        problems.Add "・" & sheetLabel & ": " & paramName & " が空欄です。0 以上の整数を入力してください。"
+        Exit Sub
+    End If
 
     If Not IsNumeric(v) Then
         problems.Add "・" & sheetLabel & ": " & paramName & " には数値を入力してください。"
@@ -324,16 +328,26 @@ Private Sub CheckLong(ByVal problems As Collection, ByVal tableName As String, _
 End Sub
 
 Private Function IsHourMinute(ByVal s As String) As Boolean
+    IsHourMinute = (NormalizeHourMinute(s) <> "")
+End Function
+
+' H:mm または HH:mm を HH:mm に揃える。読めなければ空文字。
+' 時を 1 桁でも受け付けるのは、本体 (usage-time-limit.js の parseTimeOfDay) に合わせるため。
+Private Function NormalizeHourMinute(ByVal s As String) As String
+    Dim p As Long
     Dim hourPart As String
     Dim minutePart As String
 
-    If Len(s) <> 5 Or Mid$(s, 3, 1) <> ":" Then Exit Function
+    p = InStr(s, ":")
+    If p = 0 Then Exit Function
 
-    hourPart = Left$(s, 2)
-    minutePart = Right$(s, 2)
-    If Not IsNumeric(hourPart) Or Not IsNumeric(minutePart) Then Exit Function
+    hourPart = Left$(s, p - 1)
+    minutePart = Mid$(s, p + 1)
+    If Not (hourPart Like "#" Or hourPart Like "##") Then Exit Function
+    If Not (minutePart Like "##") Then Exit Function
+    If CLng(hourPart) > 23 Or CLng(minutePart) > 59 Then Exit Function
 
-    IsHourMinute = (CLng(hourPart) <= 23 And CLng(minutePart) <= 59)
+    NormalizeHourMinute = Format$(CLng(hourPart), "00") & ":" & minutePart
 End Function
 
 
@@ -446,16 +460,18 @@ Private Function CellText(ByVal lo As ListObject, ByVal rowIndex As Long, ByVal
 End Function
 
 ' 時刻はシリアル値で入ることもあるので、どちらでも HH:mm に揃える。
+' 文字列の "0900" も IsNumeric は真を返すため、数値の型で入っているときだけ時刻として扱う。
 Private Function TimeText(ByVal lo As ListObject, ByVal rowIndex As Long, ByVal colIndex As Long) As String
     Dim v As Variant
 
     v = lo.DataBodyRange.Cells(rowIndex, colIndex).Value
     If Trim$(CStr(v & "")) = "" Then Exit Function
 
-    If IsNumeric(v) Then
+    If VarType(v) = vbDouble Or VarType(v) = vbDate Then
         TimeText = Format$(CDate(v), "hh:nn")
     Else
         TimeText = Trim$(CStr(v))
+        If IsHourMinute(TimeText) Then TimeText = NormalizeHourMinute(TimeText)
     End If
 End Function
 

tools/parameter-sheet/make-parameter-sheet.ps1

@@ -230,7 +230,7 @@ try {
     $row++
     foreach ($line in @(
         '・「値」列だけを編集してください。「内部パラメータ名」は JSON のキーと対応しており、変更すると出力できなくなります。',
-        '・有効・無効はプルダウンから選びます。数値は 0 以上の整数です。',
+        '・有効・無効はプルダウンから選びます。数値は 0 以上の整数で、空欄にはできません。',
         '・表の行が足りない場合は、表の最終行で Tab キーを押すか、表内で行を挿入して増やせます。',
         '・空欄の行は出力時に読み飛ばされるため、消し忘れの空行があっても問題ありません。')) {
         $ws.Cells($row, 1).Value2 = $line
@@ -431,7 +431,7 @@ try {
     $listRow = $row + 8
     Set-SectionLabel -Sheet $ws -Row $listRow -Column 1 -Text '利用を許可する時間帯'
     foreach ($line in @(
-        '24 時間表記の HH:mm で記入します。1 行も書かなければ時間帯では制限しません。',
+        '24 時間表記の H:mm または HH:mm で記入します (9:00 と 09:00 はどちらも可)。1 行も書かなければ時間帯では制限しません。',
         '終了が開始より後にならない場合は日をまたぐ指定です (22:00 - 02:00 なら 4 時間)。')) {
         $ws.Cells($listRow + 1, 1).Value2 = $line
         $ws.Cells($listRow + 1, 1).Font.Color = $COLOR_MUTED

tools/parameter-sheet/test-parameter-sheet.ps1

@@ -113,7 +113,7 @@ try {
     (Get-ParamCell $wb 'T_UsageTimeLimit' 'OnExceeded.Action').Value2 = 'ブラウザーを終了する'
 
     $ranges = Get-Table $wb 'A_UsageTimeLimit_AllowedTimeRanges'
-    $ranges.DataBodyRange.Cells(1, 1).Value2 = '09:00'
+    $ranges.DataBodyRange.Cells(1, 1).Value2 = '9:00'
     $ranges.DataBodyRange.Cells(1, 2).Value2 = '12:00'
     $ranges.DataBodyRange.Cells(2, 1).Value2 = '22:00'
     $ranges.DataBodyRange.Cells(2, 2).Value2 = '02:00'
@@ -146,7 +146,7 @@ try {
 
     Assert-Equal -Label 'OnExceeded.Action が内部値になる' -Expected 'Terminate' -Actual $config.UsageTimeLimit.OnExceeded.Action
     Assert-Equal -Label 'AllowedTimeRanges の件数' -Expected 2 -Actual $config.UsageTimeLimit.AllowedTimeRanges.Count
-    Assert-Equal -Label 'AllowedTimeRanges[0].Start' -Expected '09:00' -Actual $config.UsageTimeLimit.AllowedTimeRanges[0].Start
+    Assert-Equal -Label 'AllowedTimeRanges[0].Start (9:00 が 09:00 にそろう)' -Expected '09:00' -Actual $config.UsageTimeLimit.AllowedTimeRanges[0].Start
     Assert-Equal -Label 'AllowedTimeRanges[1].End (日をまたぐ)' -Expected '02:00' -Actual $config.UsageTimeLimit.AllowedTimeRanges[1].End
 
     Assert-Equal -Label 'Programs の件数' -Expected 1 -Actual $config.StartupLauncher.Programs.Count
@@ -170,7 +170,15 @@ try {
 
     $ranges.DataBodyRange.Cells(1, 1).Value2 = '9時'
     Assert-True -Label '時刻の書式が違えば止まる' -Condition ((Invoke-Macro $xl 'ValidationMessage') -match 'HH:mm')
-    $ranges.DataBodyRange.Cells(1, 1).Value2 = '09:00'
+    $ranges.DataBodyRange.Cells(1, 1).Value2 = '0900'
+    Assert-True -Label '区切りのない 0900 も止まる' -Condition ((Invoke-Macro $xl 'ValidationMessage') -match 'HH:mm')
+    $ranges.DataBodyRange.Cells(1, 1).Value2 = '9:00'
+    Assert-Equal -Label '9:00 は入力チェックを通る' -Expected '' -Actual (Invoke-Macro $xl 'ValidationMessage')
+
+    (Get-ParamCell $wb 'T_NetLogger' 'LocalFile.MaxDays').Value2 = ''
+    Assert-True -Label '数値の欄が空欄なら止まる' `
+        -Condition ((Invoke-Macro $xl 'ValidationMessage') -match 'LocalFile.MaxDays が空欄')
+    (Get-ParamCell $wb 'T_NetLogger' 'LocalFile.MaxDays').Value2 = 90
 
     $programs.DataBodyRange.Cells(2, 2).Value2 = '--only-args'
     Assert-True -Label 'パスのない行があれば止まる' -Condition ((Invoke-Macro $xl 'ValidationMessage') -match '実行ファイルのパス')