怎样用bat对齐文本？ - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

文本内容形式是这样的：
新编中医临证备要作者：卢祥之　 SS号：10804820 索书号：R24/15
中医临床学基础作者：湖南中医学院　 SS号：10806223 索书号：R24/1
临床证治精论作者：徐春家秦群　 SS号：10806254 索书号：R24/152
.
.
.
我想把它按类对齐，变成如下形式：
新编中医临证备要作者：卢祥之　 SS号：10804820 索书号：24/15
中医临床学基础作者：湖南中医学院 SS号：10806223 索书号：24/1
临床证治精论作者：徐春家秦群　 SS号：10806254 索书号：24/152
.
.
.
.
.

[ Last edited by wydos on 2006-12-13 at 07:17 AM ]

隐隐约约记得哪个能制造TAB跳格
好象是8个空格

　　需要统计每一节字符串的最大长度才好排版。

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

个人认为，纯粹的P很难实现，因为P很难判断变量的字节数，所以要借助于vbs。


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

说明：将要处理的文字保存为test.txt,本代码保存为：ok.bat

[ Last edited by youxi01 on 2006-12-13 at 08:14 AM ]

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

汗，WMIC拿来处理文本～～～


@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

只测试了你给的三行, 其他格式和特殊字符没有考虑. 请注意冒号全角和半角的区别．

[ Last edited by pengfei on 2006-12-13 at 12:53 PM ]

“delims=作者：SS号：索书号：”中有个缺点，只要某个位置有其中一种字符就导致缺失
可以先考虑将“作者：”“SS号：”“索书号：”替换为$后再处理

亮点：检测字节数

>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

[ Last edited by zh159 on 2006-12-13 at 09:35 AM ]

都太棒了，我对FOR语句总是用的不好。想不到FOR语句用处这么大，学习了。

Originally posted by youxi01 at 2006-12-13 08:03:
个人认为，纯粹的P很难实现，因为P很难判断变量的字节数，所以要借助于vbs。
::On Error Resume Next echo ' > nul &cls & @echo off echo ' > nul & ... 问下，::不是和REM 一样,是注释吗?为什么把他的::后,运行就不正常了.奇怪,楼主能否解释下.

因为::在vbs中可以被认识（识别为换行），而rem却不能被vbs认识！

7F的问题：要是书名中有E文字符或者数字，怎么解决？
8F用文件的大小来判断字节数，真是高！

对齐还是先补后拆最省事。

zh159 兄 8 楼用字节数判长确是亮点，CMD 下字串汉字和英文字母长度都是 1 ，用字节判断很好的解决了这个问题。不过 CMD 下特殊字符实在是然人头疼的问题，我也一直没有找到好的方法。
本帖是很典型的格式化输出的问题，大多数语言 pringf 都能很好解决。
可以试试下面的 awk 的脚本：
用法：gawk -f script.awk file.txt


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
}

gawk 下载：http://www.klabaster.com/progs/gawk32.zip

[ Last edited by 无奈何 on 2006-12-14 at 03:23 AM ]

恕我愚钝，兄的代码看不懂。
为防拍马的嫌疑，就不给兄加分了，见谅。

第1楼　wydos	发表于 2006-12-13 07:15
中级用户　发帖 117　积分 304
[求助]怎样用bat对齐文本？文本内容形式是这样的：新编中医临证备要作者：卢祥之　 SS号：10804820 索书号：R24/15 中医临床学基础作者：湖南中医学院　 SS号：10806223 索书号：R24/1 临床证治精论作者：徐春家秦群　 SS号：10806254 索书号：R24/152 . . . 我想把它按类对齐，变成如下形式：新编中医临证备要作者：卢祥之　 SS号：10804820 索书号：24/15 中医临床学基础作者：湖南中医学院 SS号：10806223 索书号：24/1 临床证治精论作者：徐春家秦群　 SS号：10806254 索书号：24/152 . . . . . [ Last edited by wydos on 2006-12-13 at 07:17 AM ]

第2楼　a9319751	发表于 2006-12-13 07:19
中级用户　发帖 170　积分 439
隐隐约约记得哪个能制造TAB跳格好象是8个空格

第3楼　namejm	发表于 2006-12-13 07:35
荣誉版主　发帖 1,737　积分 5,226　来自成都
需要统计每一节字符串的最大长度才好排版。

第4楼　lxmxn	发表于 2006-12-13 07:53
版主　发帖 4,938　积分 11,386
不知道WMIC可不可以，问下版主就知道了。

第5楼　youxi01	发表于 2006-12-13 08:03
高级用户　发帖 247　积分 846　来自湖南==》广东
个人认为，纯粹的P很难实现，因为P很难判断变量的字节数，所以要借助于vbs。 ::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 说明：将要处理的文字保存为test.txt,本代码保存为：ok.bat [ Last edited by youxi01 on 2006-12-13 at 08:14 AM ]

第6楼　electronixtar	发表于 2006-12-13 09:15
铂金会员　发帖 2,672　积分 7,493
不知道WMIC可不可以，问下版主就知道了。汗，WMIC拿来处理文本～～～

第7楼　pengfei	发表于 2006-12-13 12:09
银牌会员　发帖 485　积分 1,218　来自湖南.娄底
@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=210-2num call :add %%i set a=!i! call :detect %%j set /a num=28-2num 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 只测试了你给的三行, 其他格式和特殊字符没有考虑. 请注意冒号全角和半角的区别． [ Last edited by pengfei on 2006-12-13 at 12:53 PM* ]

第8楼　zh159	发表于 2006-12-13 14:30
金牌会员　发帖 1,467　积分 3,687
“delims=作者：SS号：索书号：”中有个缺点，只要某个位置有其中一种字符就导致缺失可以先考虑将“作者：”“SS号：”“索书号：”替换为$后再处理亮点：检测字节数 >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 [ Last edited by zh159 on 2006-12-13 at 09:35 AM ]

第9楼　HUNRYBECKY	发表于 2006-12-13 21:53
银牌会员　发帖 442　积分 1,179
都太棒了，我对FOR语句总是用的不好。想不到FOR语句用处这么大，学习了。

第10楼　HUNRYBECKY	发表于 2006-12-13 22:14
银牌会员　发帖 442　积分 1,179
Originally posted by youxi01 at 2006-12-13 08:03: 个人认为，纯粹的P很难实现，因为P很难判断变量的字节数，所以要借助于vbs。 ::On Error Resume Next echo ' > nul &cls & @echo off echo ' > nul & ... 问下，::不是和REM 一样,是注释吗?为什么把他的::后,运行就不正常了.奇怪,楼主能否解释下.

第11楼　youxi01	发表于 2006-12-14 01:18
高级用户　发帖 247　积分 846　来自湖南==》广东
因为::在vbs中可以被认识（识别为换行），而rem却不能被vbs认识！

第12楼　youxi01	发表于 2006-12-14 01:22
高级用户　发帖 247　积分 846　来自湖南==》广东
7F的问题：要是书名中有E文字符或者数字，怎么解决？ 8F用文件的大小来判断字节数，真是高！

第13楼　qzwqzw	发表于 2006-12-14 01:51
银牌会员　发帖 636　积分 2,343
对齐还是先补后拆最省事。

第14楼　无奈何	发表于 2006-12-14 02:31
荣誉版主　发帖 356　积分 1,338
zh159 兄 8 楼用字节数判长确是亮点，CMD 下字串汉字和英文字母长度都是 1 ，用字节判断很好的解决了这个问题。不过 CMD 下特殊字符实在是然人头疼的问题，我也一直没有找到好的方法。本帖是很典型的格式化输出的问题，大多数语言 pringf 都能很好解决。可以试试下面的 awk 的脚本：用法：gawk -f script.awk file.txt 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 } gawk 下载：http://www.klabaster.com/progs/gawk32.zip [ Last edited by 无奈何 on 2006-12-14 at 03:23 AM ]

第15楼　ccwan	发表于 2006-12-14 02:44
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
恕我愚钝，兄的代码看不懂。为防拍马的嫌疑，就不给兄加分了，见谅。