terse

比较下两个文件 看不出规律 放弃

terse

@if(0)==(0) echo off
md test 2>nul
set ph=%~dp0
cscript //nologo //E:JScript "%~f0" "%ph%"
pause&exit
@end;
var fso = new ActiveXObject("Scripting.FileSystemObject");
var re = /^(.*);[^\;]+$/gm;
var str = '$FORMAT Ticker, Date_YMD, Open, High, Low, Close, Volume' + '\r\n';
var arr = ['$SKIPLINES 1' , '$SEPARATOR ,' , '$DEBUG 1' , '$BREAKONERR 1', '$AUTOADD 1'];
String.prototype.strreg = function(filename) {
    return this.replace(re ,
           function(a,b) {
              return filename  + '.SS,' + b.replace(/;/g,',') +'\r\n';
           });
};
function Files(files){
    var f = fso.GetFolder(files);
    var fc = new Enumerator(f.files);
    for (; !fc.atEnd(); fc.moveNext())
    {
      var file =fc.item();
      var ext=/\.[^\.]+$/.exec(file);
      if (ext == '.txt') {
          var filename = file.name.match(/\d+/);
          var newfile = f + '/test/'+ filename + ext;
          var fs = file.OpenAsTextStream(1, -2);
          var text = str + fs.ReadAll().strreg(filename) + arr.join('\r\n');
          fs.Close();
          var fs = fso.createtextfile(newfile,true);
          fs.Write(text);
      }
     }
}

Files(WScript.Arguments.Item(0));
复制代码

terse

回复 12# PowerShell
虽版主头衔，然心胸狭隘，故心存疑惑，初为谁荐？ 叹！论坛之辱！
本为P之论坛，却常有扰之，联想CMD；惭愧！
版主既然武功盖世；何不另立山头；容我等小生安生几许，又有何不可！也权当做件好事罢了。呜呼！
命中注定你难逃一劫，还是多行善事为上！
初诊：脑梗塞！
确诊：小儿脑残。
治疗方案：赶紧回去用药

terse

回复 18# 观心
我win7 系统测试正常的哦
这个什么情况 文件多大

terse

回复 18# 观心
脚本中处理路径自己更改下 可放在桌面或其他目录运行
如和TXT文件同一目录 可不用传递参数

 @if(0)==(0) echo off
rem 目录路径自己更改
set ph=f:\export
cscript //nologo //E:JScript "%~f0" "%ph%"
pause&exit
@end;
var fso = new ActiveXObject("Scripting.FileSystemObject");
var re = /^(.*);[^\;]+$/gm;
var str = '$FORMAT Ticker, Date_YMD, Open, High, Low, Close, Volume' + '\r\n';
var arr = ['$SKIPLINES 1' , '$SEPARATOR ,' , '$DEBUG 1' , '$BREAKONERR 1', '$AUTOADD 1'];
var Folder=fso.GetFolder(WScript.Arguments.Count()?WScript.Arguments.Item(0):".");
if (!fso.FolderExists(Folder+'/test/')) { fso.CreateFolder(Folder+'/test/')};
for(var fc=new Enumerator(Folder.Files);!fc.atEnd();fc.moveNext()){
      var file =fc.item();
      var ext=/\.[^\.]+$/.exec(file);
      if (ext == '.txt') {
          var f = file.name.match(/\d+/);
          var newfile = Folder + '/test/'+ f + ext;
          var fs = file.OpenAsTextStream(1, -2);
          var text = str + f2s(fs.ReadAll(),f) + arr.join('\r\n');
          fs.Close();
          var fs = fso.createtextfile(newfile,true);
          fs.Write(text);
          fs.Close();
      }
}

function f2s(s,f) {
    return s.replace(re ,
           function(a,b) {
              return f  + '.SS,' + b.replace(/;/g,',') + '\r\n';
           });
}
复制代码

terse

