[文件操作] [已解决]BAT批处理如何列只列出只底层的目录？

zhao3

示例：我的D盘有以下目录
D:\A1\A11\A111\A1111
D:\A1\A12\A121\
D:\A2\A23\
D:\A3\
D:\A4\
D:\A5\

现在我想得到如下输出：
D:\A1\A11\A111\A1111
D:\A1\A12\A121\
D:\A2\A23\
D:\A3\
D:\A4\
D:\A5\
使用TREE命令，会出现各级目录，而我不需要出现含有子目录的目录名
D:\A1\
D:\A2\
D:\A1\A11\
D:\A1\A12\
D:\A1\A11\A111\

先谢谢各位大侠了。。

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

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

zhao3

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

zhao3

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

CrLf

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

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

CrLf

回复 5# zhao3


    楼主太客气了

zhao3

太强大了。。。。
成功，谢谢。
还是pm一下吧。
哈哈。。。。

apang

回复 3# CrLf
   

Microsoft Windows [版本 6.1.7601]
版权所有 (c) 2009 Microsoft Corporation。保留所有权利。

C:\Windows\System32>cd /d d:\test\

d:\test>dir /b /ad /s | sort /r
d:\test\新建文件夹\新建文件夹 - 副本
d:\test\新建文件夹 (2)\abc
d:\test\新建文件夹 (2)
d:\test\新建文件夹

d:\test>

这种情况下，貌似上下行比较会误判？

CrLf

回复 10# apang


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

zhao3

那跟贴再问一问：
提取目录内的第一个文件名作为目录名
因为目录名是无序的数字，里在文件名有意义。

CrLf

回复 12# zhao3


    不同问题请单独开贴

apang

回复 11# CrLf


   

Microsoft Windows [版本 6.1.7601]
版权所有 (c) 2009 Microsoft Corporation。保留所有权利。

C:\Windows\System32>cd /d d:\test\

d:\test>dir /b /ad /s | sort/r
d:\test\新建文件夹\新建文件夹 - 副本
d:\test\新建文件夹 2\abc
d:\test\新建文件夹 2
d:\test\新建文件夹
d:\test\abc

d:\test>test.bat

d:\test\新建文件夹\新建文件夹 - 副本
d:\test\新建文件夹 2\abc
d:\test\新建文件夹
请按任意键继续. . .

d:\test>

d:\test\新建文件夹 这一行按理说不应该显示出来？

zhao3

我的本意，是没有子目录的目录都列出来。有子目录的，列最底层目录。