ComradG
добавил, но не удалил
добавил, но не удалил
» Задачи на bat-файлах 8
Цитата:
wolf0425
Мдееее... Нет, я бы понял, если бы у человека физически не хватало времени...
Mark_Titov
Ты одмином на оффисе работаешь?
...Нет не админом, в том-то и дело что админа нет у нас - уволился, а задача реальная стоит как видите.
Раньше я с такого рода батниками не сталкивался, потому только учусь этому...
Вся система на батниках написана и отлично работает уже, это 3-я версия моя, вот тут поставили задачу шире - на основе этой системы расширить возможности в новой версии.
Предыдущие 2 версии нормально сам сделал, потому как там нет такого сложного для меня кода...
Время есть конечно, но не всегда.
Цитата:
Mark_Titov
Ты прикалываешься?
...Ты знаешь, как-то не до приколов, если честно.
Сначало сам пытаюсь, только потом прошу помощи, что-то самому удается, но пока большинство не очень получается, долго приходится анализировать код, выстраивать логику событий что бы понять действия, самому не нравится что я вас всех напрягаю...
Если, надоел, можете послать, пойму...
Только напишите об этом, что бы я не надеялся...
Спасибо за оказанную помощь...
BagaBaga
Цитата:
Есть разные возможные модификации комстроки, но классической как в примере обычно хватает.
mugil_cephalus
Цитата:
в смысле - пихнуть в шапку уникальную строку со временем с точностью до миллисекунд? А радость то в чем, и чем %random%%random% реально хуже?
Хотя спасибо за способ получения миллисекунд, недавно искал.
и вот скажите мне - а порядок год-месяц-день в выводе wmic - от региональных настроек зависит, или нет?
похоже что нет, так что с универсальным получением текущей даты - разобрались
осталось найчиться дату файлов независимо от настроек определять
ComradG
Цитата:
спишем это на бред, вызванный послеоперационным состоянием. Выздоравливай.
ps: как появится пример, где findstr гасит вывод лучше чем 1>nul - ты его напиши, да?
проверим, раз уж у тебя самого с этим какие-то проблемы
и проверить или правильно догадаться что выведет посоветованная тобой строка
Код: set /p site=<%systemdrive%\IP-AN-80.txt && goto ing-ok | fondstr /i noone
Цитата:
пинг используем в качестве таймера задержки?да, конечно, очень неплохой таймер. Не хуже чем на vbs.
Есть разные возможные модификации комстроки, но классической как в примере обычно хватает.
mugil_cephalus
Цитата:
этот батник и все его копии будут всегда уникальными и без pid
в смысле - пихнуть в шапку уникальную строку со временем с точностью до миллисекунд? А радость то в чем, и чем %random%%random% реально хуже?
Хотя спасибо за способ получения миллисекунд, недавно искал.
и вот скажите мне - а порядок год-месяц-день в выводе wmic - от региональных настроек зависит, или нет?
похоже что нет, так что с универсальным получением текущей даты - разобрались
осталось найчиться дату файлов независимо от настроек определять
ComradG
Цитата:
Нет, уменя всего лишь раковая опухоль (но как видишь еще жив благодаря немецким врачам). И все же я буду настаивать на своем касательно findsrt - это фокус иногда действительно срабатывает, когда не работает 2>nul или 1>nul.
спишем это на бред, вызванный послеоперационным состоянием. Выздоравливай.
ps: как появится пример, где findstr гасит вывод лучше чем 1>nul - ты его напиши, да?
проверим, раз уж у тебя самого с этим какие-то проблемы
и проверить или правильно догадаться что выведет посоветованная тобой строка
Код: set /p site=<%systemdrive%\IP-AN-80.txt && goto ing-ok | fondstr /i noone
Mark_Titov
Вопрос скорее в том, что если для тебя это китайская грамота- так ты хотя бы выкладывай куски кода, в которых затык. Тут скорее отлаживают код, чем пишут... А там, глядишь, и подрастающему поколению будешь передавать секретные заклинания шоманскаго бубна...
Вопрос скорее в том, что если для тебя это китайская грамота- так ты хотя бы выкладывай куски кода, в которых затык. Тут скорее отлаживают код, чем пишут... А там, глядишь, и подрастающему поколению будешь передавать секретные заклинания шоманскаго бубна...
Подскажите, пожалуйста, как можно сделать систему Drag-and-drop. Мне надо перетащить картинку на свой батник и чтобы он начал его обрабатывать.
[more=мой батник]
Код: @echo off
TITLE ImageOptimizer 1.0.1.0 от 10.06.2010
echo Image Optimizer 1.0.1.0 от 10.06.2010
echo Image Optimizer - система оптимизации графических форматов *.png и *.jpg, состоящий из следующих программ:
echo ∙ Advpng (входит в состав AdvanceComp 1.15 от 01.11.2005);
echo ∙ DeflOpt 2.07 от 05.09.2007;
echo ∙ Jhead 2.90 от 05.02.2010;
echo ∙ Jpegtran (входит в состав Libjpeg 8.0 от 10.01.2010);
echo ∙ OptiPng 0.6.4 от 15.03.2010;
echo ∙ PngCrush 1.7.11 от 10.05.2010;
echo ∙ PngOut от 09.06.2010;
echo ∙ PrePng от 17.05.10;
echo ∙ Zlib 1.2.5 от 19.04.2010.
echo Автор не несет ответственность за работу данного приложения.
echo Вы использует данную программу под свой страх и риск.
echo Скопируйте необходимые изображения формата *.png или *.jpg (*.jpeg) в папку "Images" и нажмите на Enter для продолжения.
:png
1>nul 2>nul dir /b /s /a-d Images\*.png || goto:jpeg
:loop1
echo Параметр оптимизации PNG:
echo [1] Noninterlaced
echo [2] Adam7 (Interlaced)
set /p png="Укажите параметр оптимизации PNG и нажмите на Enter: "
if not defined png goto:eof
if %png%==1 goto:Noninterlaced
if %png%==2 goto:Adam7
goto:loop1
:Noninterlaced
echo Noninterlaced
for /f "delims=" %%i in ('dir /b /s /a-d Images\*.png') do (
"%~dp0Docs\prepng.exe" "%%~fi"
call :pngopt "%%~fi"
"%~dp0Docs\advpng.exe" -z -4 "%%~fi"
"%~dp0Docs\deflopt.exe" "%%~fi"
rem "%~dp0Docs\pngcrush.exe" -rem alla -brute -reduce "%%~fi" "%%~dpni.tmp"
rem move /y "%%~dpni.tmp" "%%~fi"
rem "%~dp0Docs\advpng.exe" -z -4 "%%~fi"
rem "%~dp0Docs\deflopt.exe" "%%~fi"
rem "%~dp0Docs\optipng.exe" -i0 -zc1-9 -zm1-9 -zs0-3 -f0-5 "%%~fi"
rem "%~dp0Docs\advpng.exe" -z -4 "%%~fi"
rem "%~dp0Docs\deflopt.exe" "%%~fi"
rem "%~dp0Docs\pngout.exe" "%%~fi"
rem "%~dp0Docs\advpng.exe" -z -4 "%%~fi"
rem "%~dp0Docs\deflopt.exe" "%%~fi"
)
goto:jpeg
:pngopt
"%~dp0Docs\optipng.exe" -i0 -zw32k -zc1-9 -zm1-9 -zs0-3 -f0-5 -full -force %1 > %temp%\png.log
for /f "delims==,IDAT tokens=5" %%i in (%temp%\png.log) do (
set f=%%i
)
set f=%f:~1,1%
del %temp%\png.log
"%~dp0Docs\pngout.exe" /k0 /n2 /f%f% %1
goto:eof
:Adam7
echo Adam7
for /f "delims=" %%i in ('dir /b /s /a-d Images\*.png') do (
"%~dp0Docs\prepng.exe" "%%~fi"
"%~dp0Docs\optipng.exe" -i1 "%%~fi"
"%~dp0Docs\pngcrush.exe" -rem alla -brute -reduce "%%~fi" "%%~dpni.tmp"
move /y "%%~dpni.tmp" "%%~fi"
"%~dp0Docs\advpng.exe" -z -4 "%%~fi"
"%~dp0Docs\deflopt.exe" "%%~fi"
"%~dp0Docs\optipng.exe" -zw32k -zc1-9 -zm1-9 -zs0-3 -f0-5 "%%~fi"
"%~dp0Docs\advpng.exe" -z -4 "%%~fi"
"%~dp0Docs\deflopt.exe" "%%~fi"
)
:jpeg
1>nul 2>nul dir /b /s /a-d Images\*.jpg Images\*.jpeg && goto:loop2
if defined png goto:eof
echo Изображения формата *.png и *.jpg (*.jpeg) в папке "Images" не обнаружены.
echo Нажмите на Enter для выхода из приложения.
pause>nul
goto:eof)
:loop2
echo Параметр оптимизации JPEG:
echo [1] Optimize
echo [2] Progressive
echo [3] Progressive vs. Optimize (сравниваются два файла, полученные разными методами сжатия, и выбирается наименьший из них)
set /p jpeg="Укажите параметр оптимизации JPEG и нажмите на Enter: "
if not defined jpeg goto:eof
if %jpeg%==1 goto:Optimize
if %jpeg%==2 goto:Progressive
if %jpeg%==3 goto:Progressive_Optimize
goto:loop2
:Optimize
echo JPEG - Optimize
for /f "delims=" %%i in ('dir /b /s /a-d Images\*.jpg Images\*.jpeg') do (
"%~dp0Docs\jpegtran.exe" -copy all -optimize "%%~fi" "%%~fi"
"%~dp0Docs\jhead.exe" -dc -de -di -dx -du "%%~fi"
)
goto:eof
:Progressive
echo JPEG - Progressive
for /f "delims=" %%i in ('dir /b /s /a-d Images\*.jpg Images\*.jpeg') do (
"%~dp0Docs\jpegtran.exe" -copy all -progressive "%%~fi" "%%~fi"
"%~dp0Docs\jhead.exe" -dc -de -di -dx -du "%%~fi"
)
goto:eof
:Progressive_Optimize
echo JPEG - Progressive vs. Optimize
for /f "delims=" %%i in ('dir /b /s /a-d Images\*.jpg Images\*.jpeg') do (
"%~dp0Docs\jpegtran.exe" -copy all -progressive "%%~fi" "%%~dpni_pro.tmp"
"%~dp0Docs\jpegtran.exe" -copy all -optimize "%%~fi" "%%~dpni_opt.tmp"
call :compare "%%~dpni_pro.tmp" "%%~dpni_opt.tmp" "%%~fi" "%%~nxi"
"%~dp0Docs\jhead.exe" -dc -de -di -dx -du "%%~fi"
)
goto:eof
:compare
if %~z1 LSS %~z2 (
DEL /F /Q %2
DEL /F /Q %3
REN %1 %4
) else (
DEL /F /Q %1
DEL /F /Q %3
REN %2 %4
)
goto:eof
[more=мой батник]
Код: @echo off
TITLE ImageOptimizer 1.0.1.0 от 10.06.2010
echo Image Optimizer 1.0.1.0 от 10.06.2010
echo Image Optimizer - система оптимизации графических форматов *.png и *.jpg, состоящий из следующих программ:
echo ∙ Advpng (входит в состав AdvanceComp 1.15 от 01.11.2005);
echo ∙ DeflOpt 2.07 от 05.09.2007;
echo ∙ Jhead 2.90 от 05.02.2010;
echo ∙ Jpegtran (входит в состав Libjpeg 8.0 от 10.01.2010);
echo ∙ OptiPng 0.6.4 от 15.03.2010;
echo ∙ PngCrush 1.7.11 от 10.05.2010;
echo ∙ PngOut от 09.06.2010;
echo ∙ PrePng от 17.05.10;
echo ∙ Zlib 1.2.5 от 19.04.2010.
echo Автор не несет ответственность за работу данного приложения.
echo Вы использует данную программу под свой страх и риск.
echo Скопируйте необходимые изображения формата *.png или *.jpg (*.jpeg) в папку "Images" и нажмите на Enter для продолжения.
:png
1>nul 2>nul dir /b /s /a-d Images\*.png || goto:jpeg
:loop1
echo Параметр оптимизации PNG:
echo [1] Noninterlaced
echo [2] Adam7 (Interlaced)
set /p png="Укажите параметр оптимизации PNG и нажмите на Enter: "
if not defined png goto:eof
if %png%==1 goto:Noninterlaced
if %png%==2 goto:Adam7
goto:loop1
:Noninterlaced
echo Noninterlaced
for /f "delims=" %%i in ('dir /b /s /a-d Images\*.png') do (
"%~dp0Docs\prepng.exe" "%%~fi"
call :pngopt "%%~fi"
"%~dp0Docs\advpng.exe" -z -4 "%%~fi"
"%~dp0Docs\deflopt.exe" "%%~fi"
rem "%~dp0Docs\pngcrush.exe" -rem alla -brute -reduce "%%~fi" "%%~dpni.tmp"
rem move /y "%%~dpni.tmp" "%%~fi"
rem "%~dp0Docs\advpng.exe" -z -4 "%%~fi"
rem "%~dp0Docs\deflopt.exe" "%%~fi"
rem "%~dp0Docs\optipng.exe" -i0 -zc1-9 -zm1-9 -zs0-3 -f0-5 "%%~fi"
rem "%~dp0Docs\advpng.exe" -z -4 "%%~fi"
rem "%~dp0Docs\deflopt.exe" "%%~fi"
rem "%~dp0Docs\pngout.exe" "%%~fi"
rem "%~dp0Docs\advpng.exe" -z -4 "%%~fi"
rem "%~dp0Docs\deflopt.exe" "%%~fi"
)
goto:jpeg
:pngopt
"%~dp0Docs\optipng.exe" -i0 -zw32k -zc1-9 -zm1-9 -zs0-3 -f0-5 -full -force %1 > %temp%\png.log
for /f "delims==,IDAT tokens=5" %%i in (%temp%\png.log) do (
set f=%%i
)
set f=%f:~1,1%
del %temp%\png.log
"%~dp0Docs\pngout.exe" /k0 /n2 /f%f% %1
goto:eof
:Adam7
echo Adam7
for /f "delims=" %%i in ('dir /b /s /a-d Images\*.png') do (
"%~dp0Docs\prepng.exe" "%%~fi"
"%~dp0Docs\optipng.exe" -i1 "%%~fi"
"%~dp0Docs\pngcrush.exe" -rem alla -brute -reduce "%%~fi" "%%~dpni.tmp"
move /y "%%~dpni.tmp" "%%~fi"
"%~dp0Docs\advpng.exe" -z -4 "%%~fi"
"%~dp0Docs\deflopt.exe" "%%~fi"
"%~dp0Docs\optipng.exe" -zw32k -zc1-9 -zm1-9 -zs0-3 -f0-5 "%%~fi"
"%~dp0Docs\advpng.exe" -z -4 "%%~fi"
"%~dp0Docs\deflopt.exe" "%%~fi"
)
:jpeg
1>nul 2>nul dir /b /s /a-d Images\*.jpg Images\*.jpeg && goto:loop2
if defined png goto:eof
echo Изображения формата *.png и *.jpg (*.jpeg) в папке "Images" не обнаружены.
echo Нажмите на Enter для выхода из приложения.
pause>nul
goto:eof)
:loop2
echo Параметр оптимизации JPEG:
echo [1] Optimize
echo [2] Progressive
echo [3] Progressive vs. Optimize (сравниваются два файла, полученные разными методами сжатия, и выбирается наименьший из них)
set /p jpeg="Укажите параметр оптимизации JPEG и нажмите на Enter: "
if not defined jpeg goto:eof
if %jpeg%==1 goto:Optimize
if %jpeg%==2 goto:Progressive
if %jpeg%==3 goto:Progressive_Optimize
goto:loop2
:Optimize
echo JPEG - Optimize
for /f "delims=" %%i in ('dir /b /s /a-d Images\*.jpg Images\*.jpeg') do (
"%~dp0Docs\jpegtran.exe" -copy all -optimize "%%~fi" "%%~fi"
"%~dp0Docs\jhead.exe" -dc -de -di -dx -du "%%~fi"
)
goto:eof
:Progressive
echo JPEG - Progressive
for /f "delims=" %%i in ('dir /b /s /a-d Images\*.jpg Images\*.jpeg') do (
"%~dp0Docs\jpegtran.exe" -copy all -progressive "%%~fi" "%%~fi"
"%~dp0Docs\jhead.exe" -dc -de -di -dx -du "%%~fi"
)
goto:eof
:Progressive_Optimize
echo JPEG - Progressive vs. Optimize
for /f "delims=" %%i in ('dir /b /s /a-d Images\*.jpg Images\*.jpeg') do (
"%~dp0Docs\jpegtran.exe" -copy all -progressive "%%~fi" "%%~dpni_pro.tmp"
"%~dp0Docs\jpegtran.exe" -copy all -optimize "%%~fi" "%%~dpni_opt.tmp"
call :compare "%%~dpni_pro.tmp" "%%~dpni_opt.tmp" "%%~fi" "%%~nxi"
"%~dp0Docs\jhead.exe" -dc -de -di -dx -du "%%~fi"
)
goto:eof
:compare
if %~z1 LSS %~z2 (
DEL /F /Q %2
DEL /F /Q %3
REN %1 %4
) else (
DEL /F /Q %1
DEL /F /Q %3
REN %2 %4
)
goto:eof
Цитата:
Подскажите, пожалуйста, как можно сделать систему Drag-and-drop. Мне надо перетащить картинку на свой батник и чтобы он начал его обрабатывать.перетащенный файл - это %1
wolf0425
Цитата:
можно поподробнее?
Цитата:
перетащенный файл - это %1
можно поподробнее?
Цитата:
именно. переключить консоль в 1251 кодировку и выкинуть iconv нафиг - какие-то проблемы?
Цитата:
фонт консоли (в заголовке окна или в ярлыке) на уникодный переключаешь - и корректные русские сообщения корректно видишь и в 866 и в 1251
wolf0425, попробовал свой код таким образом. Когда запускаешь просто батник - все ОК, когда "компилируешь" с помощью Quick Batch File Compiler, то при работе выдает кракозябры. Понять бы почему... Так что оставил с iconv. Как и подсказали:
Цитата:
date /t| 1>>Logs\consupdate.%startdate%.log "%MyFiles%\iconv.exe" -c -s -f 866 -t WINDOWS-1251
Пока на Win 2000 не проверял...
Цитата:
тем более что и в примере и date /t и time /t вообще букв не выводят ни в какой кодировке, только цифры - зачем их то перекодировать?
Обнаружил, что у некоторых (видимо, из-за региональных настроек) перед датой добавляется день недели, естественно русскими буквами...
Цитата:
только не уверен что на win2k reg.exe уже был, как бы не начиная с ХР утилита
Точно, по умолчанию в Win 2000 reg.exe не установлен, но устанавливается из Resource Kit, однако такой возможности нет... Правда где-то читал, что эта утилитка от XP прекрасно работает в 2000 без всяких специальных установок...
Цитата:
можно поподробнее?
в начало батника дописываешь
Код: echo file=%1
pause
wolf0425
us0r
...Ну вообщем, попробовал так -
if not %systemdrive%\AN-80\%%a\Monthly-report.txt goto :ping-ok - ПРОВЕРЯЕМ СУЩЕСТВОВАНИЕ Monthly-report.txt, ЕСЛИ ЕГО НЕТ, ЗНАЧИТ ЭТО ВООБЩЕ ПЕРВЫЙ ЗАПУСК И ОТСЫЛАТЬ ПУСТОЕ ПИСЬМО НЕ НУЖНО - ИДЕМ НА :ping-ok
ЕСЛИ ЖЕ ОН СУЩЕСТВУЕТ, ТО ЗНАЧИТ ЗАПУСК НЕ ПЕРВЫЙ И СТОИТ ПРОВЕРИТЬ НЕ НАЧАЛСЯ ЛИ НОВЫЙ МЕСЯЦ ДЛЯ ТОГО ЧТО БЫ ОТОСЛАТЬ МЕСЯЧНЫЙ ОТЧЕТ - ИДЕМ НА -
>nul MD "%systemdrive%\AN-80\%mes%\" && goto :htm - ПЫТАЕМСЯ СОЗДАТЬ ПАПКУ НОВОГО МЕСЯЦА - ЕСЛИ НЕ ПОЛУЧИЛОСЬ И ОНА УЖЕ ЕСТЬ, ТО ЗНАЧИТ НОВЫЙ МЕСЯЦ ЕЩЕ НЕ НАЧАЛСЯ И КОД ПРОПУСКАЕТ НА :ping-ok ПРОДОЛЖАЯ ПИНГОВАТЬ, ЕСЛИ ПАПКА УСПЕШНО СОЗДАЛАСЬ, ТО ЗНАЧИТ НАЧАЛСЯ НОВЫЙ МЕСЯЦ И КОД ОТПРАВЛЯЕТ НАС НА :htm
ВООБШЕМ Я ТАК ВСЕ ЭТО СЕБЕ ПРЕДСТАВЛЯЮ, НО ПОЧЕМУ-ТО БАТНИК НЕ ЗАПУСКАЕТСЯ ИЗ-ЗА if not %systemdrive%\AN-80\%%a\Monthly-report.txt goto :ping-ok КОМЕНТИРУЮ ЕЕ - ЗАПУСКАЕТСЯ...
Код: @echo off
:ping
cls
set /a day_sum=0
set /a day_count=0
set /a mes_sum=0
set /a mes_count=0
set /a count=count+1
Title Pinging number %count%
if exist %systemdrive%\AN-80\%%a\Monthly-report.txt goto :ping-ok
>nul MD "%systemdrive%\AN-80\%mes%\" && goto :htm
(set /p site=<%systemdrive%\IP-AN-80.txt) 2>nul && goto :ping-ok else goto :mail-error
:ping-ok
set "mes=%date:~-7%"
2>nul MD "%systemdrive%\AN-80\%mes%\%date%"
set "Log=%systemdrive%\AN-80\%mes%\%date%\log.txt"
1>nul 2>&1 MD "%systemdrive%\AN-80\%mes%\%date%"
set "Log=%systemdrive%\AN-80\%mes%\%date%\log.txt"
for /f "tokens=2 delims=()" %%a in ('ping -n 4 %site%') do 1>>%log% echo.%date% %time:~,8% %%a
for /f "tokens=3 delims=%% " %%a in (%systemdrive%\AN-80\%mes%\%date%\log.txt) do set /a day_sum += %%a*100 & set /a day_count += 1
set /a day_average=(%day_sum%)/(%day_count%) +10000
set /a day_average_int = %day_average:~0,-2% -100
1>%systemdrive%\AN-80\%mes%\Monthly-report.txt echo.СРЕДНЕ-АРИФМЕТИЧЕСКИЙ ПРОЦЕНТ ПОТЕРИ СВЯЗИ ЗА %mes%
1>>%systemdrive%\AN-80\%mes%\Monthly-report.txt echo --------------------------------------------------------------------------
1>>%systemdrive%\AN-80\%mes%\Monthly-report.txt echo.
1>%systemdrive%\AN-80\%mes%\%date%\Daily-report.txt echo Средне-арифметический процент потери связи за %date% составил - %day_average_int%.%day_average:~-2%%%
for /f "delims=" %%a in ('dir /b /s %systemdrive%\AN-80\%mes%\Daily-report.txt') do type %%~fa 1>> %systemdrive%\AN-80\%mes%\Monthly-report.txt
for /f "tokens=9 delims=%% " %%a in (%systemdrive%\AN-80\%mes%\Monthly-report.txt) do set "mes_tmp=%%a" & set /a mes_count += 1 & call set /a mes_sum += %%mes_tmp:.=%%
set /a mes_average=(%mes_sum%)/(%mes_count%)+10000
set /a mes_average_int=%mes_average:~0,-2%-100
set mes_
1>> %systemdrive%\AN-80\%mes%\Monthly-report.txt (
echo.
echo --------------------------------------------------------------------------
echo Средне-арифметический процент потери связи за %mes% составляет - %mes_average_int%.%mes_average:~-2%%%
)
sleep 5
goto :ping
:htm
СДЕСЬ ФОРМИРОВАНИЕ ОТЧЕТА И КОПИРОВАНИЕ В НЕГО Monthly-report.txt....
us0r
...Ну вообщем, попробовал так -
if not %systemdrive%\AN-80\%%a\Monthly-report.txt goto :ping-ok - ПРОВЕРЯЕМ СУЩЕСТВОВАНИЕ Monthly-report.txt, ЕСЛИ ЕГО НЕТ, ЗНАЧИТ ЭТО ВООБЩЕ ПЕРВЫЙ ЗАПУСК И ОТСЫЛАТЬ ПУСТОЕ ПИСЬМО НЕ НУЖНО - ИДЕМ НА :ping-ok
ЕСЛИ ЖЕ ОН СУЩЕСТВУЕТ, ТО ЗНАЧИТ ЗАПУСК НЕ ПЕРВЫЙ И СТОИТ ПРОВЕРИТЬ НЕ НАЧАЛСЯ ЛИ НОВЫЙ МЕСЯЦ ДЛЯ ТОГО ЧТО БЫ ОТОСЛАТЬ МЕСЯЧНЫЙ ОТЧЕТ - ИДЕМ НА -
>nul MD "%systemdrive%\AN-80\%mes%\" && goto :htm - ПЫТАЕМСЯ СОЗДАТЬ ПАПКУ НОВОГО МЕСЯЦА - ЕСЛИ НЕ ПОЛУЧИЛОСЬ И ОНА УЖЕ ЕСТЬ, ТО ЗНАЧИТ НОВЫЙ МЕСЯЦ ЕЩЕ НЕ НАЧАЛСЯ И КОД ПРОПУСКАЕТ НА :ping-ok ПРОДОЛЖАЯ ПИНГОВАТЬ, ЕСЛИ ПАПКА УСПЕШНО СОЗДАЛАСЬ, ТО ЗНАЧИТ НАЧАЛСЯ НОВЫЙ МЕСЯЦ И КОД ОТПРАВЛЯЕТ НАС НА :htm
ВООБШЕМ Я ТАК ВСЕ ЭТО СЕБЕ ПРЕДСТАВЛЯЮ, НО ПОЧЕМУ-ТО БАТНИК НЕ ЗАПУСКАЕТСЯ ИЗ-ЗА if not %systemdrive%\AN-80\%%a\Monthly-report.txt goto :ping-ok КОМЕНТИРУЮ ЕЕ - ЗАПУСКАЕТСЯ...
Код: @echo off
:ping
cls
set /a day_sum=0
set /a day_count=0
set /a mes_sum=0
set /a mes_count=0
set /a count=count+1
Title Pinging number %count%
if exist %systemdrive%\AN-80\%%a\Monthly-report.txt goto :ping-ok
>nul MD "%systemdrive%\AN-80\%mes%\" && goto :htm
(set /p site=<%systemdrive%\IP-AN-80.txt) 2>nul && goto :ping-ok else goto :mail-error
:ping-ok
set "mes=%date:~-7%"
2>nul MD "%systemdrive%\AN-80\%mes%\%date%"
set "Log=%systemdrive%\AN-80\%mes%\%date%\log.txt"
1>nul 2>&1 MD "%systemdrive%\AN-80\%mes%\%date%"
set "Log=%systemdrive%\AN-80\%mes%\%date%\log.txt"
for /f "tokens=2 delims=()" %%a in ('ping -n 4 %site%') do 1>>%log% echo.%date% %time:~,8% %%a
for /f "tokens=3 delims=%% " %%a in (%systemdrive%\AN-80\%mes%\%date%\log.txt) do set /a day_sum += %%a*100 & set /a day_count += 1
set /a day_average=(%day_sum%)/(%day_count%) +10000
set /a day_average_int = %day_average:~0,-2% -100
1>%systemdrive%\AN-80\%mes%\Monthly-report.txt echo.СРЕДНЕ-АРИФМЕТИЧЕСКИЙ ПРОЦЕНТ ПОТЕРИ СВЯЗИ ЗА %mes%
1>>%systemdrive%\AN-80\%mes%\Monthly-report.txt echo --------------------------------------------------------------------------
1>>%systemdrive%\AN-80\%mes%\Monthly-report.txt echo.
1>%systemdrive%\AN-80\%mes%\%date%\Daily-report.txt echo Средне-арифметический процент потери связи за %date% составил - %day_average_int%.%day_average:~-2%%%
for /f "delims=" %%a in ('dir /b /s %systemdrive%\AN-80\%mes%\Daily-report.txt') do type %%~fa 1>> %systemdrive%\AN-80\%mes%\Monthly-report.txt
for /f "tokens=9 delims=%% " %%a in (%systemdrive%\AN-80\%mes%\Monthly-report.txt) do set "mes_tmp=%%a" & set /a mes_count += 1 & call set /a mes_sum += %%mes_tmp:.=%%
set /a mes_average=(%mes_sum%)/(%mes_count%)+10000
set /a mes_average_int=%mes_average:~0,-2%-100
set mes_
1>> %systemdrive%\AN-80\%mes%\Monthly-report.txt (
echo.
echo --------------------------------------------------------------------------
echo Средне-арифметический процент потери связи за %mes% составляет - %mes_average_int%.%mes_average:~-2%%%
)
sleep 5
goto :ping
:htm
СДЕСЬ ФОРМИРОВАНИЕ ОТЧЕТА И КОПИРОВАНИЕ В НЕГО Monthly-report.txt....
Mark_Titov а теперь процитируй что я тебе писал что и куда вписать по этому поводу и расскажи какое слово тебе непонятно.
Добавлено:
Цитата:
и ответь на свой вопрос нам- чтоб было видно что ты читаешь.
И не капси больше.
Добавлено:
Цитата:
ВООБШЕМ Я ТАК ВСЕ ЭТО СЕБЕ ПРЕДСТАВЛЯЮ, НО ПОЧЕМУ-ТО БАТНИК НЕ ЗАПУСКАЕТСЯ ИЗ-ЗА if not %systemdrive%\AN-80\%%a\Monthly-report.txt gotoпрочитай if /?ing-ok КОМЕНТИРУЮ ЕЕ - ЗАПУСКАЕТСЯ...
и ответь на свой вопрос нам- чтоб было видно что ты читаешь.
И не капси больше.
wolf0425
Цитата:
Ну вроде так и делаю - проверка Monthly-report, но где косяк в команде?
Или я совсем не понял тебя?
Цитата:
а проверить что mes_log или как там называлась переменная с именем лога в том куске кода что ты поскипал во что-то установлена при поиске последнего Monthly-report - религия не позволяет?
Ну вроде так и делаю - проверка Monthly-report, но где косяк в команде?
Или я совсем не понял тебя?
Mark_Titov намек:
Цитата:
Цитата:
в том куске кода что ты поскипал
wolf0425
Цитата:
Чтобы проверить существование файла, достаточно воспользоваться синтаксисом следующего вида.
if [not] exist имя_файла команда
...так и пишу же.
Добавлено:
поскипал???
Цитата:
прочитай if /?
и ответь на свой вопрос нам- чтоб было видно что ты читаешь.
Чтобы проверить существование файла, достаточно воспользоваться синтаксисом следующего вида.
if [not] exist имя_файла команда
...так и пишу же.
Добавлено:
поскипал???
Цитата:
проверить что mes_log или как там называлась переменная во что-то установлена
Добавлено:
Цитата:
...так и пишу же.и где в написанном exist?
тем более что проверять я тебе говорил не файл, а саму переменную
Добавлено:
Цитата:
поскипал???значение жаргонного глагола поскипать - в яндексе.
намек: батник ты привел не весь, и место куда надо вставлять проверку - в приведенной части отсутсвует
...так в мане было написано -
if [not] exist имя_файла команда - Если файл существует (не существует), выполнить данную команду.
Я решил что оставить только нужное...
Я ступил да?
if [not] exist имя_файла команда - Если файл существует (не существует), выполнить данную команду.
Я решил что оставить только нужное...
Я ступил да?
Цитата:
Я решил что оставить только нужное...ступил - в [] заключают необязательный параметр, остальное -всё нужное для этой команды.
Я ступил да?
сама команды тут бесполезна, но это другой вопрос
Mark_Titov
Цитата:
Это что такое? А ну ка по быстрому читать if /?
Цитата:
if not %systemdrive%\AN-80\%%a\Monthly-report.txt goto
Это что такое? А ну ка по быстрому читать if /?
Цитата:
Title Pinging number %count%
if exist %systemdrive%\AN-80\%%a\Monthly-report.txt goto
заметим, что %%a в этом месте кода не равна ничему.
и %mes% - при первом проходе тоже...
а основной код мне проверять после твоей правки уже лень, только вижу что это не тот код, что я тебе писал в последний раз. но если он работает- так и фиг с ним.
строка MD "%systemdrive%\AN-80\%mes%\%date%"
фигурирует дважды - наверно на случай если с первого раза не создался?
Цитата:
а основной код мне проверять после твоей правки уже лень...
MD "%systemdrive%\AN-80\%mes%\%date%"
фигурирует дважды - наверно на случай если с первого раза не создался?
...эту часть кода полностью ты переписывал.
Единственное что я сделал из твоей части кода - я вынес от туда строку -
Код: >nul MD "%systemdrive%\AN-80\%mes%\" && goto :htm
wolf0425
а этот способ работает если перенести несколько картинок одновременно или папки, в которых лежат картинки?
а этот способ работает если перенести несколько картинок одновременно или папки, в которых лежат картинки?
Цитата:
...эту часть кода полностью ты переписывал.так я потом еще раз переписывал.
Добавлено:
Цитата:
а этот способ работает если перенести несколько картинок одновременно или папки, в которых лежат картинки?да без понятия. проверь.
при переносе папки должно и передаваться имя папки,
при переносе более одного файла - наверно оставшиеся передадутся как %2 и так далее.
wolf0425
...ну я могу, расчитывать на помощь?
...ну я могу, расчитывать на помощь?
wolf0425
Цитата:
пробую, но у меня не выходит
Ты бы не мог показать на моем коде?
Цитата:
да без понятия. проверь
пробую, но у меня не выходит
Ты бы не мог показать на моем коде?
Mark_Titov а я что тут - один что-ли?
пиши, задавай внятные вопросы что не получается, будешь стараться - будут ответы.
посылать читать if /? - радости особой нет
Добавлено:
Цитата:
пиши, задавай внятные вопросы что не получается, будешь стараться - будут ответы.
посылать читать if /? - радости особой нет
Добавлено:
Цитата:
Ты бы не мог показать на моем коде?а что показывать на твоем коде? у тебя там принудительно обрабатывается содержимое какой-то папки, входные параметры коду совершенно неинтересны, и даже хэлп с ошибками в коде... (ты что - вебпрограммист, что-ли?)
Цитата:
пиши, задавай внятные вопросы что не получается, будешь стараться - будут ответы.
...так я уже и код скинул же.
Цитата:
...так я уже и код скинул же.так не стараешься.
русским языком повторяю:
в ту часть кода где устанавливается mes_log на самый последний файл надо влепить проверку что после сканирования всех директорий mes_log во что-то установился перед тем как файл вписывать в .htm и отправлять. Если не установился - ничего не вписываем/отправляем.
Эту часть кода ты упорно НЕ приводишь.
Как проверять наличие/отсутствие переменной - примеров на последних трех страницах форума - дофига, и тебе конкретно на этот вопрос отвечали, хоть и не в тему, файл- проверять не нужно, нужно сравнить саму mes_log что не пустая
wolf0425
Цитата:
а как можно связать, чтобы он получал данные из папки и через Drag-and-drop?
Цитата:
а что за ошибки, можно поподробнее?
Цитата:
да нет, просто изучаю способы оптимизации картинок, и хочу все это дело объединить.
Цитата:
а что показывать на твоем коде? у тебя там принудительно обрабатывается содержимое какой-то папки, входные параметры коду совершенно неинтересны,
а как можно связать, чтобы он получал данные из папки и через Drag-and-drop?
Цитата:
и даже хэлп с ошибками в коде...
а что за ошибки, можно поподробнее?
Цитата:
(ты что - вебпрограммист, что-ли?)
да нет, просто изучаю способы оптимизации картинок, и хочу все это дело объединить.
Цитата:
а что за ошибки, можно поподробнее?а ты запусти и посмотри что пишет. ругается на ошибки...
Цитата:
а как можно связать, чтобы он получал данные из папки и через Drag-and-drop?хочешь что чего? чтоб если не д/д то шел папку конвертил, а если д/д - то папку игнорировал?
Добавлено:
Цитата:
да нет, просто изучаю способы оптимизации картинокэто я по поводу ошибок, конкретно намекал
lorents
Цитата:
Работает.
:hj
echo %1
shift
goto :hj
Тему твою я не догнал, кому эти картинки нужны.
Цитата:
а этот способ работает если перенести несколько картинок одновременно или папки, в которых лежат картинки?
Работает.
:hj
echo %1
shift
goto :hj
Тему твою я не догнал, кому эти картинки нужны.
Страницы: 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132
Предыдущая тема: XP не видит второй раздел на съемном USB-HDD
Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.