回复 30# 观心
可能测试文件不一
零能否检查文件夹下有不符文件吗
暂时加个判断
我这里运行环境 WIN7 小范围测试
测试文件大小 200KB左右 3000多行的文件成功处理

@if(0)==(0) echo off
rem 目录路径自己更改
set ph=f:\export
cscript //nologo //E:JScript "%~f0" %ph%
pause&exit
@end;
var fso = new ActiveXObject("Scripting.FileSystemObject");
var re = /^(.*);[^\;]+$/gm;
var str = '$FORMAT Ticker, Date_YMD, Open, High, Low, Close, Volume' + '\r\n';
var arr = ['$SKIPLINES 1' , '$SEPARATOR ,' , '$DEBUG 1' , '$BREAKONERR 1', '$AUTOADD 1'];
var Folder=fso.GetFolder(WScript.Arguments.Count()?WScript.Arguments.Item(0):".");
if (!fso.FolderExists(Folder+'/test/')) { fso.CreateFolder(Folder+'/test/')};
for(var fc=new Enumerator(Folder.Files);!fc.atEnd();fc.moveNext()){
    var file =fc.item();
    var ext=/\.[^\.]+$/.exec(file);
    if (ext == '.txt') {
        var f = file.name.match(/(^[a-zA-Z]+)(([0-9]){6})\./);
        if (f) {
            var newfile = Folder + '/test/'+ f[2] + ext;
            var fs = file.OpenAsTextStream(1, -2);
            if(!fs.Atendofstream)
            {
                var text = str + fs.ReadAll().replace
                (re ,
                   function(a,b) {
                      return f[2]  + "." + f[1] + "," + b.replace(/;/g,',')+ "\r\n";
                   }
                ) + arr.join('\r\n');
                fso.createtextfile(newfile,true).Write(text);
            }  
            fs.close();
        }
    }
}
复制代码

再加个 判断行字符 排除类似最后行的
刚刚下载了样本 处理时间 1分多点
貌似有重复文件名 没处理直接覆盖

@if(0)==(0) echo off
set t=%time%
rem 目录路径自己更改
set ph=f:\export
if exist "%ph%\" (set ph="%ph%") else set ph=
cscript //nologo //E:JScript "%~f0" %ph%
echo %T% %time%
pause&exit
@end;
var fso = new ActiveXObject("Scripting.FileSystemObject");
var re = /^(.+);([^;]+$)/gm;
var str = '$FORMAT Ticker, Date_YMD, Open, High, Low, Close, Volume' + '\r\n';
var arr = ['$SKIPLINES 1' , '$SEPARATOR ,' , '$DEBUG 1' , '$BREAKONERR 1', '$AUTOADD 1'];
var Folder=fso.GetFolder(WScript.Arguments.Count()?WScript.Arguments.Item(0):".");
if (!fso.FolderExists(Folder+'/test/')) { fso.CreateFolder(Folder+'/test/')};
for(var fc=new Enumerator(Folder.Files);!fc.atEnd();fc.moveNext()){
      var file =fc.item();
      var ext=/\.[^\.]+$/.exec(file);
      if (ext == '.txt') {
          var f = file.name.match(/(^[a-zA-Z]+)((\d){6})\./);
          if (f) {
             var newfile = Folder + '/test/'+ f[2] + ext;
             var fs = file.OpenAsTextStream(1, -2);
             if(!fs.Atendofstream)
             {
                var t='';
                fs.ReadAll().replace(re,
                   function(a,b) {
                       t+= f[2]  + '.'  + f[1] + ',' + b + '\r\n';
                   }
                )
                if (t) {
                   var text = str + t.replace(/;/g,',') + arr.join('\r\n');
                   fso.createtextfile(newfile,true).Write(text);
                }
             }
             fs.Close();
          }
      }
}
复制代码

terse

回复 24# PowerShell
只能说你病得不轻，你父母知道不？估计你吃药时间到了都不知道！也难怪 你脑残嘛，记得下次出门多吃药！