【练习-003】批处理实现文本左右对齐排版

pusofalse

如1.txt内容如下。

111111111111111111111    98912 张三
222222222222222222    150020 李四四
  333333333333333333333    360000 王五
444444444444444444    2332 赵六六
  555555555555555555    222 田七
666666666666666666666    999999 舞吧COPY

通过批处理输出为：

 
111111111111111111111      98912 张三
222222222222222222        150020 李四四
333333333333333333333     360000 王五
444444444444444444          2332 赵六六
555555555555555555           222 田七
666666666666666666666     999999 舞吧COPY

代码要求，不生成任何临时文件。
代码简洁，视思路与代码加分！
------------------------------------------------------------------------------------------
本题只是给出一个简单的文本通过批处理排版，而要求代码的通用，正如batman版主所说，会是一个繁琐的过程，于是就题解题，不必考虑代码的通用。

[ 本帖最后由 batman 于 2008-7-27 23:57 编辑 ]

pusofalse

是。^_^

pusofalse

我本人的解，还是很繁琐，思路跟浅默的差不多。望更多人参与此题，求得更多的解！

 
@echo off&setlocal enabledelayedexpansion
set length=0
for /f "tokens=1,2" %%a in (1.txt) do (
     set x=0
     call :lp %%a%%b
     if !x! gtr !length! set length=!x!
)
set/a length+=4
for /f "tokens=1,2,*" %%a in (1.txt) do (
 set x=0
 set/p=%%a <nul
 call :lp %%a%%b
 set/a s=length-x
 for /l %%i in (1 1 !s!) do set/p= <nul
 set/p=%%b<nul
 set/p= %%c<nul
 echo.
)
pause&exit/b
:lp
set str=%1
:lp1
if defined str set str=!str:~1!&set/a x+=1&goto lp1COPY

pusofalse

原帖由 fastslz 于 2008-7-26 18:11 发表
这个是潜规则默认排版方式
@echo off
for /f "delims=*" %%a in (1.txt) do call :xxx %%a
pause&exit

:xxx
    set "str=%*"
    set "str=%str: =        %"
    echo.%str%
goto:eof

第一次看到如此的方法，还没弄明白怎么回事，在我电脑上测试着不正确。但仍旧学习了！~

pusofalse

原帖由 fastslz 于 2008-7-26 18:35 发表
是论坛字符问题
方法其实很简单call标签删除前面及后面的空格字符，替换空格字符为Tab键字符set "str=%str: =这里是Tab键字符%"
附上附件

测试文本：

1111111    aaaaaaaaaaaa 张三
222222sdf222222222222    150020 李四四
  3333333sfd33333333333333    0 王五
44444444444aa4444444    2332 赵sdfafa六六
  555555555    222 田七
666666666666666666666asaaaaaaaaa    9999999999999 舞COPY

pusofalse

可以直接这样。。
echo 111111111111111111111      98912 张三
echo 222222222222222222        150020 李四四
echo 333333333333333333333     360000 王五
...
...
加分鼓励！一同进步！