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

楼主: kslman   2018-11-23 20:19:20
因为常常需要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条件有没有更简单的写法?
作者: LPH66 (-6.2598534e+18f)   2018-11-23 21:13:00
单纯这个例子 (0 起连续整数) 的话 SubStr 似乎可以用?SubStr("日一二三四五六", TimeString+1, 1)
作者: LivingGym (living)   2018-11-25 03:16:00
谢谢楼上,学到一个新方法

Links booklink

Contact Us: admin [ a t ] ucptt.com