DosTips.com

Code: Select all

When Day Is Done

If the day is done ,

If birds sing no more .

If the wind has fiagged tired ,

Then draw the veil of darkness thick upon me ,

Even as thou hast wrapt the earth with The coverlet of sleep and tenderly closed ,

The petals of the drooping lotus at dusk.

From the traverer,

Whose sack of provisions is empty before the voyage is ended ,

Whose garment is torn and dust-laden ,

Whose strength is exhausted,remove shame and poverty ,

And renew his life like a flower under

The cover of thy kindly night .

Code: Select all

                                When Day Is Done                               
                              If the day is done ,                             
                            If birds sing no more .                            
                        If the wind has fiagged tired ,                        
                 Then draw the veil of darkness thick upon me ,                
Even as thou hast wrapt the earth with The coverlet of sleep and tenderly close
                   The petals of the drooping lotus at dusk.                   
                               From the traverer,                              
         Whose sack of provisions is empty before the voyage is ended ,        
                     Whose garment is torn and dust-laden ,                    
             Whose strength is exhausted,remove shame and poverty ,            
                     And renew his life like a flower under                    
                        The cover of thy kindly night .                        

Code: Select all

@echo off &setlocal

set "file=poem.txt"

setlocal EnableDelayedExpansion
set "spcs=                                                  " &set "n=" &set "indent=!spcs!"
for /f "skip=4 tokens=2" %%i in ('mode con') do if not defined n set /a "cols=%%i, n=%%i/100"
for /l %%i in (1 1 %n%) do set "indent=!indent!!spcs!"

