<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
Не уверен, что это наиболее оптимальный вариант (вероятно, он избыточен), предложите свой if [%cmdextversion%] == [] goto nocmdext
if not cmdextversion 1 goto nocmdext
setlocal EnableExtensions EnableDelayedExpansion
if errorlevel 1 goto nocmdext
Вывод сообщений с обрамлением чёрточками (символ # заменяется на !):
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
p.s. Кол-во чёрточек ограничено 256 символами (для упрощения).@echo off
setlocal EnableExtensions EnableDelayedExpansion
echo.
call :ShowMsg "Hello, my friend#"
exit /b
:ShowMsg str(#=!)
set _s=%~1&call :StrLen !_s!&call :StrRep !_l! -
echo %_s:#=^^!%
call :StrRep %_l% -
exit /b
:StrLen str
set _=%*&set _l=0&(for /l %%i in (1,1,256) do if #!_! neq # set /a _l+=1&set _=!_:~0,-1!)&exit /b
:StrRep count str
set _=&(for /l %%i in (1,1,%1) do set _=!_!%2)&echo !_!&exit /b
Есть и более сложные (быстрые и универсальные) процедуры вычисления длины строки.
Вывод сообщений без перевода строки и задержка (демонстрация вентилятора):
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
Не потеряйте здесь символы с кодом 8 !!! (◘)@echo off
setlocal EnableExtensions EnableDelayedExpansion
for /l %%i in (1,1,10) do (
call :Write "|◘"
call :Delay 10
call :Write /◘
call :Delay 10
call :Write -◘
call :Delay 10
call :Write \◘
call :Delay 10
)
exit /b
:Write str
set /p=%1<nul
exit /b
:Delay hundredth
call :GetTicks _a
:_WaitDelay
call :GetTicks _b
set /a _b=_b-_a
if %_b% lss 0 set /a _b+=8640000
if %_b% lss %~1 goto _WaitDelay
exit /b
:GetTicks var
set _t=%time: =0%
set /a %1=1%_t:~9,2%-100+(1%_t:~6,2%-100)*100+(1%_t:~3,2%-100)*6000+(1%_t:~0,2%-100)*360000
exit /b
p.s. Суть вывода сообщений без перевода строки сводится к одной простой команде:
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
или так:set /p=Строка<nul
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
<nul set /p=Строка
Ещё один пример с задержкой (определение прошедшего времени):
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
@echo off
setlocal EnableExtensions EnableDelayedExpansion
echo.
echo Подождите, команда выполняется...
call :GetTicks tick1
:: Выполняем команду
dir c:\ /s > nul
call :GetTicks tick2
set /a hs=%tick2%-%tick1%
if %hs% lss 0 set /a hs+=8640000
set /a h=%hs%/360000
set /a m=(%hs%/6000)%%60
set /a s=(%hs%/100)%%60
set /a hs=%hs%%%100
echo Прошедшее время: %h% час %m% мин %s%.%hs% сек.
pause
exit /b
:GetTicks var
set _t=%time: =0%
set /a %1=1%_t:~9,2%-100+(1%_t:~6,2%-100)*100+(1%_t:~3,2%-100)*6000+(1%_t:~0,2%-100)*360000
exit /b
Чтение ini-файлов:
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
@ECHO OFF
:: Check Windows version
IF NOT "%OS%"=="Windows_NT" GOTO Syntax
:: Check command line
ECHO.%1 | FIND "?" >NUL
IF NOT ERRORLEVEL 1 GOTO Syntax
IF [%3]==[] GOTO Syntax
:: Check if INI file exists
IF NOT EXIST "%~f1" GOTO Syntax
:: Keep variables local and enable delayed variable expansion
SETLOCAL ENABLEDELAYEDEXPANSION
:: Read variables from command line
SET INIFile="%~f1"
SET INISection=%~2
SET INIKey=%~3
SET INIValue=
:: Reset temporary variables
SET SectOK=0
SET SectFound=0
SET KeyFound=0
:: Search the INI file line by line
FOR /F "tokens=* delims=" %%A IN ('TYPE %INIFile%') DO CALL :ParseINI "%%A"
:: Display the result
ECHO.
:: EXIT /B return codes (errorlevels) added by Van Woods,
:: US Army Corps of Engineers, Seattle District
IF NOT %SectFound%==1 (
ECHO INI section not found
EXIT /B 1
) ELSE (
IF NOT %KeyFound%==1 (
ECHO INI key not found
EXIT /B 2
) ELSE (
IF DEFINED INIValue (
ECHO.%INIFile%
ECHO [%INISection%]
ECHO %INIKey%=%INIValue%
) ELSE (
ECHO Value not defined
EXIT /B 3
)
)
)
:: Corrected environment variable by Van Woods,
:: US Army Corps of Engineers, Seattle District
ENDLOCAL & SET %INIKey%=%INIValue%
GOTO:EOF
:ParseINI
:: Skip rest of file after key has been found;
:: speed improvement by Jeroen Verschuuren
IF "%SectFound%"=="1" IF "%KeyFound%"=="1" GOTO:EOF
:: Store quoted line in variable
SET Line="%~1"
:: Check if this line is the required section heading
ECHO.%Line%| FIND /I "[%INISection%]" >NUL
IF NOT ERRORLEVEL 1 (
SET SectOK=1
SET SectFound=1
GOTO:EOF
)
:: Check if this line is a different section header
IF "%Line:~1,1%"=="[" SET SectOK=0
IF %SectOK%==0 GOTO:EOF
:: Parse any "key=value" line
FOR /F "tokens=1* delims==" %%a IN ('ECHO.%Line%') DO (
SET Key=%%a^"
SET Value=^"%%b
)
:: Strip quotes, tabs, and surrounding spaces from key and value
:: Modifications added by Van Woods,
:: US Army Corps of Engineers, Seattle District
SET Value=%Value:"=%
:: Remove quotes
SET Key=%Key:"=%
:: Remove tabs
SET Value=%Value: =%
SET Key=%Key: =%
:: Remove leading spaces
FOR /F "tokens=* delims= " %%A IN ("%Key%") DO SET Key=%%A
FOR /F "tokens=* delims= " %%A IN ("%Value%") DO SET Value=%%A
:: Remove trailing spaces
FOR /L %%A in (1,1,32) do if "!Key:~-1!"==" " set Key=!Key:~0,-1!
FOR /L %%A in (1,1,32) do if "!Value:~-1!"==" " set Value=!Value:~0,-1!
:: Now check if the key matches the required key
IF /I "%Key%"=="%INIKey%" (
SET INIValue=%Value%
SET KeyFound=1
)
:: End of ParseINI subroutine
GOTO:EOF
:Syntax
ECHO.
ECHO ReadINI.bat, Version 1.30 for Windows NT 4 / 2000 / XP / Server 2003
ECHO Read a value from the specified INI file
ECHO.
ECHO Usage: READINI "ini_file" "section" "key"
ECHO Where: "ini_file" is the file name of the INI file to be read
ECHO "section" is the section name, without the brackets
ECHO "key" is the key whose value must be read
ECHO.
ECHO Example: if MYPROG.INI looks like this:
ECHO [Section 1]
ECHO Key1=Value 1
ECHO Key2=Value 2
ECHO [Section 2]
ECHO Key2=Value 4
ECHO Then the command: READINI "MYPROG.INI" "section 1" "key2"
ECHO will return: Key2=Value 2
ECHO.
ECHO Written by Rob van der Woude
ECHO http://www.robvanderwoude.com
ECHO Speed improvement by Jeroen Verschuuren
ECHO Return codes, whitespace removal and corrected environment variable
ECHO by Van Woods, US Army Corps of Engineers, Seattle District
Добавляйте и вы что-нибудь интересное!
