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

擦,说了一通的屁话,无非是想找人PK

也不看看自己啥德性,值得别人跟你PK不

TOP

to #12
照你这说法,除了PowerShell,其它所有脚本全都该下地狱是吧?
你“十步杀一人”,百步杀十人,地球上所有人都被你杀了,然后就“把祖师爷的技术推演至极”了是吧?
你祖师爷埋哪里,我找人把它刨开,看它是否真的三头六臂

你这鸟人,对你说点“风凉话”倒是便宜你了,但印象中没对你“吹牛x”过
对付你这种人,得用非常规的办法——对骂,然后管理员各打50大板,然后谁积分先降到零谁滚蛋
我先来:你大爷滴
1

评分人数

    • CrLf: 他大爷是我...PB -2

TOP

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

TOP

to #24
跟你多说无益,你奶奶个熊!
建议CrLf每次减100,我要和这猪斗到底。
1

评分人数

TOP

to #24
擦,等着它出招,这2B减了点分数,自己当缩头乌龟去了

你不会是害怕输吧?不会的,你能舌战群儒,你是天下第一,来吧,咱们继续。

TOP

回复 40# CrLf


    这种后果我想到了:大不了管理员将我和它都赶走。我重新注册个ID,原本就是来学习的,影响不大。
事端由它挑起,它要封我,吐沫也会淹死它。

TOP

返回列表