[Anonymоus]

Он будет привязан к Python'у . »

Ну... верно, с этим ничего не поделаешь, но на *nix системах он уже стоит, а для win платформы, если цель — не запустить у себя, а распространять скрипт на клиентские машины, можно и статический билд сделать со вшитым интерпретатором и библиотеками.

Anonymоus, Вы где пропадали столько времени , коллега? »

Переезды, перемены, не всегда был интернет и свободное время. Каюсь, уже долго не заходил сюда

[Iska]

можно и статический билд сделать со вшитым интерпретатором и библиотеками. »

…и мы возвращаемся к тому, с чего начали — невозможность быстрой правки и использования кода .

Переезды, перемены, не всегда был интернет и свободное время. Каюсь, уже долго не заходил сюда »

Спасибо, ясно.

Anonymоus, вот это царский подгон. Благодарствую! (на некоторых форумах все спасибы в ЛС, как у нас не знаю, но не могу удержаться) Постараюсь разобраться с этим в ближайшее время. И надеюсь, не придется доканывать тупыми вопросами...

[Anonymоus]

Stalker_AleX333, тупых вопросов в программировании не бывает, любое желание разобраться, а не просто собрать Франкенштейна из кусков чужого кода — похвально. Если что-то будет не очевидно, спрашивайте, мне или остальным форумчанам не трудно объяснить будет или указать на ресурс, где можно об этом узнать.

[YuS_2]

Смотрю, здесь как и раньше, упорно советуют переходить на PowerShell, и только потом, неохотно и со скрипом помогают. »

Просто, надежно и быстро ... а cmd не обладает такими возможностями, как powershell... да и powershell, нынче, изкаропки командный шелл по умолчанию

Оставшееся спишем на банальное "да без разницы на чём, лишь бы проблему решить". »

как правило, если надо ехать, то на шашечки внимание обращать не приходится
Ну, а если студенту требуется решение в определенной среде, то ... лично мое мнение - мы оказываем медвежью услугу, предлагая студентам готовые решения.

Имхо, если человеку не хватает возможностей cmd, он уже сразу на Python перейдёт »

Это почему? Мне, например, за глаза хватает встроенных средств. Зачем тащить в систему сторонние разработки, если необходимые инструменты уже присутствуют в этой системе?

для win платформы»

на win платформах powershell уже стоит

на *nix системах »

для *nix - Powershell Core, однако...

Народ, а можно имена отсутствующих файлов из конфига выводить с новой строки?



Так, читабельность не очень. Попробовал подергать delims, но это наверное не то, в данном случае.

Код Anonymоus-а особо не трогал:

Код:

:: Чтение конфиг-файла панели управления
call :read_control_panel_config "%ControlPanelConfig%"

:read_control_panel_config (config_file_path)
setlocal EnableDelayedExpansion
for /f "usebackq eol=; tokens=1,2* delims==" %%a in ("%~1") do set "$%%a=%%b"

:: Проверка наличия всех файлов для панели управления в Silver Raven mods pack data
set "ControlPanelMissingFiles="
set "ControlPanelFilesList=%ControlPanelConfig%"

for %%? in (%$ControlPanelFilesList%) do (
	if not exist "%%~?" set ControlPanelMissingFiles=!ControlPanelMissingFiles!, %%~?
)

setlocal DisableDelayedExpansion
if defined ControlPanelMissingFiles ( color fc
 echo.
 echo  ╔════════════════════════════════════════════════════════════╗
 echo  ║ Панель управления Silver Raven mods pack версии 1.4.0 BETA ║
 echo  ╚════════════════════════════════════════════════════════════╝
 echo.
 echo.
 echo *ОШИБКА! Следующие файлы, необходимые для корректной работы программы, не найдены:
 echo.
 echo. 
 echo %ControlPanelMissingFiles:~2%
 echo.
 echo.
 echo Извлеките папку Silver Raven mods pack data из установочных архивов со сборкой в папку игры вручную и перезапустите панель управления. Убедитесь, что антивирусное ПО не блокирует ее работу.
 echo.
 echo.
pause
exit
)

[Anonymоus]

Stalker_AleX333, конечно можно. Внесите следующие изменения:

Код:

For %%? In (%$ControlPanelFilesList%) Do (
	If Not Exist "%%~?" set ControlPanelMissingFiles=!ControlPanelMissingFiles!,"%%~?"
)

Код:

 Echo *ОШИБКА! Следующие файлы, необходимые для корректной работы программы, не найдены:
 echo.
 echo. 
 For %%A In (%ControlPanelMissingFiles%) Do Echo %%~A
 echo.
 echo.
 echo Извлеките папку Silver Raven mods pack data из установочных архивов со сборкой в папку игры вручную и перезапустите панель управления. Убедитесь, что антивирусное ПО не блокирует ее работу.

