前後の週を含んだ日付とメモを書き出すVBスクリプト
日記など同じフォーマットで日付をまとめて入力する手間を省きます。vbscriptの練習で作ったものです。
"01/02(月) [東京]"(カッコ内は固定) のようなフォーマットで実行した日を含めた二週間分の日付と曜日を出力します。メモ帳などで以下をコピー＆ペーストし、保存してください。ファイル名はなんでもよく、拡張子に".vbs"をつけてください。実行すると以下スクリプト9行目の場所に出力します。
Option Explicit
Dim FSO
Dim oLog
Dim wday
Dim DateForm
wday = weekday(Now())
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oLog = FSO.CreateTextFile("C:day.txt") 'ファイルを書き出す場所を好きな場所へ変更する。
Dim varC, varD, varE, varF, varG
Function DateCalc()
varC = DateAdd("d", varD, now())
DateForm = Right("0" & Month(varC),2) & "/" & Right("0" & Day(varC),2) & "(" & Weekdayname(Weekday(varC), TRUE) & ") [東京]" '[]内の文字を変更することができる。
oLog.WriteLine(DateForm)
varD = varD + 1
End Function
Select Case wday
Case 1
varD = 1
Do Until varD > 5
DateCalc()
Loop
oLog.WriteLine(vbCrLf)
varD = 8
Do Until varD > 12
DateCalc()
Loop
Case 2
varD = 0
Do Until varD > 4
DateCalc()
Loop
oLog.WriteLine(vbCrLf)
varD = 7
Do Until varD > 11
DateCalc()
Loop
Case 3
varD = -1
Do Until varD > 3
DateCalc()
Loop
oLog.WriteLine(vbCrLf)
varD = 6
Do Until varD > 10
DateCalc()
Loop
Case 4
varD = -2
Do Until varD > 2
DateCalc()
Loop
oLog.WriteLine(vbCrLf)
varD = 5
Do Until varD > 9
DateCalc()
Loop
Case 5
varD = -3
Do Until varD > 1
DateCalc()
Loop
oLog.WriteLine(vbCrLf)
varD = 4
Do Until varD > 8
DateCalc()
Loop
Case 6
varD = -4
Do Until varD > 0
DateCalc()
Loop
oLog.WriteLine(vbCrLf)
varD = 3
Do Until varD > 7
DateCalc()
Loop
Case 7
varD = -5
Do Until varD > -1
DateCalc()
Loop
oLog.WriteLine(vbCrLf)
varD = 2
Do Until varD > 6
DateCalc()
Loop
End Select
oLog.Close()
Set oLog = Nothing
Set FSO = Nothing
[/javascript]
