找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
楼主: pusofalse

【练习-006】批处理实现文本内容居中显示

[复制链接]
发表于 2015-12-29 12:14:54 | 显示全部楼层
回复 13# netbenton


    如果行尾有tab或者空格时,程序就不行了
发表于 2016-5-2 04:58:05 | 显示全部楼层
  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]
复制代码
发表于 2017-3-1 11:03:17 | 显示全部楼层
本帖最后由 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 会报错。
发表于 2021-3-20 10:41:58 | 显示全部楼层
  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
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-16 23:31 , Processed in 0.012462 second(s), 7 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表