aloha20200628

如下代码存为批处理脚本,如test.cmd或test.bat，运行结果会将当前目录（包括子目录）下全部*.asp文件转为无头标BOM的utf-8编码文件。
假设*.asp是简中编码gb2312（即记事本的ANSI编码）。批处理脚本文件存于当前目录运行。

@set @v=1 /*
@echo off &dir /b/s/a-d *.asp|cscript /e:jscript "%~f0" &exit/b
*/
var wsIn=WSH.stdin;
var ads=new ActiveXObject('adodb.stream');
var fso=new ActiveXObject('scripting.filesystemobject');
while (!wsIn.atendofstream) {
	var F=wsIn.readline()
	ads.type=2; ads.mode=3; ads.charset='gb2312'; ads.open(); ads.loadfromfile(F); 
	var all=ads.readtext(); ads.close();
	ads.charset='utf-8'; ads.open(); ads.writetext(all); ads.savetofile(F+'.tmp',2); ads.close();
	ads.type=1; ads.open(); ads.loadfromfile(F+'.tmp');
	ads.position=3; var all_3=ads.read(); ads.close();
	ads.open(); ads.write(all_3); ads.savetofile(F,2); ads.close();
	fso.deletefile(F+'.tmp');
}
WSH.quit();
复制代码