中国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兄加油!!!

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