中国DOS联盟

::On Error Resume Next
echo ' > nul &cls & @echo off
echo ' > nul &for /f "tokens=1,2,3,4 delims= " %%i in (test.txt) do (
echo ' > nul &cscript //E:vbs "%~f0"  "%%i" "%%j" "%%k" "%%l" //nologo)
echo ' > nul &pause>nul

::str0=wscript.arguments(0)
::str1=wscript.arguments(1)
::str2=wscript.arguments(2)
::str3=wscript.arguments(3)
::wscript.echo align(str0)&align(str1)&align(str2)&align(str3)
::function align(obj)
::  length=len(obj)
::  flag=0
::  for i=1 to length
::     str=mid(obj,i,1)
::     str=asc(str)
::     if str<0 then
::         flag=flag+1
::     end if
::   next
::   length=20-length-flag
::   align=obj&space(length)
::end function

@echo off
setlocal enabledelayedexpansion
for /f "tokens=1-4 delims=作者：SS号：索书号：" %%i in (test.txt) do (
    set a=&set b=&set c=
    call :detect %%i
    set /a num=2*10-2*num
    call :add %%i
    set a=!i!
    call :detect %%j
    set /a num=2*8-2*num
    call :spa %%j
    set /a num+=!sp!
    call :add %%j
    set b=!i!
    call :detect %%k
    set /a num=12-num
    call :add %%k
    set c=!i!
    echo !a!作者：!b!SS号：!c!索书号：%%l>>array.txt
)
start array.txt
goto :eof

:detect
set x=%*◎
set num=0
:detect_
if not "%x:~0,1%"=="◎" (
    set /a num+=1
    set "x=%x:~1%"
    goto :detect_
)
goto :eof

:add
set y=%*
for /l %%i in (1,1,%num%) do set y=!y!
set i=%y%
goto :eof

:spa
set z=%*◎
set sp=0
:spa_
if not "%z:~0,1%"=="◎" (
    if "%z:~0,1%"==" " set /a sp+=1
    set "z=%z:~1%"
    goto :spa_
)
goto :eof

@echo off
setlocal enabledelayedexpansion
cd.>array.txt
::检测每段最大字节数
for /f "delims=" %%i in (test.txt) do (
    set "Temp$=%%i"
    set "Temp$=!Temp$:作者：=$!"&&set "Temp$=!Temp$:SS号：=$!"&&set "Temp$=!Temp$:索书号：=$!"
  for /f "tokens=1-4 delims=$" %%i in ("!Temp$!") do (
    set "Temp_=%%i"&&call :MaxNum 书名
    set "Temp_=%%j"&&call :MaxNum 作者
    set "Temp_=%%k"&&call :MaxNum SS号
    set "Temp_=%%l"&&call :MaxNum 索书号
))

::加上空格对齐
for /f "delims=" %%i in (test.txt) do (
    set "Temp$=%%i"
    set "Temp$=!Temp$:作者：=$!"&&set "Temp$=!Temp$:SS号：=$!"&&set "Temp$=!Temp$:索书号：=$!"
  for /f "tokens=1-4 delims=$" %%i in ("!Temp$!") do (

    set "Temp_书名=%%i"&&call :Num 书名
  set /a 书名=%Max书名%-!书名!&&call :Add 书名

    set "Temp_作者=%%j"&&call :Num 作者
  set /a 作者=%Max作者%-!作者!&&call :Add 作者

    set "Temp_SS号=%%k"&&call :Num SS号
  set /a SS号=%MaxSS号%-!SS号!&&call :Add SS号

    set "Temp_索书号=%%l"&&call :Num 索书号
  set /a 索书号=%Max索书号%-!索书号!&&call :Add 索书号

>>array.txt echo.!Temp_书名!作者：!Temp_作者!SS号：!Temp_SS号!索书号：!Temp_索书号!
))
del Temp.txt
pause
exit

::检测字节数
:MaxNum
>Temp.txt set/p=%Temp_%<nul
for %%i in (Temp.txt) do if %%~zi GTR !Max%1! set Max%1=%%~zi
goto :eof

::检测字节数
:Num
>Temp.txt set/p=!Temp_%1!<nul
for %%i in (Temp.txt) do set %1=%%~zi
goto :eof

::加空格数量
:Add
if "!%1!" == "0" goto :eof
set "Temp_%1=!Temp_%1! "
set /a %1-=1
goto Add

BEGIN{
        FS=" +(作者|[Ss][Ss]号|索书号)："       
}
{
        L1=L1<length($1)?(length($1)):L1
        L2=L2<length($2)?(length($2)):L2
        L3=L3<length($3)?(length($3)):L3
        L4=L4<length($4)?(length($4)):L4
        for (i=1;i<=NF;i++)
                R[NR,i]=$i
}
END{
        format = "%-"L1"s 作者：%-"L2"s SS号：%-"L3"s 索书号：%-"L4"s\n"
        for(i=1;i<=NR;i++)
                if(R[i,1] != "") printf format, R[i,1],R[i,2],R[i,3],R[i,4]
}