A小译_划词翻译

afan · 发表于 2022-6-1 13:52:06

w60711 发表于 2022-5-31 18:55
A大
那个帮助文件
是ANSI格式

帮助文件已改为UTF8编码，应该不会乱码了~
至于繁体中文，如果是指翻译时的语种选择，那其实早在1.9版就已经加入了，在菜单中有选择
目前最高是 2.3 版，加强了不少功能。刚小修改后编译了 2.4 版，已发消息给你下载地址了~

chzj589 · 发表于 2022-6-1 14:22:35

afan 发表于 2022-6-1 13:18
这个确实没有考虑到，毕竟这里使用繁体系统的太少，繁体用此工具就更不用说了~~
最主要的是没有繁体系统 ...

简繁互换



#include <WinAPI.au3>
Global $text11 = "在我的懷里 在你的眼里" & @CRLF & _
                "那里春風沉醉 那里綠草如茵" & @CRLF & _
                "月光把愛戀灑滿了湖面" & @CRLF & _
                "兩個人的篝火照亮整個夜晚" & @CRLF & _
                "多少年以后 如云般游走" & @CRLF & _
                "那變換的腳步讓我們難牽手" & @CRLF & _
                "這一生一世 有多少你我" & @CRLF & _
                "被吞沒在月光如水的夜里" & @CRLF & _
                "多想有一天 往事又重現" & @CRLF & _
                "我們流連忘返在貝加爾湖畔" & @CRLF & _
                "多少年以后 往事隨云走" & @CRLF & _
                "那紛飛的冰雪容不下那溫柔" & @CRLF & _
                "這一生一世 這時間太少" & @CRLF & _
                "不夠證明融化冰雪的深情" & @CRLF & _
                "就在某一天 你忽然出現" & @CRLF & _
                "你清澈又神秘在貝加爾湖畔" & @CRLF & _
                "你清澈又神秘像貝加爾湖畔" ;& @CRLF
$oReturnWebS2 = " 繁体->简体  : " & @CRLF & _FanToJian($text11) & @CRLF
Global $text4 = _JianToFan($oReturnWebS2)
MsgBox(0, "简体<->繁体: ", "简体<->繁体" & @CRLF & $oReturnWebS2 & @CRLF & $text4)
Func _JianToFan($sInputText);简体转繁体
        Local $InPtr = _WinAPI_MultiByteToWideChar($sInputText, 936, $MB_COMPOSITE, False)
        Local $OutPtr
        Local $dll = DllOpen('kernel32.dll')
        Local $Result = DllCall($dll, "none", "LCMapStringA", "LONG", 0x0804, "dword", 0x4000000, "STR", DllStructGetData($InPtr, 1), "LONG", DllStructGetSize($InPtr), "str", $OutPtr, 'long', DllStructGetSize($InPtr)); "PTR",$OutPtr,'long',DllStructGetSize($InPtr))
        If IsArray($Result) Then Return $Result[5]
EndFunc   ;==>_JianToFan
Func _FanToJian($sInputText);繁体转简体
        Local $InPtr = _WinAPI_MultiByteToWideChar($sInputText, 936, $MB_COMPOSITE, False)
        Local $OutPtr
        Local $dll = DllOpen('kernel32.dll')
        Local $Result = DllCall($dll, "none", "LCMapStringA", "LONG", 0x0804, "dword", 0x2000000, "STR", DllStructGetData($InPtr, 1), "LONG", DllStructGetSize($InPtr), "str", $OutPtr, 'long', DllStructGetSize($InPtr)); "PTR",$OutPtr,'long',DllStructGetSize($InPtr))
        If IsArray($Result) Then Return $Result[5]
EndFunc   ;==>_FanToJian

afan · 发表于 2022-6-1 14:34:26

chzj589 发表于 2022-6-1 14:22
简繁互换

是的，简繁互转这个我知道~ 他说的是文件乱码，简中的ANSI文件在繁中操作系统中应该是会乱码的，给他保存为UTF8应该就OK了~

