批处理如何实现ascii/中文字符转换unicode码

aa768228

bat批处理汉字ascii转换unicode编码
比如这样

pcl_test

保存为bat文件运行

1. //&cls&cscript -nologo -e:jscript "%~f0" "批处理之家"&pause&exit
   
2. 
   
3. /*
   
4. 用法：
   
5. 一、转换文件
   
6. 1、指定某个文件 //&cls&dir /a-d/b "指定文本.txt"|cscript -nologo -e:jscript "%~f0"&pause&exit
   
7. 2、多个文件 //&cls&dir /a-d/b *.txt|cscript -nologo -e:jscript "%~f0"&pause&exit
   
8. 二、转换字符串
   
9. //&cls&cscript -nologo -e:jscript "%~f0" "需转换的字符串"&pause&exit
   
10. */
    
11. 
    
12. var pattern=1;    //设置转换模式
    
13. 
    
14. /*
    
15. 1为ASCII转Unicode(举->&#20030；)，2为Unicode转ASCII(&#20010；->个)，
    
16. 3为中文转Unicode(栗->\u6817)，4为Unicode转中文(\u5b50->子)
    
17. */
    
18. 
    
19. var crlf=0;     //是否转换回车换行符，1为是，0为否
    
20. 
    
21. if(!/^[1-4]$/.test(pattern) || !/^[01]$/.test(crlf)){WSH.echo('参数有误！');WSH.quit()}
    
22. var fso = new ActiveXObject('Scripting.Filesystemobject');
    
23. 
    
24. if(WSH.Arguments.length<1){
    
25.     while(!WSH.StdIn.AtEndOfStream){
    
26.         try{
    
27.             var file = WSH.StdIn.ReadLine();
    
28.             var f = fso.OpenTextFile(file, 1);
    
29.             var txt = f.ReadAll();
    
30.             f.Close();
    
31.             var f = file.replace(/(.+\\)?([^\\]+)/, '$1$New_$2');
    
32.             fso.CreateTextFile(f, 2).Write(Choice(txt));
    
33.         }catch(e){}
    
34.     }
    
35.     WSH.echo('Done');
    
36. }else WSH.Echo(Choice(WSH.Arguments(0)));
    
37. 
    
38. function Choice(txt){
    
39.     switch(pattern){
    
40.         case 1: return AsciiToUnicode(txt);break;
    
41.         case 2: return UnicodeToAscii(txt);break;
    
42.         case 3: return HanziToUnicode(txt);break;
    
43.         case 4: return UnicodeToHanzi(txt);break;
    
44.     }
    
45. }
    
46. 
    
47. function AsciiToUnicode(txt){
    
48.     var s='';
    
49.     for (var i=0; i<txt.length; i++){
    
50.         var num=txt.charCodeAt(i);
    
51.         if(!crlf && (num==10 ||num==13)){
    
52.             s += String.fromCharCode(num);
    
53.         }else s += '&#'+num+';';
    
54.     }
    
55.     return s;
    
56. }
    
57. 
    
58. function UnicodeToAscii(txt) {
    
59.     return txt.replace(/(&#)(\d+);/gi,function($0){return String.fromCharCode(parseInt(escape($0).replace(/(%26%23)(\d+)(%3B)/g,"$2")));});
    
60. }
    
61. 
    
62. function HanziToUnicode(txt){
    
63.     var s='';
    
64.     for (var i=0; i<txt.length; i++){
    
65.         var num=txt.charCodeAt(i);
    
66.         if(!crlf && (num==10 ||num==13)){
    
67.             s += String.fromCharCode(num);
    
68.         }else s += '\\u' + ('00'+parseInt(num).toString(16)).slice(-4);
    
69.     }
    
70.     return s;
    
71. }
    
72. 
    
73. function UnicodeToHanzi(txt){
    
74.     return txt.replace(/(\\u)(\w{1,4})/gi,function($0){return (String.fromCharCode(parseInt((escape($0).replace(/(%5Cu)(\w{1,4})/g,"$2")),16)));});
    
75. }

复制代码

aa768228

回复 2# pcl_test


    大哥，转换不行，还是原来的字符。

523066680

回复 3# aa768228


    楼主换一种脚本语言，一两句话就能做的事

pcl_test

回复 3# aa768228

直接将代码保存为bat文件运行，“批处理之家”这几字没转换？如果能转换，那就是你操作不对，看代码中的注释修改

aa768228

回复 4# 523066680


    换什么?求给个

523066680

• use Encode;
• my $src = decode('utf8', "百度站长工具");
• $src =~s /(.)/sprintf("\&\#%d;", ord($1))/ge;
• print $src;
  

codegay

python3 中用内置函数ord可以返回一个字的unicode值。
用str转为字符串，前面再加&# ，结尾加上;
就可以得到一样的结果。

1. >>> ord("百")
   
2. 30334
   
3. >>> str(ord("百"))
   
4. '30334'
   
5. >>> ord('百')
   
6. 30334
   
7. >>> '&#' + str(ord('百')) + ';'
   
8. '&#30334;'

复制代码

codegay

python3 一行流

1. >>> ''.join(map('&#{};'.format,map(str,map(ord,'批睡理之家'))))
   

复制代码

ai20110304

:victory:

wskwfkbdn

这个人在群里问了，我说给他50元开发个命令行程序，结果啰嗦白天，到最后不说话了，写不写也不说，我就自己琢磨出来了并写了个命令行，然后q这个人，最终还是没有回应，我也就算了，我想说做人要有始有终，不做就不做啦，何必浪费时间跟我啰嗦半天呢！起码回应一声说不弄了不想花钱来论坛问问也行啊，费劲不讨好的事情，以后我保证不干了。表达完毕！

ainibau

看了这篇帖子，版主的批处理确实可以用。http://www.bathome.net/thread-41155-1-5.html

但是对我来讲有个问题，

这个问题就是我TXT文本里面的文字多是分行的，批量转换后的unicode码是不分行，因为我这个TXT的内容是用来读取的，比如读取某一行，现在转换后成一堆了，直接就把转换后的TXT内容全读取了。不会像没转换之前的汉字是分行的，每次只读一行。

批处理能把TXT里面分行的汉字转换后unicode码也是按原先TXT的内容那样分行嘛？

能处理有红包。或者价格好议。

pcl_test

回复 12# ainibau

已修改

520bats

版主的代码 文本是ANSI格式的 出来会乱码
请问下 文本是UFT-8格式的怎么修改？ 内容是泰文 也不能用 ANSI的文本格式来保存。