|
动机
你曾遇到过下面这些情况吗？在上网或看文献时总是会遇到不认识的单词还要打开词典软件或谷歌翻译查词？或者有些汉字不知道它的拼音还要去百度它的拼音？又或者想不起来一个词语的英文翻译？又又或者在复制pdf中的多行文本时还得手动把复制出来的换行删掉？
相信你或多或少都和遇到过上面的烦恼，下面分享一个我使用的AutoHotKey脚本帮大家解决这些问题。如果你认为此脚本可以有更多的可能性或者有更好的实现方式，欢迎在评论区讨论；如果你觉得脚本对你有用，还请顺手点赞收藏，你的支持是对我最大的鼓励😊
脚本功能
该脚本可以实现的功能如下：
如果选中的内容为多行文本，将其转换为单行，并且会删除从第二行开始每行开头的注释符号（#;%）；如果第二行开始的开头除注释符号外的第一个字符为中文或中文符号，则与前一行之间没有空格，否则与前一行之间加空间如果选中的内容中的中文字符占全部字符的占比较大（80%以上），且总字符长度较长（我的脚本里是大于4，可以根据需求更改），则弹窗显示已转换为单行的字符串，2s后弹窗自动关闭；如果字符长度较短，则弹窗显示字符串的拼音，3s后弹窗自动关闭如果选中的内容中的中文字符占全部字符的占比较少，且总字符长度较短（我的脚本里是小于30，可以根据需求更改），则弹窗显示中文翻译结果，3s后弹窗自动关闭；如果字符长度较长，也会弹窗显示中文翻译结果，但是不会自动关闭将选中的文本翻译成英文
脚本使用方法
单击F1键，实现功能1，并根据条件实现功能2或功能3； 双击F1键，实现功能1，并实现功能4； 长按F1键，F1键的原始功能。
功能展示
单击F1：
翻译成中文：
查询中文拼音：
双击F1：
翻译成英文：
脚本
$F1::
KeyWait, F1, T0.6 ;wait 0.6s
if (ErrorLevel)
sendinput {F1} ;long press
else {
KeyWait, F1, D T0.3 ;wait 0.3s
if (ErrorLevel)
translate("auto","zh-CN") ;single press
else
translate("auto","en") ;double press
}
KeyWait, F1
return
; Google Translate:
translate(from := "auto", to := "zh-CN")
{
Clipboard := ""
SendInput, ^c
ClipWait, 1
if ErrorLevel
Return
;Later two lines transform multiline string to single line string, and save results in clipboard. This is very useful when copying multiline string from pdf.
Clipboard:=RegExReplace(Clipboard,"\r\n[ #;%]*([\x{3002}\x{ff1b}\x{ff0c}\x{ff1a}\x{201c}\x{201d}\x{ff08}\x{ff09}\x{3001}\x{ff1f}\x{300a}\x{300b}\x{4e00}-\x{9fa5}])","$1")
Clipboard:=RegExReplace(Clipboard,"\r\n[ #;%]*"," ")
;Clipboard:=RegExReplace(Clipboard,"\r\n[ #;%]*([A-z])"," $1")
;Clipboard:=RegExReplace(Clipboard,"\r\n[ #;%]*([^A-z])","$1")
if (to == "en") ;translate other language to english
{
MsgBox, ,,% GoogleTranslate(Clipboard,from,to).full, 3
}
else ;translate other language to chinese or get chinese pinyin
{
a:=StrLen(RegExReplace(Clipboard,"[^\x{3002}\x{ff1b}\x{ff0c}\x{ff1a}\x{201c}\x{201d}\x{ff08}\x{ff09}\x{3001}\x{ff1f}\x{300a}\x{300b}\x{4e00}-\x{9fa5}]","")) ;calculate chinese charactor length
b:=StrLen(Clipboard) ;total string length
c:=a/b ;chinese charactor percent
if (c >0.8) ;if most charactor is chinese charactor, don't translate to chinese
{
if (b>4) ;When string length is long, just show it.
msgbox,,,%clipboard% ,2
else ;When string length is short, show it's pinyin.
MsgBox, ,,% GoogleTranslate(Clipboard).pinyin, 3
}
else ;if most charactor isn't chinese charactor, translate to chinese
{
if(b
for k, v in oJSON[1]
trans .= v[1]
}
else {
MainTransText := oJSON[1, 1, 1]
for k, v in oJSON[2] {
trans .= "`n+"
for i, txt in v[2]
trans .= (MainTransText = txt ? "" : "`n" . txt)
}
}
if !IsObject(oJSON[2])
MainTransText := trans := Trim(trans, ",+`n ")
else
trans := MainTransText . "`n+`n" . Trim(trans, ",+`n ")
from := oJSON[3]
pinyin := oJSON[1,2,3]
trans := Trim(trans, ",+`n ")
Return {main: MainTransText, full: trans, from: from , pinyin: pinyin}
}
SendRequest(JS, str, tl, sl) {
ComObjError(false)
url := "https://translate.google.cn/translate_a/single?client=webapp&sl="
. sl . "&tl=" . tl . "&hl=" . tl
. "&dt=at&dt=bd&dt=ex&dt=ld&dt=md&dt=qca&dt=rw&dt=rm&dt=ss&dt=t&ie=UTF-8&oe=UTF-8&otf=1&ssel=3&tsel=3&pc=1&kc=2"
. "&tk=" . JS.("tk").(str)
body := "q=" . URIEncode(str)
contentType := "application/x-www-form-urlencoded;charset=utf-8"
userAgent := "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:47.0) Gecko/20100101 Firefox/47.0"
Return JSON.GetFromUrl(url, body, contentType, userAgent)
}
URIEncode(str, encoding := "UTF-8") {
VarSetCapacity(var, StrPut(str, encoding))
StrPut(str, &var, encoding)
While code := NumGet(Var, A_Index - 1, "UChar") {
bool := (code > 0x7F || code
var a = 561666268;
var b = 1526272306;
return 406398 + '.' + (a + b);
})());
function b(a, b) {
for (var d = 0; d
for (var e = TKK.split("."), h = Number(e[0]) || 0, g = [], d = 0, f = 0; f
static JS := JSON._GetJScripObject()
Parse(JsonString) {
try oJSON := this.JS.("(" JsonString ")")
catch {
MsgBox, Wrong JsonString!
Return
}
Return this._CreateObject(oJSON)
}
GetFromUrl(url, body := "", contentType := "", userAgent := "") {
XmlHttp := ComObjCreate("Microsoft.XmlHttp")
XmlHttp.Open("GET", url, false)
( contentType && XmlHttp.SetRequestHeader("Content-Type", contentType) )
( userAgent && XmlHttp.SetRequestHeader("User-Agent", userAgent) )
XmlHttp.Send(body)
Return XmlHttp.ResponseText
}
_GetJScripObject() {
VarSetCapacity(tmpFile, (MAX_PATH := 260)
var keys = []
for (var k in this)
if (this.hasOwnProperty(k))
keys.push(k)
return keys
}
Object.prototype.IsArray = function () {
var toStandardString = {}.toString
return toStandardString.call(this) == '[object Array]'
}
)
JS.("delete ActiveXObject; delete GetObject;")
JS.(JScript)
}
_CreateObject(ObjJS) {
res := ObjJS.IsArray()
if (res = "")
Return ObjJS
else if (res = -1) {
obj := []
Loop % ObjJS.length
obj[A_Index] := this._CreateObject(ObjJS[A_Index - 1])
}
else if (res = 0) {
obj := {}
keys := ObjJS.GetKeys()
Loop % keys.length
k := keys[A_Index - 1], obj[k] := this._CreateObject(ObjJS[k])
}
Return obj
}
}
参考资料
脚本中的翻译部分代码是从AutoHotKey论坛上copy的，在此附上参考地址：Making this awesome Google Translate Script work for DeepL
|