[AHK-] 日期轉換加上星期 ex:11/23→11/23(五)

[kslman ()]

因為常常需要key日期然後加上星期，所以寫了這個很懶惰的東西。

複製的日期會當作是當年，然後在後面加上星期。

也可以自己改成選擇日期，按下熱鍵就自動轉換（腳本加個^c即可）



腳本如下：
==========================================================


F1::
OldClip = %Clipboard%   ;把目前的剪貼簿內容先存起來
Loop, Parse, Clipboard, /,
{
        if A_Index <= 1 ;第1個循環存入v_month
        v_month = %A_LoopField%
        if A_Index <= 2 ;第2個循環存入v_day
        v_day = %A_LoopField%
}
if v_month < 10 ;小於10加0
v_month = 0%v_month%
if v_day < 10   ;小於10加0
v_day = 0%v_day%
FormatTime, TimeString,%A_YYYY%%v_month%%v_day%, WDay
TimeString := TimeString-1
if TimeString = 1
V_CWday = 一
if TimeString = 2
V_CWday = 二
if TimeString = 3
V_CWday = 三
if TimeString = 4
V_CWday = 四
if TimeString = 5
V_CWday = 五
if TimeString = 6
V_CWday = 六
if TimeString = 0
V_CWday = 日
Clipboard = %OldClip%(%V_CWday%)
Send, ^v
Clipboard = %OldClip%   ;恢復先前剪貼簿內容
return

==========================================================

以上純分享。


但我其實想順便問，關於這種連續值的if條件有沒有更簡單的寫法？

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 61.216.76.227
※ 文章網址: https://www.ptt.cc/bbs/EzHotKey/M.1542975562.A.7B4.html
推 LPH66: 單純這個例子 (0 起連續整數) 的話 SubStr 似乎可以用?
→ LPH66: SubStr("日一二三四五六", TimeString+1, 1)
推 LivingGym: 謝謝樓上，學到一個新方法