随风

时间不多，先发帖了，为不影响他人思路，先把代码用白色字体帖出来。
代码如下：

@echo off&setlocal enabledelayedexpansion
cd.>c.txt
set var=C:\批处理之家论坛下载_batman原创代码合集
set "var2=a b c d e f g h i j k l m n o p q r s t u v w x y z 0 1 2 3 4 5 6 7 8 9"
for /f "delims=" %%a in ('dir/b "%var%"') do (
    set /a x=-1&set "k="
    set "num=%%~na#"
    for %%i in (%var2%) do set num=!num:%%i=%%i !
    for %%i in (!num!) do set /a x+=1
    if "!num:~0,-2!"==" #" set /a x-=1
    for /l %%i in (1 1 !x!) do set "k= !k!"
    set num=!num:~0,-1!
    set "num=!num: =!　　　　　　　　　　　　　　　　"
    set /a n+=1,n=n%%4
    set /p=!num:~0,10!!k!<NUL>>c.txt
    if !n! equ 0 echo.>>c.txt
)
start "" "c.txt"
复制代码

[ 本帖最后由 随风 于 2008-10-1 14:11 编辑 ]

随风

发现逐字判断也不慢

@echo off&setlocal enabledelayedexpansion
set /a s=4&cd.>c.txt
set "code= 0123456789abcdefghijklmnopqrstuvwxyz"
for /l %%i in (0 1 36) do set num.!code:~%%i,1!#=a
for /f "delims=" %%a in ('dir/b/a-d "tmp"') do (
   set k=&set /a n=0&set "str=%%~na"
   for /l %%a in (0 1 10) do (
      if not ""=="!str:~%%a,1!" (
         set "var=!str:~%%a,1!"
         if defined num.!var!# set /a n+=1
    ))
    for /l %%i in (1 1 !n!) do set "k= !k!"
    set "str=!str!　　　　　　　　　　　　　　　　"
    set /a m=m%%4+1
    (set /p=!str:~,10!!k!<nul&if !m! equ !s! echo.)>>c.txt
)
start c.txt
复制代码