BAT+JScript混合编程替换文件内容(兼容UTF-8、Unicode编码)

DAIC

原始需求：
http://www.bathome.net/thread-27183-1-1.html

1. @set @bathome=1 /*
   
2. @echo off
   
3. dir /b a.txt | cscript.exe -nologo -e:jscript "%~f0"
   
4. pause
   
5. goto :eof
   
6. rem */
   
7. 
   
8. // JScript starts from here
   
9. while (!WSH.StdIn.AtEndOfStream) {
   
10.     f = WSH.StdIn.ReadLine();
    
11.     WSH.StdOut.Write("\rHandling:\t"+f);
    
12.     try {
    
13.         ChangeContent(f);
    
14.         WSH.StdOut.Write("\rSuccess:\n");
    
15.     }
    
16.     catch(e) {
    
17.         WSH.StdOut.Write("\rFail:\n");
    
18.     }
    
19. }
    
20. 
    
21. function ChangeContent(file) {
    
22.     var aso, txt;
    
23.     aso = new ActiveXObject("ADODB.Stream");
    
24.     aso.Mode = 3;
    
25.     aso.Type = 2;
    
26.     aso.Charset = "cp437";
    
27.     aso.Open();
    
28.     aso.LoadFromFile(file);
    
29.     txt = aso.ReadText(-1);
    
30.     if (txt.indexOf('\x00') > -1) {
    
31.         aso.Position = 0;
    
32.         aso.Charset = "unicode";
    
33.         txt = aso.ReadText(-1);
    
34.     }
    
35.     txt = txt.replace(/<\d+>/g,"")
    
36.     aso.Position = 0;
    
37.     aso.WriteText(txt);
    
38.     aso.SetEOS();
    
39.     aso.SaveToFile(file + ".new", 2);
    
40.     aso.Close();
    
41.     aso = null;
    
42.     return txt;
    
43. }
    

复制代码

参考代码：
http://bbs.bathome.net/viewthread.php?tid=27060#pid139641