zhao3

如果以上资源你都用不上，请PM我一下您的电话，我充一点话费，略表心意。

zhao3

谢谢二楼，三楼，真的很谢谢你们。
我用的CrLf的方案，执行效果很好，60K的文件30S+就完成了，太棒了。
另请问一下，保存得到的文件是相当于是逆序保存的，能正序保存吗，如果不难的话，正序最好了，当然我可以在excel中倒一下也行。
=======================================
如果你是老师，我可以为你提供一些系统的教学资源；
如果你的孩子还是幼儿，我可以为你提供一些幼教资源；
如果以上资源你都用不上，请PM我一下您的话，我充一点话费，略表心意。

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

算了还是用 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)
复制代码

apang

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