<"!file!" (
  for /f %%i in ('type "!file!"^|find /c /v ""') do for /l %%j in (1 1 %%i) do (
    set "line=" &set /p "line="
    if defined line (
      set "str=A!line!" &set "len=0"
      for /l %%k in (12,-1,0) do (
        set /a "len|=1<<%%k"
        for %%l in (!len!) do if "!str:~%%l,1!"=="" set /a "len&=~1<<%%k"
      )
      set /a "n=(cols-len)/2"
      if !n! lss 0 (
        set /a "n*=-1, len-=len-cols"
        for /f "tokens=1,2" %%k in ("!n! !len!") do echo(!line:~%%k,%%l!
      ) else for %%k in (!n!) do echo(!indent:~0,%%k!!line!
    )
  )
)

pause

Code: Select all

::Replace filename.txt with the file you want
for /f "tokens=*" %%a in (filename.txt) do call align.bat /m "%%a"

Code: Select all

@echo off
setlocal disabledelayedexpansion
set ^"LF=^
%= This creates a variable containing a single linefeed (0x0A) character =%
^"
set ^"\n=^^^%LF%%LF%^%LF%%LF%^^"
set @align=for %%. in (1 2) do if %%.==2 (%\n%
   for /f "skip=4 tokens=2 delims= " %%a in ('mode con') do if not defined _line set "_line=%%a"%\n%
   for /f "tokens=*" %%b in (!argv!) do (%\n%
      set "_text=%%b"%\n%
      set "_len=0"%\n%
      set "s=A!_text!"%\n%
      for %%P in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) do (%\n%
         if "!s:~%%P,1!" neq "" (%\n%
            set /a "_len+=%%P"%\n%
            set "s=!s:~%%P!"%\n%
         )%\n%
      )%\n%
      set /a _space=_line-_len%\n%
      set /a _space/=2%\n%
      set "_bsp="%\n%
      for /l %%c in (1,1,!_space!) do set "_bsp=!_bsp! "%\n%
      echo(!_bsp!!_text!%\n%
   )%\n%
) ELSE setlocal enabledelayedexpansion^&setlocal^&set argv=
::Replace filename.txt with your file
%@align% filename.txt

Code: Select all

@echo off
setlocal enabledelayedexpansion
set "space=    "
for /f "delims=" %%a in (poem.txt) do (
   setlocal
   for %%b in (%%a) do set /a n+=1
   set /a num=80-n*5
   set /a num=num/2/5
   for /l %%c in (1,1,!num!) do set/p=%space%<nul
   set/p=%%a<nul
   echo;
   endlocal
)
pause

Code: Select all

@echo off & setlocal EnableDelayedExpansion

:: size of box or windows (specified length)
set sizemax=70

set s=blablablablablabla

for /L %%# in (1,2,!sizemax!) do if "!s:~%sizemax%,1!" == "" set "s= !s! "

set s=!s:~1,%sizemax%!& echo(^|!s!^|

Code: Select all

@echo off
setlocal & setlocal
set "sourcefile=myfile.txt"
> "%sourcefile%" ( echo( & echo A picture is worth 1,000 words.
echo(
echo I
echo hope
echo this may be useful
echo to someone.
echo(
echo Never stop learning!
echo( ) & endlocal & set "sourcefile=%sourcefile%"

setlocal EnableDelayedExpansion

rem specified string length
Set "strFixedLen=40"
Set "indent=4"
Set "lBdr=^|" & Set "rBdr=!lBdr!"
Set "hz=+"

If %indent% gtr 0 (
  For /L %%n In (1,1,%indent%) Do (
    Set "lBdr= !lBdr!"
    Set "hz= !hz!"
))

For /L %%n In (1,1,%strFixedLen%) Do Set "hz=!hz!-"
Set "hz=%hz%+" & Echo !hz!

For /F %%j In ('Type %sourcefile%^|Find "" /v /c') Do Set /A "linecount=%%j"
Set /A "x=%linecount%-1"

< "%sourcefile%" (For /L %%i In (0,1,%x%) Do (
   Set "s="
   Set /P "s="
   If "0!s!" equ "0" Set "s= "
   For /L %%# In (1,2,!strFixedLen!) Do If "!s:~%strFixedLen%,1!" == "" Set "s= !s! "
   Set s=!s:~1,%strFixedLen%!& Echo(%lBdr%!s!%rBdr%
))

Echo %hz%
endlocal & endlocal & exit /b

Code: Select all

set /A var=10000+"thisNot"2000+" "300+"x"40+""5
10305

Code: Select all

@echo off
setlocal EnableDelayedExpansion

set "file=poem.txt"

for /F "skip=4 tokens=2" %%a in ('mode con') do set /A "cols=%%a-1" & goto continue
:continue
set "spaces="
for /L %%i in (0,2,%cols%) do set "spaces=!spaces! "
set "formula="^^^!str:~0,1^^^!"1"
for /L %%i in (2,2,%cols%) do set "formula=!formula!+"^^^!str:~%%i,1^^^!"1"

for /F "delims=" %%a in (poem.txt) do (
   set "str=%%a"
   set "str=!str: =x!"
   set "str=!str:,=x!"
   set /A "indent=%formula%"
   for /F %%n in ("!indent!") do set "str=!spaces:~0,%%n!%%a"
   echo !str:~0,%cols%!
)

Code: Select all

                                When Day Is Done
                              If the day is done ,
                            If birds sing no more .
                        If the wind has fiagged tired ,
                 Then draw the veil of darkness thick upon me ,
Even as thou hast wrapt the earth with The coverlet of sleep and tenderly close
                   The petals of the drooping lotus at dusk.
                               From the traverer,
         Whose sack of provisions is empty before the voyage is ended ,
                    Whose garment is torn and dust-laden ,
             Whose strength is exhausted,remove shame and poverty ,
                     And renew his life like a flower under
                        The cover of thy kindly night .

Code: Select all

@echo off
setlocal enabledelayedexpansion
cls
set window_width=80
set "text=The quick brown fox jumps over the lazy dog."
if not "%~1"=="" set text=%~1

call :center "The quick brown fox jumps over the lazy dog."
exit /b

:center
:: Subtract the width of the window from the length of the string and divide by
:: two. Then add that many spaces to the beginning of the string.
set text=%~1
echo !text!>tmp
for %%A in (tmp) do set /a length=%%~zA-2
del tmp
set /a spaces=(%window_width%-!length!)/2

for /l %%A in (1,1,!spaces!) do (
   set "text= !text!"
)

echo !text!