无聊跟风：竖向排版方式发帖之批处理版 - 中国DOS联盟论坛

@echo off
setlocal enabledelayedexpansion
type nul>b.txt
set test=最近看到网上有人喜欢用竖向排版方式发帖，感觉很有意思，就写了一个批处理排版，与大家分享。有时间的话，我希望自己能够继续完善这个批处理。
set rows=10
set clos=10
set /a tmpclos=%clos%*2-1
set header=╔
set footer=╚
for /l %%a in (1,1,%tmpclos%) do (
  set /a flag=%%a%%2
  if !flag! == 1 (
    set header=!header!═
    set footer=!footer!═
  ) else (
    set header=!header!╤
    set footer=!footer!╧
  )
)
set header=!header!╗
set footer=!footer!╝
echo !header!>>b.txt
for /l %%a in (1,1,%rows%) do (
  set curclo=0
  set row=║
  for /l %%b in (1,1,%clos%) do (
    set /a curclo+=1
    set /a cut=%clos%-%%b
    set /a cut=!cut!*%rows%+%%a-1
    call set char=%%test:~!cut!,1%%
    if "!char!" equ "" (
      set row=!row!　
    ) else (
      set row=!row!!char!
    )
    if !curclo! lss %clos% (
      set row=!row!│
    )
  )
  echo !row!║>>b.txt
)
echo !footer!>>b.txt

╔═╤═╤═╤═╤═╤═╤═╤═╤═╤═╗
║　│　│　│善│我│家│一│感│用│最║
║　│　│　│这│希│分│个│觉│竖│近║
║　│　│　│个│望│享│批│很│向│看║
║　│　│　│批│自│。│处│有│排│到║
║　│　│　│处│己│有│理│意│版│网║
║　│　│　│理│能│时│排│思│方│上║
║　│　│　│。│够│间│版│，│式│有║
║　│　│　│　│继│的│，│就│发│人║
║　│　│　│　│续│话│与│写│帖│喜║
║　│　│　│　│完│，│大│了│，│欢║
╚═╧═╧═╧═╧═╧═╧═╧═╧═╧═╝

呵呵，我也跟个风。。。


@echo off&setlocal enabledelayedexpansion
set str=最近看到网上有人喜欢用竖向排版方式发帖，感觉很有意思，就写了一个批处理排版，与大家分享。有时间的话，我希望自己能够继续完善这个批处理。　
for /l %%i in (1 1 10) do (
   for /l %%a in (3 2 21) do set "h%%i.%%a=│"
   set h%%i.21=║&set "h%%i.1=║"
)
for /l %%a in (20 -2 2) do (
   for /l %%i in (1 1 10) do (
      if defined str (
         set h%%i.%%a=!str:~0,1!
         set str=!str:~1!
       ) else set "h%%i.%%a=　"
))
echo ╔═╤═╤═╤═╤═╤═╤═╤═╤═╤═╗ 
for /l %%i in (1 1 10) do (
   for /l %%a in (1 1 21) do set /p=!h%%i.%%a!<nul
   echo.  
)
echo ╚═╧═╧═╧═╧═╧═╧═╧═╧═╧═╝
pause>nul

[ Last edited by 26933062 on 2008-7-8 at 11:13 AM ]

3楼的代码更简练

其实开始我是想动态生成列的数目，所以写的复杂了，呵呵，哪天心血来潮的时候再改写。

我认为重要的不是技巧，而是思路，HAT兄加油!!!

┌─┬─┬─┬─┬─┬─┬─┬─┐
│　┆　┆　┆　┆　┆。┆，┆非│
│　┆　┆　┆　┆　┆学┆非┆常│
│　┆　┆　┆　┆　┆习┆常┆强│
│　┆　┆　┆　┆　┆中┆巧┆大│
│　┆　┆　┆　┆　┆。┆妙┆的│
│　┆　┆　┆　┆　┆　┆的┆批│
│　┆　┆　┆　┆　┆　┆思┆处│
│　┆　┆　┆　┆　┆　┆路┆理│
└─┴─┴─┴─┴─┴─┴─┴─┘

