无聊之作批处理版 gbk2utf8 编码转换

plp626

1. ::原理：gbk 转 unicode 然后 unicode 转 utf8
   
2. :: unicode 转 utf8 算法："b1=224|a1>>4,b2=128|a1%%16*4|a2>>6,b3=128|a2%%64"
   
3. ::需要外部工具：fc.exe（系统默认自带），chcp.exe（系统默认自带）
   
4. ::         ascmap.cmd 下载 http://www.bathome.net/thread-12347-1-1.html
   
5. ::         hex.cmd 下载 http://www.bathome.net/viewthread.php?tid=12688
   
6. ::用法： 所转换的文件命名为test.txt（默认ascii编码）存放在当前目录下，双击之即可
   
7. ::其他： 该代码仅为实现功能，效率很低，仅适合小文本，有致命bug（看你能找到否？，呵呵）；
   
8. 
   
9. @echo off||code by plp
   
10. setlocal enabledelayedexpansion
    
11. cmd /u /c "type test.txt>test.tmp"||(pause&exit)
    
12. call ascmap.cmd /437 $
    
13. Set str=
    
14. for /f "tokens=1-2" %%a in ('hex.cmd test.tmp 2')do (
    
15.         if %%b==00 (
    
16.                 Set str=!str!!$:~0x%%a,1!
    
17.         )else (
    
18.                 set/a a1=0x%%b,a2=0x%%a
    
19.                 set/a "b1=224|a1>>4,b2=128|a1%%16*4|a2>>6,b3=128|a2%%64"
    
20.                 for /f "tokens=1-3" %%c in ("!b1! !b2! !b3!")do (
    
21.                         Set str=!str!!$:~%%c,1!!$:~%%d,1!!$:~%%e,1!
    
22.                 )
    
23.         )
    
24. )
    
25. ECHO !str!>test-utf8.txt
    
26. start test-utf8.txt
    
27. pause

复制代码

期待 utf8 转 gbk （截除高位1110 10  10 字节）的诞生，大伙练练手。。

zsl200911

学习一下，很好