by AAHKUser » 28 Jun 2020, 16:43
@tmplinshi
发现现在空格也会算为字数,我做了一点点点修改,加了一行
Code: Select all
~^c::
Clip:=StrReplace(Clipboard, A_Space, "") ;去掉空格
if IsDoubleClick()
ToolTip(StrLen(Clip)" 个字",,,, 2000)
Return
IsDoubleClick() {
static doubleClickTime := DllCall("GetDoubleClickTime")
KeyWait, % LTrim(A_ThisHotkey, "~")
return (A_ThisHotKey = A_PriorHotKey) && (A_TimeSincePriorHotkey <= doubleClickTime)
}
ToolTip(Text := "", X := "", Y := "", WhichToolTip := 1, Timeout := "") {
ToolTip, % Text, X, Y, WhichToolTip
If (Timeout) {
RemoveToolTip := Func("ToolTip").Bind(,,, WhichToolTip)
SetTimer, % RemoveToolTip, % -Timeout
}
}
[mention]tmplinshi[/mention]
发现现在空格也会算为字数,我做了一点点点修改,加了一行
[code]~^c::
Clip:=StrReplace(Clipboard, A_Space, "") ;去掉空格
if IsDoubleClick()
ToolTip(StrLen(Clip)" 个字",,,, 2000)
Return
IsDoubleClick() {
static doubleClickTime := DllCall("GetDoubleClickTime")
KeyWait, % LTrim(A_ThisHotkey, "~")
return (A_ThisHotKey = A_PriorHotKey) && (A_TimeSincePriorHotkey <= doubleClickTime)
}
ToolTip(Text := "", X := "", Y := "", WhichToolTip := 1, Timeout := "") {
ToolTip, % Text, X, Y, WhichToolTip
If (Timeout) {
RemoveToolTip := Func("ToolTip").Bind(,,, WhichToolTip)
SetTimer, % RemoveToolTip, % -Timeout
}
}[/code]