有N多零字节文件,楼主把下载地址藏在#19- @if(0)==(0) echo off
- md "e:\Result" 2>nul
- pushd "e:\Day\"
- ::第3行更改为实际路径
- dir /b *.txt | cscript -nologo -e:jscript "%~0">"%~dp0Error.Log"
- pause&exit
- @end;
- var fso = new ActiveXObject("Scripting.FileSystemObject");
- var str = '$FORMAT Ticker, Date_YMD, Open, High, Low, Close, Volume';
- var arr = ['$SKIPLINES 1', '$SEPARATOR ,', '$DEBUG 1', '$BREAKONERR 1', '$AUTOADD 1'];
- while (!WScript.StdIn.AtEndOfStream) {
- var strLine =WScript.StdIn.ReadLine();
- try {
- var NewName = strLine.substr(2);
- var f = fso.OpenTextFile(strLine, 1);
- var txt = f.ReadAll();
- f.Close();
- txt = txt.replace(/(.*);[^;]+\r\n/g,
- function(s0,s1) {
- return NewName.split('.')[0] + '.SS,' + s1 + '\r\n'
- }
- );
- txt = str + '\r\n' + txt.replace(/;/g, ',') + arr.join('\r\n');
- fso.CreateTextFile('e:\\Result\\'+NewName, true).Write(txt);
- } catch(e) {WScript.Echo('未处理:' + strLine)}
- }
复制代码
|