Code: Select all
#SingleInstance Force
;添加选中内容到词库
F9::
add2Rime()
return
;添加选中单词到词库
;我词库分为单字fpSingle(常用字,可能会添加生僻字)、自带词组(不动)、用户词组fpUser(大部分修改)、英语fpEng(常用英语和【U盘】这样的词组)
add2Rime()
{
;用户目录 dirUser
if !DirExist(dirUser := RegRead("HKEY_CURRENT_USER\Software\Rime\Weasel", "RimeUserDir"))
{
msgbox("用户目录不存在")
return
}
fpSingle := dirUser . "\wubi86.hy.dict.yaml" ;单字词库
fpUser := dirUser . "\wubi86.user.dict.yaml" ;用户词库
fpEng := dirUser . "\wubi86.eng.dict.yaml" ;英语词库
;软件安装目录 dirSoft(里面有 WeaselServer.exe 和 WeaselDeployer.exe)
if !DirExist(dirSoft := RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Rime\Weasel", "WeaselRoot"))
{
msgbox("软件安装目录不存在")
return
}
;复制选中内容
clipSave := ClipboardAll
clipboard := ""
send("{ctrl down}c{ctrl up}")
if !ClipWait(0.5)
{
msgbox("没复制到内容",,262144)
clipboard := clipSave
return
}
;过滤无效内容
if !strlen(word := trim(clipboard, "`t`r`n ")) ;空白内容
return
if (word ~= "(\w\W|\W\w)") ;【U盘】这种词不处理
return
;开始处理
if (word ~= "^\w+$" && FileExist(fpEng)) ;全字母(【U盘】这种手动添加)
FileAppend(format("{1}`t{2}`r`n", word,StrLower(substr(word,1,4))), fpEng, "utf-8")
else ;中文
{
bm := this.getCode(word) ;若有问题 getCode 会直接退出
if (strlen(word) > 1) ;多字
{
if !FileExist(fpUser)
{
msgbox(format("词库不存在`n{1}", fpUser))
return
}
if (FileRead(fpUser, "utf-8") ~= "`n" . word . "`t")
{
msgbox("已存在词组")
return
}
FileAppend(format("{1}`t{2}`t9`r`n", word,bm), fpUser, "utf-8")
}
else
{
if !FileExist(fpSingle)
{
msgbox(format("单字词库不存在`n{1}", fpSingle))
return
}
if (FileRead(fpSingle, "utf-8") ~= "`n" . word . "`t")
{
msgbox("已存在单字")
return
}
FileAppend(format("{1}`t{2}`r`n", word,bm), fpSingle, "utf-8")
}
}
if !ProcessExist("WeaselServer.exe")
run(dirSoft . "\WeaselServer.exe")
run(format("{1}\WeaselDeployer.exe /deploy", dirSoft))
}
getCode(word) ;获取中文词组的86五笔编码
{
if !(word ~= "^[\x{4E00}-\x{9FA5}]")
_Debug.msgExit(word . "`n要求全中文", A_LineFile, A_LineNumber)
;修改4字以上的词组
if (strlen(word) >4)
word := substr(word,1,3) . substr(word,-1)
SplitPath(A_LineFile, , dir)
strAll := FileRead(dir . "\86五笔单字码表.txt")
arr := []
loop parse, word
{
RegExMatch(strAll, "i)\w+(?= " . A_LoopField . ")", m)
arr.push(m[0])
}
if (strlen(word) == 1)
return arr[1]
if (strlen(word) == 2)
return substr(arr[1], 1, 2) . substr(arr[2], 1, 2)
else if (strlen(word) == 3)
return substr(arr[1], 1, 1) . substr(arr[2], 1, 1) . substr(arr[3], 1, 2)
else
return substr(arr[1], 1, 1) . substr(arr[2], 1, 1) . substr(arr[3], 1, 1) . substr(arr[4], 1, 1)
}