China DOS Union

::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

I don't know if WMIC can do it. Just ask the moderator and you'll know.

>Temp.txt set/p=!Temp_%1!<nul
for %%i in (Temp.txt) do set %1=%%~zi

@echo off

setlocal enabledelayedexpansion

cd.>array.txt

::Detect the maximum number of bytes in each segment

for /f "delims=" %%i in (test.txt) do (

    set "Temp$=%%i"

    set "Temp$=!Temp$:Author:=$!"&&set "Temp$=!Temp$:SS number:=$!"&&set "Temp$=!Temp$:Call number:=$!"

  for /f "tokens=1-4 delims=$" %%i in ("!Temp$!") do (

    set "Temp_=%%i"&&call :MaxNum Book title

    set "Temp_=%%j"&&call :MaxNum Author

    set "Temp_=%%k"&&call :MaxNum SS number

    set "Temp_=%%l"&&call :MaxNum Call number

))



::Add spaces for alignment

for /f "delims=" %%i in (test.txt) do (

    set "Temp$=%%i"

    set "Temp$=!Temp$:Author:=$!"&&set "Temp$=!Temp$:SS number:=$!"&&set "Temp$=!Temp$:Call number:=$!"

  for /f "tokens=1-4 delims=$" %%i in ("!Temp$!") do (



    set "Temp_Book title=%%i"&&call :Num Book title

  set /a Book title=%MaxBook title%-!Book title!&&call :Add Book title



    set "Temp_Author=%%j"&&call :Num Author

  set /a Author=%MaxAuthor%-!Author!&&call :Add Author



    set "Temp_SS number=%%k"&&call :Num SS number

  set /a SS number=%MaxSS number%-!SS number!&&call :Add SS number



    set "Temp_Call number=%%l"&&call :Num Call number

  set /a Call number=%MaxCall number%-!Call number!&&call :Add Call number



>>array.txt echo.!Temp_Book title!Author:!Temp_Author!SS number:!Temp_SS number!Call number:!Temp_Call number!

))

del Temp.txt

pause

exit



::Detect byte count

:MaxNum

>Temp.txt set/p=%Temp_%<nul

for %%i in (Temp.txt) do if %%~zi GTR !Max%1! set Max%1=%%~zi

goto :eof



::Detect byte count

:Num

>Temp.txt set/p=!Temp_%1!<nul

for %%i in (Temp.txt) do set %1=%%~zi

goto :eof



::Add number of spaces

:Add

if "!%1!" == "0" goto :eof

set "Temp_%1=!Temp_%1! "

set /a %1-=1

goto Add

Originally posted by youxi01 at 2006-12-13 08:03:
In my opinion, pure P is difficult to implement because P is difficult to judge the number of bytes of variables, so it is necessary to rely on vbs.

::On Error Resume Next

echo ' > nul &cls & @echo off

echo ' > nul & ... 

BEGIN{

	FS=" +(作者|号|索书号)："	

}

{

	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=$i

}

END{

	format = "%-"L1"s 作者：%-"L2"s SS号：%-"L3"s 索书号：%-"L4"s\n"

	for(i=1;i<=NR;i++)

		if(R != "") printf format, R,R,R,R

}