AHK 2.0で日付を入力して曜日を付加する
]YYYYMMDDをクリップボードに入れると変換
code:ahk
OnClipboardChange DateTranslatorCB
DateTranslatorCB(dataType)
{
if (dataType = 1 && RegExMatch(A_Clipboard, "^\](\d{4})(\d{2})(\d{2})$", &match))
{
DateStr := FormatTime(match1 match2 match3, "yyyy年MM月dd日(ddd)") A_Clipboard := DateStr
Send DateStr
}
}
Ctrl+qでメッセージボックスで入力する
code:ahk
^q::
{
userInput := InputBox("YYYYMMDD形式で日付を入力してください。", "日付入力", "w280 h90")
if (userInput.Result = "OK" && RegExMatch(userInput.Value, "^\d{8}$"))
{
if (RegExMatch(userInput.Value, "^(\d{4})(\d{2})(\d{2})$", &match))
{
Send FormatTime(match1 match2 match3, "yyyy年MM月dd日(ddd)") }
}
Return
}