Командная строка, батники, сценарии (bat, cmd) - [2969] :: Программы

Код:

@echo off
set PARAM_action=help

call :ReadParams "%*"
if "%PARAM_action%"=="help" (
    call :HelpAndQuit
    exit /b
)
if "%PARAM_action%"=="destroy" (
    if Not "%PARAM_silent%"=="silent" echo.Doing something bad :^)
    if Not "%PARAM_filelist%"=="" if Not "%PARAM_silent%"=="silent" echo Use list: %PARAM_filelist%
)
if Not "%PARAM_silent%"=="silent" echo.Doing some fun
if Not "%PARAM_silent%"=="silent" echo.Doing some fun
if Not "%PARAM_silent%"=="silent" echo.Doing some fun
if "%PARAM_keep%"=="keep" (
    echo.
    pause
)
exit /b

:ReadParams
setlocal enabledelayedexpansion
set _PRM_action_=%PARAM_action%
FOR %%P IN (%~1) DO (
    set param_raw=%%P
    set param_name=!param_raw:~0,2!
    set param_value=!param_raw:~2!

    if /i "!param_name:~0,1!" EQU "/" set param_name=-!param_name:~1!
::
    if /i "!param_name!" EQU "-D" set _PRM_action_=destroy
    if /i "!param_name!" EQU "-L" set _PRM_action_=list
    if /i "!param_name!" EQU "-T" set _PRM_action_=targetslist

    if /i "!param_name!" EQU "-S" set _PRM_silent=silent

    if /i "!param_name!" EQU "-K" set _PRM_keep=keep

    if /i "!param_name!" EQU "-D" (
        set PARAM_action=destroy
        if Not "!param_value!"=="" set _FILE_filelist_=!param_value!
    )
)
endlocal & set PARAM_action=%_PRM_action_%& set PARAM_silent=%_PRM_silent%& set PARAM_keep=%_PRM_keep%& set PARAM_filelist=%_FILE_filelist_%
exit /b
::
::
:HelpAndQuit
set title=Folders Seek And Destroy from every drive
title %title% help window
echo.%title%
echo.
echo.Usage: %~nx0 action options
echo.
echo. action:
echo. /D - doing some fun
echo. /L - doing some other fun
echo. /T - doing more
echo.
echo. options:
echo. /S - Supress output messages
echo. /K - Keep CMD window opened until keypress
echo.
pause
exit /b

Модерирует : gyra, Maz
Maz (19-09-2020 13:36): Командная строка, батники, сценарии (bat, cmd) Часть 6	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению