作者kslman ()
看板EzHotKey
标题Re: [AHK-] 日期转换加上星期 ex:11/23→11/23(五)
时间Sun Nov 25 23:55:40 2018
: 推 LPH66: 单纯这个例子 (0 起连续整数) 的话 SubStr 似乎可以用? 11/23 21:13
: → LPH66: SubStr("日一二三四五六", TimeString+1, 1) 11/23 21:16
谢谢大大，修改後简洁好写多了。脚本如下：
===================================================================
F1::
;将所选日期转换添加星期，以当年计算 ex:11/23→11/23(五)
OldClip = %Clipboard%
;把目前的剪贴簿内容先存起来
Send, ^c
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
V_CWday := SubStr(
"日一二三四五六", TimeString+
1,
1)
;从字串开始向右复制不超过长度1的子字符串至V_CWday
Clipboard = %Clipboard%(%V_CWday%)
Send, ^v
Clipboard = %OldClip%
;恢复先前剪贴簿内容
return
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 218.187.101.27
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/EzHotKey/M.1543161348.A.BA8.html
修正bug
※ 编辑: kslman (61.216.76.227), 11/30/2018 10:20:53
另外备注一下，有些运算的地方还是要加个sleep, 200会比较好
因为在部分程式运算可能会慢一些，脚本就会会异常，例如：evernote
※ 编辑: kslman (218.187.177.85), 12/02/2018 21:51:34