作者kslman ()
看板EzHotKey
标题[AHK-] 日期转换加上星期 ex:11/23→11/23(五)
时间Fri Nov 23 20:19:20 2018
因为常常需要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://webptt.com/cn.aspx?n=bbs/EzHotKey/M.1542975562.A.7B4.html
1F：推 LPH66: 单纯这个例子 (0 起连续整数) 的话 SubStr 似乎可以用? 11/23 21:13
2F：→ LPH66: SubStr("日一二三四五六", TimeString+1, 1) 11/23 21:16
3F：推 LivingGym: 谢谢楼上，学到一个新方法 11/25 03:16