[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 terse 于 2015-6-14 11:42 编辑

回复 25# idctop
重新整理一下代码
  1. @if(0)==(0) echo off
  2. set str="code,name,description,market,suggestion,closing_price,price,exchange rate,price earnings ratio,the main cost,institutional participation"
  3. for /f "delims=" %%i in ('dir /b *.txt ^| cscript -nologo -e:jscript %0 %str%') do (
  4.    rem 这里是要处理文件
  5.    echo %%i
  6. )
  7. pause & exit
  8. @end
  9. var fso = new ActiveXObject("Scripting.FileSystemObject");
  10. var s = WScript.Arguments.Item(0);
  11. var r = /^.+?(\d{4}(-\d{2}){2})(((\s|-)(\d{2})){2})?.+$/;
  12. var re = new RegExp("^" + s, "i");
  13. var reg = /.*\[标签:内容\].*/g;
  14. var fso = new ActiveXObject("Scripting.FileSystemObject");
  15. while (!WScript.StdIn.AtEndOfStream){
  16.     var filename = WScript.StdIn.Readline();
  17.     var str = filename.replace(
  18.              r,
  19.              function(a,b,c,d) {return(b + d.replace(/-/,':').replace(/\s+/,',') + ',' );
  20.              }
  21.         )
  22.    
  23.     var text = adoLoadText(filename, 'UTF-8').replace(/\r?\n/ig,'');
  24.     while (!(re.test(text))){
  25.        text = s + "\r\n" + text.replace(/&sbquo/ig,',').replace(/","/g,'\r\n' + str).replace(reg,'');
  26.        TextToFile(text, filename);
  27.        WSH.Echo(filename)
  28.     }
  29. }
  30. function adoLoadText(filename, charset) {
  31.     var fs, text;
  32.     fs = new ActiveXObject("ADODB.Stream");
  33.     fs.type = 2;
  34.     fs.charset = charset;
  35.     fs.open();
  36.     fs.loadFromFile(filename);
  37.     text = fs.readText(-1);
  38.     fs.close();
  39.     return text;
  40. }
  41. function TextToFile(text, filename) {
  42.     var fs = new ActiveXObject("Adodb.Stream");
  43.     fs.Charset = 'UTF-8';
  44.     fs.Open();
  45.     fs.WriteText(text);
  46.     fs.SaveToFile(filename, 2);
  47.     fs.Close();
  48. }
复制代码

TOP

返回列表