CrLf

算了还是用 bat + js 吧，各取其长：

@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)
复制代码

CrLf

powershell 方案：

$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
复制代码

CrLf

顺序保存只需要 sort 一下就行：

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

CrLf

回复 5# zhao3


    楼主太客气了

CrLf

回复 10# apang


    用的是 !last:%%a\=!，好像不会误判吧

CrLf

回复 12# zhao3


    不同问题请单独开贴

CrLf

回复 14# apang


    确实如此，忽略了 \ 会影响排序，谢谢提醒
    代码已更新，小改成完全逆序，就不存在这个问题了

CrLf

回复 18# zhao3


    卧槽，好吧又掉坑里了，已修改

CrLf

回复 20# zhanglei1371


    可以这样玩下：

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()
			}
	}
}
复制代码

CrLf

回复 22# zhanglei1371


js 默认用 wscript 运行，此时不支持 StdIn、StdOut、StdErr
解决方法有两个，一个是用 cscript 运行，另一个是用 fso.GetStandardStream(N)
参考
建议用 cscript 运行，比如这样保存为 bat：

@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()
                        }
        }
}
复制代码

CrLf

回复 22# zhanglei1371


    这种写法修改自 powerbat 的混编方案：

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

terse 修改出了另一种写法，不需要写变量：

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

二者各有千秋，随便哪个都可以

CrLf

回复 25# zhanglei1371


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

System('pause')

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

CrLf

回复 27# zhanglei1371


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

CrLf

回复 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

CrLf

回复 33# amwfjhh


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