DosTips.com

Code: Select all

@echo off
setlocal
cls
call :createbinvalue 219 DEL
set filler=&rem
set polnilo=&rem
for /L %%f in (1,1,78) do call set filler=%%char219%%%%filler%%
for /L %%f in (1,1,78) do call set polnilo=%%char219%%%%polnilo%%

echo fill=%filler%
echo poln=%polnilo%
goto :EOF
:createbinvalue
REM par1=decima value between 0 and 255
REM par2: if DEL set the variable only (delete chr file)
md _exe\_chrs_>nul 2>nul
if exist _exe\_chrs_\%1.chr goto :gonext
set "options=/d compress=off /d reserveperdatablocksize=26"
if %~1 neq 26  (type nul >_exe\_chrs_\t.tmp
makecab %options% /d reserveperfoldersize=%~1 _exe\_chrs_\t.tmp _exe\_chrs_\%~1.chr >nul
type _exe\_chrs_\%~1.chr | (
(for /l %%N in (1 1 38) do pause)>nul&findstr "^">_exe\_chrs_\t.tmp)
>nul copy /y _exe\_chrs_\t.tmp /a _exe\_chrs_\%~1.chr /b
del _exe\_chrs_\t.tmp
) else (copy /y nul + nul /a _exe\_chrs_\26.chr /a >nul)
:gonext
if "%2"=="DEL" (
 for /F "delims=" %%y in (_exe\_chrs_\%1.chr) do set "char%1=%%y"
del _exe\_chrs_\%1.chr
rd _exe\_chrs_
)
goto :EOF

Code: Select all

fill=█78iller
poln=██████████████████████████████████████████████████████████████████████████████

C:\>

Code: Select all

for /L %%f in (1,1,78) do call set filler=%%char219%%%%filler%%

Code: Select all

for /L %%f in (1,1,78) do call set filler=%%char219%%%%filler%%