netbenton

@echo off&setlocal enabledelayedexpansion
if not "%1"=="##" goto :next
for /f "delims=." %%i in ('dir /b') do (echo %%i)
goto :eof
:next
set "spac=                         "
set/a n=1,ap=0,bp=0
set str=
for /f "tokens=1,2 delims=:" %%a in ('%0 ##^|findstr /o .*') do (
        set/a ap=19-%%a+bp+2,bp=%%a
        if defined nul (
                for %%c in (!ap!) do (
                        set str=!str!!ec!!spac:~0,%%c!
                )
                set/a n=n%%4+1
                if !n! equ 1 echo !str!&set str=
        ) else (set nul=y)
        set ec=%%b
)
if defined str echo !str!
pause
复制代码