Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Сценарии для Windows

Модерирует : KLASS, IFkO

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225

Открыть новую тему     Написать ответ в эту тему

KLASS



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Старые и смежные темы: по CMD и в Программах | по PowerShell | В помощь системному администратору | Прикладное программирование

PowerShell
Версии | Ассоциация и подпись сценариев
Сценарий для ассоциации файлов PowerShell и запуска неподписанных скриптов.
 
Прочее
Расширение возможностей
Функции
Write-Color
Output-DebugString
Провайдеры
Готовые скрипты
Полезные ссылки | Будет ли репозиторий PowerShell на ru-board?
Книги в PDF
Cheat Sheets
 

Cmd
Для перекодирования кириллицы 866<—>1251 пользуйтесь онлайн сервисом Перекодировщик кириллицы
 
Готовые решения и частые вопросы
 
Описания работы команд и символов участниками темы:
setlocal enabledelayedexpansion и переменные окружения
символы & и && в командной строке
Переменная %0
 
Полезные ссылки и утилиты

WSH (VBScript, JScript)
Программирование "удобняшек" на VBScript

Примечания:
• Большие куски кода заключайте в тэг [ more ]
• Чтобы не копировались концевые пробелы из форума, жмите на ссылку "Редактировать" в посте, и уже из редактора копируйте код без пробелов иначе сценарий может работать неправильно. Также для удаления концевых пробелов пользуйтесь скриптом от Nagual, или VBS-Скрипт-Модулем от ViSiToR.
• Сторонние консольные утилиты можно использовать только в виде готового решения и только в рамках сценариев. Никаких обсуждений и обучений работе с утилитами не предусмотрено и прямо запрещено правилами топика.
Шапка и около-темные вопросы |

Всего записей: 11062 | Зарегистр. 12-10-2001 | Отправлено: 13:40 17-02-2018 | Исправлено: YuS 2, 08:24 19-06-2021
Falcon99



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Возможно теряется при отправке через систему электронного документооборота, хотя и на почту периодически такие файлы "падают", из одной и той же организации.

Всего записей: 607 | Зарегистр. 12-10-2005 | Отправлено: 13:46 06-08-2018
farag



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Возможно теряется при отправке

Это все крайне аномально. Я бы разобрался с такими приключениями.

Всего записей: 2474 | Зарегистр. 27-07-2009 | Отправлено: 15:06 06-08-2018
Falcon99



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
На отправителей влияния не имею, поэтому просто надо переименовывать файлы.

Всего записей: 607 | Зарегистр. 12-10-2005 | Отправлено: 15:33 06-08-2018
NIKZZZZ



Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Falcon99

Код:
@echo off
>nul chcp 1251
:loop
if "%~1" == "" chcp 866 & exit /b
if /i not "%~x1"==".doc" goto loop
<"%~1"  set /p xx=
if not "%xx:~0,2%"=="PK" goto loop  
rename "%~1" "%~1x"
shift
goto loop


Всего записей: 5365 | Зарегистр. 08-02-2006 | Отправлено: 16:00 06-08-2018 | Исправлено: NIKZZZZ, 16:01 06-08-2018
Falcon99



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
<"%~1"  set /p xx=

 
NIKZZZZ, я правильно понимаю что этой строчкой мы в переменную xx записываем содержимое файла? И если да, не будет ли ошибкой если использовать строку вида:
 

Код:
set /p xx=< "%~1"


Всего записей: 607 | Зарегистр. 12-10-2005 | Отправлено: 17:14 06-08-2018 | Исправлено: Falcon99, 17:27 06-08-2018
NIKZZZZ



Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Falcon99

Цитата:
я правильно понимаю что этой строчкой мы в переменную xx записываем содержимое файла?

Да, но файл в переменную будет считан не полностью, до первого управляющего символа - перевод строки, возврат каретки, nul и т.п.
Даже, если эти символы не встретятся, будет прочитано примерно 8190 символов, остальные проигнорируются, а так, как нас интересует только два первых, на это можно наплевать, размер обрабатываемого файла может быть любым.  
 
