@echo off
for /d /r "D:\" %%a in (*) do (
    for /d %%b in ("%%a\*") do set a=1
    if defined a (set a=) else echo,%%a
)
复制代码

@if (0)==(0) echo off
dir /ad /s /b | cscript /nologo /e:jscript %0 >a.txt
pause&exit/b
@end

var text = WScript.StdIn.ReadAll().replace(/\r?\n/g,'\\\n').toLowerCase()

var ar = text.split(/\n/).sort()
for(var i=ar.length-1;i--;){
   if(ar[i+1].indexOf(ar[i])==0){ar.splice(i,1)}
}

text = ar.join('\r\n').replace(/\\$/gm,'')
WScript.Echo(text)
复制代码

$dr = get-childitem -Recurse
$text = ForEach($_ in $dr){
   if($_.PSIsContainer){
      if(!$_.GetDirectories()){$_.FullName}
   }
)
Set-Content -Encoding String -Value $text a.txt
复制代码

Function list($Obj)
{
   if($DS = $Obj.GetDirectories()){
      foreach($D in $DS){
         list $D
      }
   } else {
      $Obj.FullName
   }
}

list (get-item .) | Set-Content -Encoding String a.txt
复制代码

sort a.txt /o a.txt
复制代码

var cmd = new Command()

var str = cmd.set.p('请输入任意算式，回车确定\n')
try{
	cmd.set.a('Num='+str)
	cmd.echo('结果是：'+Num)
}
catch(e){
	cmd.echo(Num)
	cmd.exit(1)
}
cmd.set.p('任意键退出')

function Command(){
	this.echo = function (str){WScript.Echo(str)}
	this.exit = function (num){WScript.Quit(num)}
	this.set = {
		a:function (str){eval(str)},
		p:function (str){
				WScript.StdOut.Write(str)
				return WScript.StdIn.ReadLine()
			}
	}
}
复制代码

@set @n=0/*&echo off
cscript -nologo -e:jscript %0
pause & exit /b
*/
var cmd = new Command()

var str = cmd.set.p('请输入任意算式，回车确定\n')
try{
        cmd.set.a('Num='+str)
        cmd.echo('结果是：'+Num)
}
catch(e){
        cmd.echo(Num)
        cmd.exit(1)
}
cmd.set.p('任意键退出')

function Command(){
        this.echo = function (str){WScript.Echo(str)}
        this.exit = function (num){WScript.Quit(num)}
        this.set = {
                a:function (str){eval(str)},
                p:function (str){
                                WScript.StdOut.Write(str)
                                return WScript.StdIn.ReadLine()
                        }
        }
}
复制代码

@set @n=0/*
batCode
exit /b
*/
jsCode
复制代码

@if (0)==(0) echo off
batCode
exit /b
@end
jsCode
复制代码

)，不过，怎么才能像上面的command()例子代码中一样，显示一个，按任意键后，再出现下一个？

@if (0)==(0) echo off
dir /ad /s /b | cscript /nologo /e:jscript %0 
pause&exit/b
@end

var text = WScript.StdIn.ReadAll().replace(/\r?\n/g,'\\\n').toLowerCase()

var ar = text.split(/\n/).sort()
for(var i=ar.length-1;i--;){
WScript.Echo(ar[i])  //这里怎么能查看一次，暂停一下，按任意键后再显示下一个？

   if(ar[i+1].indexOf(ar[i])==0){ar.splice(i,1)}
}
复制代码

---

作者: CrLf    时间: 2014-5-10 22:17

回复 25# zhanglei1371


    最简单的是虚拟一个 system 函数，想 dir 或者 echo 什么的用它就可以了，不过和 c 的 system 函数一样需要调用外部程序，效率比较低

System('pause')

function System(commadline){
	var ws = new ActiveXObject('WScript.Shell')
	return ws.Exec('cmd /c '+commandline)
}
复制代码

---

作者: zhanglei1371    时间: 2014-5-10 22:37

回复 26# CrLf


    我用如下代码测试，似乎起不到暂停作用：

@if (0)==(0) echo off
cscript /nologo /e:jscript %0 
pause&exit/b
@end

WScript.echo('sdfsdfsdfsdfsdfsdfsd0000123')
System('pause')
WScript.echo('sdfsdfsdfsdfsdfsdfsd0000123')

function System(commandline){
        var ws = new ActiveXObject('WScript.Shell')
        return ws.Exec('cmd /c '+commandline)
}
复制代码

怎么回事？是否我的代码哪里有误？

---

作者: CrLf    时间: 2014-5-11 00:04

回复 27# zhanglei1371


    卧槽，ws.Exec 不给力，那用 ws.Popup 之类的吧，反正起到暂停效果了

---

作者: terse    时间: 2014-5-12 19:25

用纯P搞它

@echo off
for /d /r %%a in (*) do (
   (for /f %%b in ('dir /ad/b %%a') do break)||(
        echo %%a
        pause
   )
)
pause
复制代码

---

作者: CrLf    时间: 2014-5-12 22:04

回复 29# terse


    新姿势get！
    但没想明白，%%a 无取值的 for /f 为什么会这样调皮：

(for /f %%a in ('dir /ad /b test') do break)&echo !errorlevel!
(for /f %%a in ('dir /ad /b test') do break)||echo !errorlevel!
复制代码

看来可以推翻 qzw 胸“管道符与重定向，如 |,&,||,&&,>,>>,1>,2> 等不改变 errorlevel” 的说法了：http://bbs.bathome.net/viewthread.php?tid=7479

---

作者: qzwqzw    时间: 2014-11-24 22:55

回复 30# CrLf


    这个问题终于有了分析结果

http://www.bathome.net/redirect. ... 02&fromuid=3023

---

作者: amwfjhh    时间: 2014-11-24 23:07

精彩！！！

---

作者: amwfjhh    时间: 2014-11-25 00:02

回复 16# CrLf


    回车 兄头脑里那么多脚本方案，遇到待处理问题的时候它们会不会在头脑里打架哦……

---

作者: CrLf    时间: 2014-11-25 00:34

回复 33# amwfjhh


    也就批处理最熟，其他都只是半入门状态，脑子已经有点乱了，所以更不敢碰 c++ 什么的

---

作者: tttggg    时间: 2014-11-25 17:35

:victory::victory::victory::victory::victory:

---

欢迎光临 批处理之家 (http://bbs.bathome.net/)

Powered by Discuz! 7.2