剪贴板_全角数字转半角.ahk

剪贴板_全角数字转半角(p*) {

	; 函数内部调用
	If (p.1 = "ToolTip") {
		ToolTip, % p.2
		fn := Func(A_ThisFunc).Bind("Remove_ToolTip")
		SetTimer, %fn%, -2000
		Return
	}
	Else If (p.1 = "Remove_ToolTip") {
		ToolTip
		Return
	}

	If (Clipboard = "")
		Return %A_ThisFunc%("ToolTip", "剪贴板内容为空")
	If !A_IsUnicode
		Return %A_ThisFunc%("ToolTip", "请用 AHK 的 Unicode 版本运行")
	
	data := Clipboard
	For i, v in StrSplit("０１２３４５６７８９")
		StringReplace, data, data, % v, % i-1, All
	Clipboard := data
	%A_ThisFunc%("ToolTip", Clipboard)
}