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
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
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 关闭译文窗
           同样支持配置文件中自定义: 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內容

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


MouseMonitor      =1
WinClassList      =DB


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


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


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





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

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

谢谢!明天运行测试。
页: 2 3 4 5 6 7 8 9 10 11 [12] 13 14 15 16 17 18 19 20 21
查看完整版本: A小译_划词翻译