中国DOS联盟

『第 5 楼』:

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

此帖被 +7 点积分      点击查看详情    评分人：【 redtek 】 分数： +7  时间：2006-12-13 08:19

不知道WMIC可不可以，问下版主就知道了。

『第 7 楼』:

@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

此帖被 +9 点积分     点击查看详情    评分人：【 无奈何 】 分数： +4  时间：2006-12-14 02:33 评分人：【 redtek 】 分数： +5  时间：2006-12-14 21:35

『第 8 楼』:

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

@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

此帖被 +26 点积分      点击查看详情    评分人：【 无奈何 】 分数： +8  时间：2006-12-14 02:33 评分人：【 youxi01 】 分数： +4  时间：2006-12-14 03:06 评分人：【 pengfei 】 分数： +5  时间：2006-12-14 04:30 评分人：【 kcdsw 】 分数： +4  时间：2006-12-14 06:39 评分人：【 redtek 】 分数： +5  时间：2006-12-14 21:35

Originally posted by youxi01 at 2006-12-13 08:03:
个人认为，纯粹的P很难实现，因为P很难判断变量的字节数，所以要借助于vbs。

::On Error Resume Next

echo ' > nul &cls & @echo off

echo ' > nul & ... 

『第 14 楼』:

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

}

此帖被 +5 点积分      点击查看详情    评分人：【 redtek 】 分数： +5  时间：2006-12-14 21:36