Добавлено:

Цитата:
И если да, не будет ли ошибкой если использовать строку вида:

Только тогда уж так, это более корректно, хотя может и Ваш пример проскочет.

Код:
Set /p xx= <"%~1"  

Всего записей: 5365 | Зарегистр. 08-02-2006 | Отправлено: 17:30 06-08-2018
Falcon99



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Да, но файл в переменную будет считан не полностью, до первого управляющего символа - перевод строки, возврат каретки, nul и т.п.
Даже, если эти символы не встретятся, будет прочитано примерно 8190 символов, остальные проигнорируются, а так, как нас интересует только два первых, на это можно наплевать, размер обрабатываемого файла может быть любым.  

 
Извините что стер, с этой частью разобрался, прочитав в другом месте.
 
NIKZZZZ, как всегда спасибо за развернутый ответ.  

Всего записей: 607 | Зарегистр. 12-10-2005 | Отправлено: 17:41 06-08-2018
farag



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Я туплю. Как сделать по нажатию на y копировать одни dll, а по нажатию на n ко пировать другие?
сам догнал

Код:
 
@echo off
echo.
echo y to copy PYG.dll and version.dll
echo n to copy uxtheme.dll, uxtheme.dll and winmm.dll
echo.
 
set /p q="Type letter> "
if /i "%q%"=="y" goto roceed1
if /i "%q%"=="n" goto roceed2
goto :end
 
roceed1
robocopy "%~dp0." "%ProgramFiles(x86)%\ABBYY FineReader 14" PYG.dll
robocopy "%~dp0." "%ProgramFiles(x86)%\ABBYY FineReader 14" version.dll
goto :end
 
roceed2
robocopy "%~dp0." "%ProgramFiles(x86)%\ABBYY FineReader 14" msimg32.dll
robocopy "%~dp0." "%ProgramFiles(x86)%\ABBYY FineReader 14" uxtheme.dll
robocopy "%~dp0." "%ProgramFiles(x86)%\ABBYY FineReader 14" winmm.dll
 
:end
pause
 

Всего записей: 2474 | Зарегистр. 27-07-2009 | Отправлено: 12:25 10-08-2018 | Исправлено: farag, 12:55 10-08-2018
NIKZZZZ



Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
farag
Для выбора удобнее использовать Choice, там возможностей побольше.

Всего записей: 5365 | Зарегистр. 08-02-2006 | Отправлено: 19:31 10-08-2018
farag



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NIKZZZZ
К сожалению, я даже взломать не смог на виртуалке FineReader. Так что все попусто )).

Всего записей: 2474 | Зарегистр. 27-07-2009 | Отправлено: 13:52 11-08-2018
AntoshAReal



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте!
Прошу подсказать как можно сделать что-то со всеми файлами во всех папках, но имя папки может быть разным и количество, и имя неизветно, например:
 
mklink "C:\Program Files\Corel\*\Config\BarCodeEater.ini" "\\10.15.0.10\Production\CorelScripts\BarCodeEater.ini"
 
Соответсвенно не работает, но нужно именно линковать эти файлы.
Была мысля сделать через for, но не осилил логику.

 
 

Код:
 
@echo off
cd "%~dp0"
 
for /f "tokens=*" %%a in ('dir /b /s /o:n "%PROGRAMFILES%\Corel\GMS"') do (
echo Работаем относительно пути: "%%a"
echo.
erase "%%a\..\..\Config\BarCodeEater.ini"
erase "%%a\..\..\Draw\GMS\ImportFromBarcode2.gms"
mklink "%%a\..\..\Config\BarCodeEater.ini" "\\10.15.0.10\Production\CorelScripts\BarCodeEater.ini"
mklink "%%a\..\..\Draw\GMS\ImportFromBarcode2.gms" "\\10.15.0.10\Production\CorelScripts\ImportFromBarcode2.gms"
echo.
echo.
echo ----------
)
 