w60711 · 发表于 2022-6-1 15:59:38

本帖最后由 w60711 于 2022-6-1 16:03 编辑

afan 发表于 2022-6-1 13:18
这个确实没有考虑到，毕竟这里使用繁体系统的太少，繁体用此工具就更不用说了~~
最主要的是没有繁体系统 ...

不好意思
的确是编码问题
UTF-8可以正常显示
是我一开始没有说明清楚
造成您后续困扰还请见谅 ><"

另外感谢afan大提供的下载地址
目前使用上一切正常，
且不管是在汉英、简繁方面都极为方便实用
后续如有其他发现再回馈了~

目前有4点想法，小弟才疏学浅，仅为小小建议...还请勿见笑 ^^"
　1.智能英汉：能否提供一个开关，"汉"的部份可以设置为繁体或简体。
　2.让译文窗口接收 ESC 关闭，
　　一来ESC不太会误按，不用担心误关
　　二来可以节省鼠标再去点击的时间，应该也会比较灵活？
　3.关闭A小译之前，记忆最后的翻译模式，以免一些情境下需要频繁重设。
　　如：智能英汉、指定的翻译语言...等等
　4.菜单区分：检测语言 > 汉（简）、检测语言 > 汉（繁）

afan · 发表于 2022-6-1 16:08:12

w60711 发表于 2022-6-1 15:59
不好意思
的确是编码问题
UTF-8可以正常显示

OK~ 谢谢反馈~

Q1.智能英汉：能否提供一个开关，"汉"的部份可以设置为繁体或简体。
A1: ok~

Q2.让译文窗口接收 ESC 关闭，一来ESC不太会误按，不用担心误关，二来可以节省鼠标再去点击的时间，应该也会比较灵活？
A2: ok~

Q3.关闭A小译之前，记忆最后的翻译模式，以免一些情境下需要频繁重设。如：智能英汉、指定的翻译语言...等等
A3: 目前就是如此的

Q4.菜单区分：检测语言 > 汉（简）、检测语言 > 汉（繁）
A4: ok~

w60711 · 发表于 2022-6-1 18:07:03

本帖最后由 w60711 于 2022-6-1 18:08 编辑

afan 发表于 2022-6-1 16:08
OK~ 谢谢反馈~

Q1.智能英汉：能否提供一个开关，"汉"的部份可以设置为繁体或简体。

Q3.关闭A小译之前，记忆最后的翻译模式，以免一些情境下需要频繁重设。如：智能英汉、指定的翻译语言...等等
A3: 目前就是如此的

我发现，原来只有检测语言部份没有被记录...XD

另一个问题，CHROME v102 或 EDGE 无法使用划词翻译
但在CHROME 中使用 IE模式就可以划词...
PS. OS：WIN10 x64

再一个问题，我无法重现出现问题的动作
因为我找不到触发原因...= =
我在某次在右下图标关闭A小译时，弹出错误窗口（弹了2次）

afan · 发表于 2022-6-1 18:28:43

w60711 发表于 2022-6-1 18:07
我发现，原来只有检测语言部份没有被记录...XD

我发现，原来只有检测语言部份没有被记录...XD

这个是这样设计的，选择的智能英汉就是这样，指定语言就会都有

退出错误我没遇到过，得好好查查了~

afan · 发表于 2022-6-1 18:36:28

w60711 发表于 2022-6-1 18:07
我发现，原来只有检测语言部份没有被记录...XD

错误原因已找到，已修正

afan · 发表于 2022-6-1 19:43:17

w60711 发表于 2022-6-1 18:07
我发现，原来只有检测语言部份没有被记录...XD

220601 更新 2.5 版
[新增]智能英汉中的汉语可选择“简中”或“繁中”，以方便繁体中文系统的用户
　　　在语言菜单中的最末添加“汉语语言”子菜单可单项选择
　　　此设置会同步应用于“智能英汉”及“检测语言 > 汉”
[新增]热键 Esc 关闭译文窗
　　　同样支持配置文件中自定义：[HotKey] GUIClose = {esc}
[修正]一处退出时可能造成程序崩溃的问题

之前的地址下载即可~

afan · 发表于 2022-6-1 19:44:31

chzj589 发表于 2022-6-1 14:22
简繁互换

2.5 修正了一处错误，新版已发送

afan · 发表于 2022-6-1 19:45:20

chishingchan 发表于 2022-5-8 17:52
我也要！谢谢！

2.5 修正了一处错误，新版已发送

afan · 发表于 2022-6-1 19:49:40

本帖最后由 afan 于 2022-6-1 20:10 编辑

w60711 发表于 2022-6-1 18:07
我发现，原来只有检测语言部份没有被记录...XD

另一个问题，CHROME v102 或 EDGE 无法使用划词翻译
但在CHROME 中使用 IE模式就可以划词...

划词后有跑进度条吗？划词时的光标是正常形态吗？

afan · 发表于 2022-6-1 20:19:56

w60711 发表于 2022-6-1 18:07
我发现，原来只有检测语言部份没有被记录...XD

如果划词时出现了以下形态就会被忽略，不管有没有勾选非接触划词

-1 = UNKNOWN (不能找到光标)
0 = HAND (手型) 或拖动+
1 = APPSTARTING(后台运行)
4 = HELP(帮助)
6 = ICON(图标) (过时的应用, 标记版本 4.0 或更高); 7 = NO(不可用); 8 = SIZE(设置大小) (过时的应用, 标记版本 4.0 或更高)
9 = SIZEALL(移动)
10 = SIZENESW(东北-西南沿对角线调整)
11 = SIZENS(垂直调整)
12 = SIZENWSE(西北-东南沿对角线调整)
13 = SIZEWE(水平调整)
14 = UPARROW(候选)
15 = WAIT(忙碌)

w60711 · 发表于 2022-6-1 20:42:49

本帖最后由 w60711 于 2022-6-1 20:44 编辑

afan 发表于 2022-6-1 19:49
划词后有跑进度条吗？划词时的光标是正常形态吗？

感觉在IE设置监控会影响到EDGE和CHROME...
反之则无效，如附图

至于上提到的 AU3错误
我找到原因了
在Ctrl+, 存在窗口时，按下右下角退出

就会无限回圈提示此图，
要再按一次右下角退出才会退出

ini內容

[OPT]
TranslateMode        =3
LanguageFrom        =
LanguageTo        =
ClipPutTlText        =0
HcReFrom        =0
MaxWidth        =1000
blanklineCle        =0
thesaurus-A        =1

[WinClass]
MouseMonitor        =1
WinClassList        =DB

[HotKey]
Translate        =^,
TranslateReFrom =^.
MonitorCk         =^/
GUITranslate        =^{enter}

[User]
;代码说明：0:无功能 1:关闭窗口 2:替换源 3:复制译文 4:复制源文 5:复制源文换行译文 
;　　　　　6:监测此控件 7:非接触划词 8:启用划词监测 9:划词替换源 10:译文可编辑
TitleClick        =0
TextClick        =10

[thesaurus-A]
;需替换的词语=替换内容
;“需替换的词语”不可以“[、;”字符开头，不可包含“=”字符
;支持换行数据，只需将换行以“\n”代替以组织成单行，且不要有空行，因为最终均会删除
;若数据本身包含“\n”字符，未避免被识别为换行，需在前面加“\”，即“\\n”

chzj589 · 发表于 2022-6-1 21:19:43

afan 发表于 2022-6-1 19:44
2.5 修正了一处错误，新版已发送

谢谢！明天运行测试。

		自动登录	找回密码
密码			加入

[原创] A小译_划词翻译

点评

本帖子中包含更多资源

本帖子中包含更多资源

评分

本帖子中包含更多资源

评分