Изменившиеся части выделены синим.

Anonymоus, я вот думаю, а может можно как-то упростить изменение параметров в конфиг-файлах? У меня ведь все строго заданно:
вроде того-же, UpdateInstalled=true > UpdateInstalled=false
Может можно обойтись без фильтра комментариев и временных файлов? Открыли строго указанный файл и заменили строго указанное значение. Все, остальное пофигу...

Вот как-то так (но с временным файлом, правда и как надо не работает):

Код:

set AutoUpdateConfigTemp=%AutoUpdateConfig%.tmp
set UpdateStatusInstalled=UpdateInstalled=true
set UpdateStatusToNotInstalled=UpdateInstalled=false

if exist %AutoUpdateConfigTemp% del /q %AutoUpdateConfigTemp%

setlocal EnableDelayedExpansion
for /f "tokens=* delims=, " %%a in (%AutoUpdateConfig%) do ( 
    set line=%%a
    if !line!==%UpdateStatusInstalled% ( set line=%UpdateStatusToNotInstalled%)
    echo !line!>> %AutoUpdateConfigTemp%
)
setlocal DisableDelayedExpansion

move /y %AutoUpdateConfigTemp% %AutoUpdateConfig%

[Anonymоus]

Если честно, не вижу смысла в упрощении. Разве что на размере скрипта сэкономить? Так он всё равно в exe конвертируется.Для вашего случая может быть избыточно наличие тех же комментариев в конфиге, но можно ведь просто их не использовать?
Просто если вдруг в будущем понадобится добавить ещё что-то, в случае использования функции из моего примера никаких изменений вносить не понадобится, а ваш вариант со временем обрастёт кучей условий, когда скрипт панели управления будет прирастать функционалом.

[megaloman]

Stalker_AleX333,

Вариант без временных файлов

Код:

@Echo Off
cls
	If "%~1"=="" (
		Set "Config=Z:\Soft_In\config.cfg"  
	) Else (
		Set "Config=%~1"  
	)
	If Not Exist "%Config%" (Echo File "%Config%" not found &Pause &Exit /B)
	
	Set /A NConf=1000
	FOR /F "usebackq delims=" %%s IN (`2^>nul more "%Config%"`) DO (
		Set /A NConf+=1 
		Call Set "@@Conf%%NConf%%=%%s"
		Set "%%s"
	)
	Set /A Replace=0

rem Отсутствуют файлы
	Set /A NAbs=0
	FOR %%f IN (%FControl%) DO If Not Exist "%%f" (
		Set /A NAbs+=1
		Call Set "@@NoFile%%NAbs%%=%%~f" 
		Echo File "%%~f" not found
	)
Echo.
rem Отсутствующие файлы запомнили в переменных (если надо)
	If Not %NAbs%==0 (Echo. &Set "@@NoFile")

Echo.
rem 	Удаляем файлы
	FOR %%f IN (%DelFiles%) DO If Exist "%%f" Echo Del "%%~f"

	If /I "%update_installed%"=="true" Call :autoupdate

rem Если какой-то параметр изменился, переписываем config
	If Not %Replace%==0 (
		>"%Config%" (FOR /F "usebackq tokens=1* delims==" %%i IN (`2^>nul  Set "@@Conf"`) DO Echo %%j)
	)

pause
GoTo :Eof

:autoupdate
	Echo Делаем :autoupdate Соответственно указываем, что конфиг изменится
	Call :Replace "update_installed" "false"
Exit /B

:Replace
	FOR /F "usebackq tokens=1,2 delims==" %%i IN (`2^>nul Set "@@Conf"`) DO (
		If /I "%%~j"=="%~1" (Set "%%~i=%%~j=%~2" &Set /A Replace+=1)
	)
Exit /B

Каждой строке конфига соответствует переменная @@Conf1001, @@Conf1002 ...
В конфиге прописываются имена_переменной=значение
При изменении переменной из конфига в функции :Replace соответствующую переменную с префиксом @@Conf записывается измененная строка конфига
При наличии изменённых строк конфиг перепишется
Лишнее отображение информации можно убрать
Путь к конфигу можно указать в аргументе батника. Либо жестко прописать внутри

Пример конфига

Код:

FControl="D:\CMD_Forum\Box_In\3 Box_In.txt" C:\kuku.exe "Z:\Box_In\Errors\исходный файл.TXT" "D:\тра ля ля.doc"
DelFiles="Z:\Soft_Out\190124.csv" "Z:\Soft_Out\190125.csv" "Z:\Soft_Out\190126.csv"
update_installed=true