快捷翻译百家姓的autohotkey脚本
导读
每次总是要去找翻译百家姓的网站,实在是麻烦,于是写了脚本来处理。
准备:
1. 找到你的启动器(你不会还没有启动器吧)
2. 设置使用autohotkey 1.x版本运行以下脚本(你也可以自行编译成一个exe, Ahk2Exe.exe 里点点点就好了)
使用:
1. 选中百家姓文本
2. 根据你的启动器的设置来启动脚本 (比如我是右键按住上滑,在弹出的工具轮上的百家姓图标上放开)
3. 会弹出对话框显示翻译的结果,可进行修改(一般没啥好改的)。然后点确定,结果就在剪贴板里。如果点取消,剪贴板就回滚到原来的内容。
#NoEnv
backup_clipboard := ClipboardAll
ClipBoard =
; check if any text selected
Sleep, 100
SendInput, ^c
Clipwait, 0.1
If ErrorLevel
{
MsgBox, Select BaiJiaXing text first
return
}
nameMap :=
(Join
{
"赵": "0", "钱": "1", "孙": "2", "李": "3", "周": "4", "吴": "5", "郑": "6", "王": "7", "冯": "8", "陈": "9",
"褚": "a", "卫": "b", "蒋": "c", "沈": "d", "韩": "e", "杨": "f", "朱": "g", "秦": "h", "尤": "i", "许": "j",
"何": "k", "吕": "l", "施": "m", "张": "n", "孔": "o", "曹": "p", "严": "q", "华": "r", "金": "s", "魏": "t",
"陶": "u", "姜": "v", "戚": "w", "谢": "x", "邹": "y", "喻": "z", "福": "A", "水": "B", "窦": "C", "章": "D",
"云": "E", "苏": "F", "潘": "G", "葛": "H", "奚": "I", "范": "J", "彭": "K", "郎": "L", "鲁": "M", "韦": "N",
"昌": "O", "马": "P", "苗": "Q", "凤": "R", "花": "S", "方": "T", "俞": "U", "任": "V", "袁": "W", "柳": "X",
"唐": "Y", "罗": "Z", "薛": ".", "伍": "", "余": "_", "米": "+", "贝": "=", "姚": "/", "孟": "?", "顾": "#",
"尹": "%", "江": "&", "钟": "*", "竺": ":"
}
)
str := Clipboard
str := Trim(str, OmitChars = " `t")
is_magnet := 0
if (SubStr(str, 1, 20) = "magnet:?xt=urn:btih:") {
; Extract the remaining content using SubStr
str := SubStr(str, 21)
is_magnet := 1
}
; Iterate over the array of characters and convert each character to its corresponding code.
code := ""
Loop, Parse, str
code .= nameMap[A_LoopField]
if (is_magnet) {
code := "magnet:?xt=urn:btih:" . code
}
InputBox, code, BaiJiaXing to Code, From: %Clipboard%,,1000,,,,,, %code%
if ErrorLevel
ClipBoard := backup_clipboard
else
ClipBoard := code
复制代码
