Board logo

标题: 【练习-006】批处理实现文本内容居中显示 [打印本页]

作者: pusofalse    时间: 2008-7-31 11:43     标题: 【练习-006】批处理实现文本内容居中显示

a.txt
  1. [Promise don't come easy]
  2. I should have known all along.
  3. There was something wrong.
  4. I just never read between the lines.
  5. Then I woke up one day and found you on your way.
  6. Leaving nothing but my heart behind.
  7. What can I do to make it up to you.
  8. Promises don't come easy.
  9. But tell me if there's a way to bring you back home to stay.
  10. Well I'd promises anything to you.
  11. I've been walkin' around with my head hanging down.
  12. Wondrin' what I'm gonna do.
  13. 'Cause when you walked out that door.
复制代码
要求,CMD原始窗口中,不调节窗口大小,不生成临时文件,居中显示文本内容。输出如下:
  1.                           [Promise don't come easy]
  2.                         I should have known all along.
  3.                           There was something wrong.
  4.                      I just never read between the lines.
  5.               Then I woke up one day and found you on your way.
  6.                      Leaving nothing but my heart behind.
  7.                      What can I do to make it up to you.
  8.                           Promises don't come easy.
  9.          But tell me if there's a way to bring you back home to stay.
  10.                       Well I'd promises anything to you.
  11.              I've been walkin' around with my head hanging down.
  12.                          Wondrin' what I'm gonna do.
  13.                     'Cause when you walked out that door.
复制代码

-----------------------------------------------------------------------------------
至此,已有比较完美的答案,见2楼sed版,与6楼findstr版。

[ 本帖最后由 pusofalse 于 2008-7-31 21:17 编辑 ]
作者: Batcher    时间: 2008-7-31 11:50

  1. sed -e :a -e "s/^.\{1,77\}$/ & /;ta" a.txt
复制代码
sed.exe
http://rtngslin.moe.hm/cndos-up/img/561.zip
作者: pusofalse    时间: 2008-7-31 12:09

高~ 竟然一句搞定。^_^

[ 本帖最后由 pusofalse 于 2008-7-31 12:11 编辑 ]
作者: batman    时间: 2008-7-31 12:41

我还是喜欢用纯批处理,代码先不发了,先看看别人的吧。。。
作者: more    时间: 2008-7-31 13:08     标题: 逐字判断,效率低下

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f "delims=" %%a in ('type 1.txt') do (
  4.    set "str=%%a"&set "n=0"
  5.    call :count
  6. )
  7. echo.&pause&exit
  8. :count
  9. set "var=!str:~%n%,1!"
  10. set /a "n+=1"
  11. if not "!str:~%n%,1!"=="" (goto :count)
  12. set /a "m=%n%/2"
  13. set /a "mm=40-%m%"
  14. for /l %%c in (1 1 %mm%) do (call set "kong=%%kong%% ")
  15. echo %kong%%str%
  16. set "kong="
复制代码

作者: batman    时间: 2008-7-31 16:23

思路说明:
以下代码是充分findstr命令的示例,使用findstr /n来取得行号同时兼容空行,
并将行号进行变量赋值;使用findstr /o来取得第行的字符偏移量,但要通过
上、下行的字符偏移差,因为字符偏移值是类计递加的,同时每行回车增加
两个字符偏移,所以不可避免要对最后一行强加回车,在不破坏原文件的情
况下只好生成临时文件;利用findstr /o能够一次性获得文本所有行的字符偏
移量也就是字符总数,效率和逐字符判断相比肯定是高得多了。
---------------------------------
  1. @echo off
  2. copy /y 1.txt 2.txt>nul
  3. echo.>>2.txt&echo end>>2.txt
  4. for /f "tokens=1,2* delims=: " %%i in ('findstr /n /o .* 2.txt') do (
  5.     set "_%%i=%%j"&set ".%%i=%%k"
  6.   if %%i geq 2 call :lp %%i
  7. )
  8. del /q 2.txt&pause>nul&goto :eof
  9. :lp
  10. set /a n=%1-1
  11. set /a num=_%1-_%n%-2
  12. set /a kl=(80-num)/2
  13. for /l %%i in (1,1,%kl%) do set /p= <NUL
  14. call,set /p=%%.%n%%%<NUL&ECHO.
复制代码

作者: more    时间: 2008-7-31 17:12

哈哈,看了版主的代码终于知道findstr /o的用法了,收获不小啊,非常感谢!!!
作者: more    时间: 2008-7-31 17:17

  1. for /f "tokens=1,2* delims=: " %%i in ('findstr /n /o .* 2.txt') do (
  2. ...
复制代码
好像delims=:就行了吧,空格没有必要吧.
作者: batman    时间: 2008-8-2 09:15

再来一个更简单的(no findstr  no 逐字符 no tempfile no 变量延迟):
  1. @echo off
  2. for /l %%i in (1,1,80) do call,set "kong=%%kong%% "
  3. for /f "delims=" %%i in (1.txt) do (
  4.      set "str=%%i%kong%"
  5.      call,set "str=%%str:~,80%%"
  6.      call,set "str=%%str:%%i=%%"
  7.      call,set "str=%%str:  = %%"
  8.      call,echo %%str%%%%i
  9. )
  10. pause>nul
复制代码

[ 本帖最后由 batman 于 2008-8-2 12:04 编辑 ]
作者: keen    时间: 2009-4-26 00:13

  1. @echo off
  2. for /f "delims=" %%i in (a.txt) do (
  3.     set v=%%i
  4.     set str=%%i
  5.     set n=0
  6.     call :lp
  7. )
  8. pause&exit/b
  9. :lp
  10.     set /a n+=1
  11.     set v=%v:~1%
  12.     if not "%v%"=="" (goto lp) else (goto next)
  13. :next
  14.     set /a m=(77-%n%)/2
  15.     for /l %%j in (1 1 %m%) do set /p= <nul
  16.     echo %str%
  17. goto :eof
复制代码

作者: batman    时间: 2009-4-26 00:50

楼上的没考虑空行,同时逐字符效率是大问题,还有最后的goto :eof是多余的。
作者: keen    时间: 2009-4-27 11:30     标题: 回复 11楼 的帖子

没办法,水平有限,没考虑空行和效率,看了你的9楼的代码才知道还可以整体考虑,学习了。
goto :eof 我的理解是它可以让程序执行call的下一行
作者: netbenton    时间: 2009-4-28 13:19

偶也来个纯批的,没有外部命令

每循环一次在两边各增加一个空格,直到超过79个字符
  1. @echo off&setlocal enabledelayedexpansion
  2. for /f "delims=" %%a in (a.txt) do (set "str=%%a"
  3.       for /l %%b in (1,1,40) do (if "!str:~78!" equ "" set "str= !str! ")
  4.       echo,!str:~,79!
  5. )
  6. pause
复制代码

[ 本帖最后由 netbenton 于 2009-4-28 13:22 编辑 ]
作者: biluncloud    时间: 2011-12-22 14:23

再来一个更简单的(no findstr  no 逐字符 no tempfile no 变量延迟):


[ 本帖最后由 batman 于 2008-8 ...
batman 发表于 2008-8-2 09:15



    看练习题的时候看到这道题,然后看到版主竟然使用如此精妙的方法来处理,激动之余冲上来顶一下,太强大了
作者: 喃喃努努    时间: 2012-5-20 23:06

不懂。。。
作者: designTech    时间: 2015-12-29 12:14

回复 13# netbenton


    如果行尾有tab或者空格时,程序就不行了
作者: codegay    时间: 2016-5-2 04:58

  1. """
  2. python文本内容居中显示.py
  3. http://bbs.bathome.net/thread-1289-1-1.html
  4. 2016年5月2日 04:51:33 codegay
  5. """
  6. with open("a.txt") as f:
  7.     txt=[r.strip() for r in f]
  8.     w=max([len(r) for r in txt])+10
  9.     [print(r.center(w)) for r in txt]
复制代码

作者: taofan712    时间: 2017-3-1 11:03

本帖最后由 taofan712 于 2017-3-1 11:06 编辑
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set "kong=    "
  4. for /f "delims=" %%a in (a.txt) do (
  5. setlocal
  6. for %%b in (%%a) do set /a n+=1
  7. set /a num=80-n*4
  8. set /a num=num/8
  9. for /l %%c in (1,1,!num!) do set/p=%kong%<nul
  10. set/p=%%a<nul
  11. for /l %%c in (1,1,!num!) do set/p=%kong%<nul
  12. echo;
  13. endlocal
  14. )
  15. pause
复制代码
取近似值做的,平均每个单词4个字母。效果不错。
重要的是我想借此问一下,我第八行set /a num=num/8为什么不能跟第七行写一起set /a num=(80-n*4)/8 会报错。
作者: qixiaobin0715    时间: 2021-3-20 10:41

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /l %%i in (1,1,40) do set "space=!space! "
  4. for /f "tokens=1* delims=:" %%a in ('findstr /o .* 1.txt') do (
  5.     if defined num2 (
  6.         set /a "num1=(%%a-!num2!)/2"
  7.         call echo,%%str:~!num1!%%
  8.     )
  9.     set num2=%%a
  10.     set str=!space!%%b
  11. )
  12. pause
复制代码





欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2