【已解决】如何解决批处理中文变问号问题

青青草

今天有空，试着对mas 1.5进行汉化，开头很顺利，显示中文正常。
当汉化到

1. echo.              [1] 激活 - Windows
   
2. echo.              [2] Activate - Office
   
3. echo.              [3] Activate - All

复制代码

时，运行批处理，中文字 “激活”变成了问号。
这是什么原因造成的呢？请大神们赐教！谢谢！

感谢 hua_wuxin 大神！

不好意思，发错位置了，应该发到脚本讨论区才对。烦请版主移贴。谢谢！

窄口牛

改成ansi就好了。

2010techon

压缩包有密码？，请把批处理文件完整上传

青青草

2010techon 发表于 2022-2-17 12:44
压缩包有密码？，请把批处理文件完整上传

密码：1234

青青草

2010techon 发表于 2022-2-17 12:44
压缩包有密码？，请把批处理文件完整上传

已上传。
谢谢！

青青草

窄口牛 发表于 2022-2-17 12:44
改成ansi就好了。

应该不是这原因。

2010techon

一万多行的批处理，看着让人头大，中文问号一般是编码问题或者命令行模式的事

青青草

2010techon 发表于 2022-2-17 13:15
一万多行的批处理，看着让人头大，中文问号一般是编码问题或者命令行模式的事

就"在线kms激活“部分的内容汉化出问题。你可直接关注"在线kms激活“部分。

nclnum1

路过

laozhao

mode con 语句去掉试试

青青草

laozhao 发表于 2022-2-17 13:31
mode con 语句去掉试试

与 mode con 无关。

sunsea

明确在显示信息之前加入chcp 936然后用记事本 ANSI保存？

青青草

sunsea 发表于 2022-2-17 13:40
明确在显示信息之前加入chcp 936然后用记事本 ANSI保存？

试过，没有效果。

青青草

青青草 发表于 2022-2-17 13:45
试过，没有效果。

ANSI保存的

hu.man

路過看看

hua_wuxin

把616行由
%nul% %_psc% "$f=[io.file]::ReadAllText('!_batp!') -split \":%~1\:.*`r`n\"; [io.file]::WriteAllText('%~2',$f[1].Trim(),[System.Text.Encoding]::%~3);"

改为
%nul% %_psc% "$f=[io.file]::ReadAllText('!_batp!',[System.Text.Encoding]::Default) -split \":%~1\:.*`r`n\"; [io.file]::WriteAllText('%~2',$f[1].Trim(),[System.Text.Encoding]::Default);"
621行可能也要改。

青青草

hua_wuxin 发表于 2022-2-17 14:12
把616行由
%nul% %_psc% "$f=::ReadAllText('!_batp!') -split \":%~1\:.*`r`n\"; ::WriteAllText('%~2',$ ...

我试试

青青草

hua_wuxin 发表于 2022-2-17 14:12
把616行由
%nul% %_psc% "$f=::ReadAllText('!_batp!') -split \":%~1\:.*`r`n\"; ::WriteAllText('%~2',$ ...

解决了！
谢谢！

2010techon

青青草 发表于 2022-2-17 13:23
就"在线kms激活“部分的内容汉化出问题。你可直接关注"在线kms激活“部分。

-----发完才看到已解决，删了吧
:MainMenu 主界面：

1. :MainMenu
   
2. 
   
3. cls
   
4. color 07
   
5. title  Microsoft Activation Scripts AIO 1.5
   
6. mode 76, 30
   
7. if exist "%mastemp%\.*" rmdir /s /q "%mastemp%" %nul%
   
8. 
   
9. echo:
   
10. echo:
    
11. echo:
    
12. echo:
    
13. echo:       ______________________________________________________________
    
14. echo:
    
15. echo:                 Activation Methods:
    
16. echo:
    
17. echo:             [1] HWID        ^|  Permanent  ^|  Win 10-11
    
18. echo:             [2] KMS38       ^|  Till 2038  ^|  Win 10-11-Server
    
19. echo:             [3] Online KMS  ^|  180 Days   ^|  Win / Office      
    
20. echo:             __________________________________________________      
    
21. echo:                                                                     
    
22. echo:             [4] Check Activation Status [vbs]
    
23. echo:             [5] Check Activation Status [wmi]
    
24. echo:             [6] Extras                                               
    
25. echo:             __________________________________________________      
    
26. echo:                                                                     
    
27. echo:             [7] Read Me
    
28. echo:             [8] Exit                                
    
29. echo:       ______________________________________________________________
    
30. echo:
    
31. call :_color2 %_White% "         " %_Green% "Enter a menu option in the Keyboard [1,2,3,4,5,6,7,8] :"
    
32. choice /C:12345678 /N
    
33. set _erl=%errorlevel%
    
34. 
    
35. if %_erl%==8 exit /b
    
36. if %_erl%==7 start https://windowsaddict.ml & goto :MainMenu
    
37. if %_erl%==6 goto:Extras
    
38. if %_erl%==5 setlocal & call :_Check_Status_wmi_ext & cls & endlocal & goto :MainMenu
    
39. if %_erl%==4 setlocal & call :_Check_Status_vbs & cls & endlocal & goto :MainMenu
    
40. if %_erl%==3 setlocal & call :KMSActivation     & cls & endlocal & goto :MainMenu

复制代码

是[3]号选项吧？ 执行 call :KMSActivation
在 :KMSActivation 内有：

1. call :_export kacttxt "%mastemp%\Activate.cmd" ASCII
   
2. call "%mastemp%\Activate.cmd"

复制代码

:_export部分：

1. ::  Extract the text from batch script without character issue
   
2. 
   
3. :_Export
   
4. 
   
5. %nul% %_psc% "$f=[io.file]::ReadAllText('!_batp!') -split ":%~1\:.*`r`n"; [io.file]::WriteAllText('%~2',$f[1].Trim(),[System.Text.Encoding]::%~3);"
   
6. exit /b

复制代码

很可能是这里调用powershell 将编码转为ASCII的原因。。。

青青草

2010techon 发表于 2022-2-17 14:56
-----发完才看到已解决，删了吧
:MainMenu 主界面：
是[3]号选项吧？ 执行 call :KMSActivation

谢谢！