第1楼　HAT	发表于 2008-07-08 00:52
版主　发帖 5,017　积分 9,023
无聊跟风：竖向排版方式发帖之批处理版 @echo off setlocal enabledelayedexpansion type nul>b.txt set test=最近看到网上有人喜欢用竖向排版方式发帖，感觉很有意思，就写了一个批处理排版，与大家分享。有时间的话，我希望自己能够继续完善这个批处理。 set rows=10 set clos=10 set /a tmpclos=%clos%2-1 set header=╔ set footer=╚ for /l %%a in (1,1,%tmpclos%) do ( set /a flag=%%a%%2 if !flag! == 1 ( set header=!header!═ set footer=!footer!═ ) else ( set header=!header!╤ set footer=!footer!╧ ) ) set header=!header!╗ set footer=!footer!╝ echo !header!>>b.txt for /l %%a in (1,1,%rows%) do ( set curclo=0 set row=║ for /l %%b in (1,1,%clos%) do ( set /a curclo+=1 set /a cut=%clos%-%%b set /a cut=!cut!%rows%+%%a-1 call set char=%%test:~!cut!,1%% if "!char!" equ "" ( set row=!row!　 ) else ( set row=!row!!char! ) if !curclo! lss %clos% ( set row=!row!│ ) ) echo !row!║>>b.txt ) echo !footer!>>b.txt ╔═╤═╤═╤═╤═╤═╤═╤═╤═╤═╗ ║　│　│　│善│我│家│一│感│用│最║ ║　│　│　│这│希│分│个│觉│竖│近║ ║　│　│　│个│望│享│批│很│向│看║ ║　│　│　│批│自│。│处│有│排│到║ ║　│　│　│处│己│有│理│意│版│网║ ║　│　│　│理│能│时│排│思│方│上║ ║　│　│　│。│够│间│版│，│式│有║ ║　│　│　│　│继│的│，│就│发│人║ ║　│　│　│　│续│话│与│写│帖│喜║ ║　│　│　│　│完│，│大│了│，│欢║ ╚═╧═╧═╧═╧═╧═╧═╧═╧═╧═╝

第2楼　pusofalse	发表于 2008-07-08 08:42
银牌会员　发帖 646　积分 1,604
高。。。^_^

第3楼　26933062	发表于 2008-07-08 11:07
银牌会员　发帖 879　积分 2,268
呵呵，我也跟个风。。。 @echo off&setlocal enabledelayedexpansion set str=最近看到网上有人喜欢用竖向排版方式发帖，感觉很有意思，就写了一个批处理排版，与大家分享。有时间的话，我希望自己能够继续完善这个批处理。　 for /l %%i in (1 1 10) do ( for /l %%a in (3 2 21) do set "h%%i.%%a=│" set h%%i.21=║&set "h%%i.1=║" ) for /l %%a in (20 -2 2) do ( for /l %%i in (1 1 10) do ( if defined str ( set h%%i.%%a=!str:~0,1! set str=!str:~1! ) else set "h%%i.%%a=　" )) echo ╔═╤═╤═╤═╤═╤═╤═╤═╤═╤═╗ for /l %%i in (1 1 10) do ( for /l %%a in (1 1 21) do set /p=!h%%i.%%a!<nul echo. ) echo ╚═╧═╧═╧═╧═╧═╧═╧═╧═╧═╝ pause>nul [ Last edited by 26933062 on 2008-7-8 at 11:13 AM ]

第4楼　wjdidi	发表于 2008-07-08 13:50
初级用户　发帖 55　积分 175
3楼的代码更简练

第5楼　HAT	发表于 2008-07-08 13:56
版主　发帖 5,017　积分 9,023
其实开始我是想动态生成列的数目，所以写的复杂了，呵呵，哪天心血来潮的时候再改写。

第6楼　bat-zw	发表于 2008-07-08 14:46
金牌会员　发帖 1,276　积分 3,105
我认为重要的不是技巧，而是思路，HAT兄加油!!!

第7楼　hongewuyan	发表于 2008-07-08 15:13
初级用户　发帖 29　积分 65
┌─┬─┬─┬─┬─┬─┬─┬─┐ │　┆　┆　┆　┆　┆。┆，┆非│ │　┆　┆　┆　┆　┆学┆非┆常│ │　┆　┆　┆　┆　┆习┆常┆强│ │　┆　┆　┆　┆　┆中┆巧┆大│ │　┆　┆　┆　┆　┆。┆妙┆的│ │　┆　┆　┆　┆　┆　┆的┆批│ │　┆　┆　┆　┆　┆　┆思┆处│ │　┆　┆　┆　┆　┆　┆路┆理│ └─┴─┴─┴─┴─┴─┴─┴─┘