mkdir "C:\Folder"
for %%L in (
"C:\Folder"
) do cacls %%L /T /E /P SYSTEM:F BUILTIN\Администраторы:F "Опытные пользователи":F BUILTIN\Пользователи:F СОЗДАТЕЛЬ-ВЛАДЕЛЕЦ:F
echo ----------
echo.
pause
 
 
 
 

Всего записей: 305 | Зарегистр. 31-08-2005 | Отправлено: 10:09 16-08-2018 | Исправлено: AntoshAReal, 11:38 16-08-2018
farag



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
 
((Get-ChildItem -Path D:\1).Name -notlike '*en*') | ForEach-Object {Remove-Item -Force}
 

Как передать имя файла целиком, чтобы после отсеивания он был удален?

Всего записей: 2474 | Зарегистр. 27-07-2009 | Отправлено: 14:49 16-08-2018
Smitis



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
farag
Если так?

Код:
Get-ChildItem -Path D:\1 | Where-Object {$_.Name -notlike '*en*'} | ForEach-Object {Remove-Item -Force}

или использовать exclude

Код:
Get-ChildItem -Path D:\1 -Exclude '*en*' | foreach .......


----------
Разум когда-нибудь победит

Всего записей: 3179 | Зарегистр. 09-02-2003 | Отправлено: 16:01 16-08-2018 | Исправлено: Smitis, 16:03 16-08-2018
farag



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Where-Object {$_.Name

Да, спасибо, это я знаю. Но с конструкцией ().Name можно как-то вынести переменную? Это я не в курсе.

Всего записей: 2474 | Зарегистр. 27-07-2009 | Отправлено: 17:02 16-08-2018 | Исправлено: farag, 17:05 16-08-2018
YuS_2



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
farag

Цитата:
Но с конструкцией ().Name можно как-то вынести переменную?

Нет. Результат этой конструкции - массив имен файлов отфильтрованных по условию...

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 17:59 16-08-2018
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Del

Всего записей: 3504 | Зарегистр. 16-08-2012 | Отправлено: 18:01 16-08-2018 | Исправлено: iNNOKENTIY21, 18:03 16-08-2018
Smitis



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
farag
Тогда использовать FullName, а вместо notlike проверять через notmatch как-нибудь так "\\[^\\]*en[^\\]*$" (тут провериться и расширение)

----------
Разум когда-нибудь победит

Всего записей: 3179 | Зарегистр. 09-02-2003 | Отправлено: 18:09 16-08-2018
farag



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Делаю батник

Код:
 
PowerShell -NoProfile -ExecutionPolicy Unrestricted -Command "& {Import-Module -Name PSScriptAnalyzer}"
 

но PowerShell при запуске командлета все равно пишет, что надо Import-Module -Name PSScriptAnalyzer. Где в батнике ошибка?

Всего записей: 2474 | Зарегистр. 27-07-2009 | Отправлено: 12:25 17-08-2018
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Конструкция рабочая.
Модуль есть в $env:PSModulePath ? Или указать полный путь к модулю.

Всего записей: 3504 | Зарегистр. 16-08-2012 | Отправлено: 14:27 17-08-2018
farag



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
iNNOKENTIY21
Да, конечно. Он скопирован вручную.
 

Код:
 
powershell -NoExit -ExecutionPolicy Unrestricted -command "& {& 'Import-Module' PSScriptAnalyzer}"
 

Все должно работать, но через батник — ни в какую. Если только в PS напрямую вводить.
 
Только так завертелось:

Код:
 
powershell -command "& {& 'Set-ExecutionPolicy' Unrestricted}"; "& {& 'Import-Module' PSScriptAnalyzer}"
 

Всего записей: 2474 | Зарегистр. 27-07-2009 | Отправлено: 14:31 17-08-2018 | Исправлено: farag, 15:03 17-08-2018
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225

Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Сценарии для Windows


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru