@echo off&setlocal enabledelayedexpansion
for /f %%i in ( 'dir /a-d/b' ) do ( set a=%%~ni&echo !a!>>list1.txt )
pause
复制代码

@echo off
set a=1
set b=2

:continue
sort /+%a% list%a%.txt>list%b%.txt
del list%a%.txt
set /a a+=1
set /a b+=1

:end
pause

if %b% grt 20 ( goto end ) else ( goto continue )
复制代码

@echo off
set a=1
set b=2

:continue
sort /+%a% list%a%.txt>list%b%.txt
del list%a%.txt
set /a a=a+1
set /a b=b+1
exit

if %b% grt 20 ( goto end ) else ( goto continue )

:end
pause
exit
复制代码

@echo off
setlocal enabledelayedexpansion
::dir /a-d/b是列出文件名，dir /ad/b列出文件夹名，如果名字中有空格，一个空格算一个字符
for /f "delims=" %%i in ('dir /a-d /b') do >>"list.txt" echo,%%i
echo 导出列表完毕
echo 正在对列表进行排序
for /f "delims=" %%a in ('type "list.txt"') do (
>>$1 echo,%%a￥
)
for /f "delims=" %%b in ('type $1') do (
set "str=%%b"
set len=0
for /l %%c in (0 1 1000) do (
if "!str:~%%c,1!" == "￥"  set "len=%%c" && call :endlen !str! !len!
)
)
for /l %%d in (1 1 200) do (
findstr /c:"￥%%d￥" $2 >>$3
)
for /f "tokens=1* delims=￥" %%e in ('type $3') do >>$ echo,%%e
move $ "list.txt"
echo 排序完毕
del $*
pause & exit
:endlen
>>$2 echo,!str!!len!￥
goto :eof
复制代码