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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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.
• Сторонние консольные утилиты можно использовать только в виде готового решения и только в рамках сценариев. Никаких обсуждений и обучений работе с утилитами не предусмотрено и прямо запрещено правилами топика.
Шапка и около-темные вопросы |

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

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите с батником:  
есть очень много файлов вида:
Name1.Name2.ext
Нужно перенести каждый файл в папку Name1 с именем Name2.ext

Всего записей: 808 | Зарегистр. 17-07-2002 | Отправлено: 23:59 17-09-2019
BorlandIMHO

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

Код:
@echo OFF
 
set "SOURCE=x:\path to\folder with files"
 
pushd "%SOURCE%" || call :ABORT "недоступна папка %SOURCE%"
 
for /f "UseBackQ delims=" %%F in (`dir /b /A:-D`) do call :PROCESSFILE "%%~nF" "%%~xF"
goto :EOF
 
:PROCESSFILE
set "TEMPVAR0=%~1"
if /I "%TEMPVAR0%*" == "%TEMPVAR0:.=DOT%*" goto :EOF
set "TEMPVAR1=%~n1"
set "TEMPVAR2=%~x1"
set "NEWFOLDER=%TEMPVAR1:.=\%"
set "NEWFILENAME=%TEMPVAR2:.=%"
md "%NEWFOLDER%"
move "%~1%~2" "%NEWFOLDER%\%NEWFILENAME%%~2" || call :ABORT "Can't move %~1%~2"
goto :EOF
 
:ABORT
echo Аварийное завершение программы.
echo %~1
pause
exit

Количество частей имени, разделённых точками, может быть более 3-х.  
Файл .\1.2.3.4.5.txt будет перемещён в .\1\2\3\4\5.txt
Файл, у которого в имени менее двух точек - обработан не будет.

----------
http://www.imho.ws

Всего записей: 2388 | Зарегистр. 12-10-2006 | Отправлено: 02:11 18-09-2019 | Исправлено: BorlandIMHO, 02:20 18-09-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Скрипт для получения свойств файл(а/ов), а так же списка некоторых дополнительных свойств.
Get-FileInfo.ps1

Всего записей: 3504 | Зарегистр. 16-08-2012 | Отправлено: 09:17 18-09-2019
iNNOKENTIY21



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

Код:
$a = @(
    'Far.x64.3.0.5476.1174.76a5b7992b51735b1fddfad0562056eecece8e0b.7z'
    'Far.x64.3.0.5476.1174.76a5b7992b51735b1fddfad0562056eecece8e0b.pdb.7z'
    ''
    'Far.x86.3.0.5476.1174.76a5b7992b51735b1fddfad0562056eecece8e0b.7z'
    'Far.x86.3.0.5476.1174.76a5b7992b51735b1fddfad0562056eecece8e0b.pdb.7z'
    'Far.x64.3.0.5476.1174.76a5b7992b51735b1fddfad0562056eecece8e0b.msi'
    'Far.x86.3.0.5476.1174.76a5b7992b51735b1fddfad0562056eecece8e0b.msi'
    ''
    'Far.x64.3.0.5475.1173.dd3a2dee97e01f928df112de4963556d4b50deff.7z'
    'Far.x64.3.0.5475.1173.dd3a2dee97e01f928df112de4963556d4b50deff.pdb.7z'
)
 
$a | Where-Object { $PSItem -Match "x64.+[^\.pdb]\.7z$" }

 
Почему первый элемент в массиве не находится?

Всего записей: 3504 | Зарегистр. 16-08-2012 | Отправлено: 19:47 18-09-2019
PhoenixUA



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
iNNOKENTIY21
Попробуй "x64.+(?<!pdb)\.7z$"

Всего записей: 2184 | Зарегистр. 17-11-2005 | Отправлено: 23:01 18-09-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
PhoenixUA
Спасибо, работает!
А с тем паттерном, что не так, почему:
    • 'Far.x64.3.0.5475.1173.dd3a2dee97e01f928df112de4963556d4b50deff.7z' — находит
    • 'Far.x64.3.0.5476.1174.76a5b7992b51735b1fddfad0562056eecece8e0b.7z' — НЕ находит


 
 

Всего записей: 3504 | Зарегистр. 16-08-2012 | Отправлено: 23:34 18-09-2019
Jonmey

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
iNNOKENTIY21
Насколько я понимаю, конструкция
[^\.pdb]\.7z$
исключает строки, оканчивающиеся на
..7z
p.7z
d.7z
b.7z

Всего записей: 1316 | Зарегистр. 17-01-2011 | Отправлено: 03:15 19-09-2019
YuS_2



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

Цитата:
Скрипт для получения свойств файл(а/ов), а так же списка некоторых дополнительных свойств.

Дык, в шапку его... только оформи как:
Получение детализированной информации из файлов: вариант 1 | вариант 2
- чтобы не разрасталась шапка...
 
Добавлено:

Цитата:
А с тем паттерном, что не так

в регулярках классы читаются как: любой, один символ из перечисления/диапазона, если циркумфлекс первым символом в классе, то читается как: любой символ, кроме символов из перечисления/диапазона

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 18:55 19-09-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Jonmey
Но тогда обе строки исключало бы, но одну то находит…
В чем разница строк с точки зрения паттерна ?
 
Добавлено:
YuS_2

Цитата:
если циркумфлекс первым символом в классе, то читается как: любой символ, кроме символов из перечисления/диапазона

в обеих строках же d, b, точка встречаются и нет p, я всё ещё не понимаю

Всего записей: 3504 | Зарегистр. 16-08-2012 | Отправлено: 19:28 19-09-2019
Jonmey

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
iNNOKENTIY21
Первую не исключает, потому что она заканчивается на
f.7z
А вторую исключает, потому что она заканчивается на
b.7z
(в списке исключаемых окончаний, согласно вашему регэкспу; список из четырех возможных окончаний приведен выше)
Вы написали [^\.pdb]\.7z$ имея ввиду что \.pdb будет интерпретироваться строкой, а это не так поскольку  
[...] - это единственный символ из списка в скобках; соответственно [^...] - единственный символ исключая те, которые в скобках.
(\.pdb) - это строка, а не отдельный символ

Всего записей: 1316 | Зарегистр. 17-01-2011 | Отправлено: 20:13 19-09-2019 | Исправлено: Jonmey, 20:24 19-09-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Jonmey
А так понятнее, да. Спасибо
 

Цитата:
(\.pdb) - это строка, а не отдельный символ

а как тогда исключающее эту строку сделать, только как PhoenixUA предложил?
 
 


Функция для удаления недопустимых в путях и именах файлов, символов

Код:
function RemoveInvalidPathAndFileNameChars {
    <#
        .SYNOPSIS
        Удаление недопустимых, в путях и именах файлов, символов.
        .PARAMETER Str
        Строка из которой нужно удалить недопустимые символы.
        .EXAMPLE
        PS C:\> $illegal = "\M\\\a/ry/ h**ad:>> a\\/:*?\| li*tt|le|| la\mb.?"
        PS C:\> RemoveInvalidPathAndFileNameChars $illegal
        .NOTES
        Автор:          iNNOKENTIY21
        Версия:         0.1
        Кодировка:      UTF-8 with BOM
    #>
    param (
        # Строка текста, из которой требуется удалить,
        # недопустимые символы в пути и имени файла.
        [Parameter(Mandatory)]
        [ValidateNotNullOrEmpty()]
        [string] $Str
    )
 
    [char[]] $InvalidChars = [System.IO.Path]::GetInvalidFileNameChars()
 
    $InvalidChars += [System.IO.Path]::GetInvalidPathChars()
 
    [string]::new(([char[]] $Str |
            Where-Object { $InvalidChars -notcontains $PSItem }))
}

Пример

Код:
[string] $illegal = "\M\\\a/ry/ h**ad:>> a\\/:*?\| li*tt|le|| la\mb.?"
RemoveInvalidPathAndFileNameChars $illegal

Всего записей: 3504 | Зарегистр. 16-08-2012 | Отправлено: 20:35 19-09-2019 | Исправлено: iNNOKENTIY21, 22:29 19-09-2019
YuS_2



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

Цитата:
а как тогда исключающее эту строку сделать, только как PhoenixUA предложил?

Да, для данного варианта использования, это волне подходящий шаблон. Многое зависит от контекста и от того, какой существует вариант настройки (?s) или (?-s) по умолчанию...
Вот если бы было:

Код:
$a = @"
    'Far.x64.3.0.5476.1174.76a5b7992b51735b1fddfad0562056eecece8e0b.7z'  
    'Far.x64.3.0.5476.1174.76a5b7992b51735b1fddfad0562056eecece8e0b.pdb.7z'  
    ''  
    'Far.x86.3.0.5476.1174.76a5b7992b51735b1fddfad0562056eecece8e0b.7z'  
    'Far.x86.3.0.5476.1174.76a5b7992b51735b1fddfad0562056eecece8e0b.pdb.7z'  
    'Far.x64.3.0.5476.1174.76a5b7992b51735b1fddfad0562056eecece8e0b.msi'  
    'Far.x86.3.0.5476.1174.76a5b7992b51735b1fddfad0562056eecece8e0b.msi'  
    ''  
    'Far.x64.3.0.5475.1173.dd3a2dee97e01f928df112de4963556d4b50deff.7z'  
    'Far.x64.3.0.5475.1173.dd3a2dee97e01f928df112de4963556d4b50deff.pdb.7z'  
"@

сравни по результату эти варианты шаблона:

Код:
(sls -inp $a -patt 'x64.+(?<!pdb)\.7z$' -all).matches
(sls -inp $a -patt 'x64.+(?<!pdb)\.7z' -all).matches
(sls -inp $a -patt '(?-s)x64.+(?<!pdb)\.7z' -all).matches
(sls -inp $a -patt '(?s)x64.+(?<!pdb)\.7z' -all).matches
(sls -inp $a -patt '(?s)x64.+?(?<!pdb)\.7z' -all).matches
(sls -inp $a -patt '(?s)x64[^\n]+?(?<!pdb)\.7z' -all).matches
(sls -inp $a -patt '(?s)x64[^\n]+(?<!pdb)\.7z' -all).matches
(sls -inp $a -patt '(?-s)x64[^\n]+(?<!pdb)\.7z' -all).matches

В общем, контекст,настройки и цель задачи, решают то, что именно должно быть в шаблоне...

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 22:04 19-09-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
YuS_2
Задача в околошапной, пралельной вселенной
Оттуда вопрос возник, работало, работало и бац, перестало

Всего записей: 3504 | Зарегистр. 16-08-2012 | Отправлено: 22:12 19-09-2019
YuS_2



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

Цитата:
RemoveInvalidPathAndFileNameChars

А зачем целая функция?
Можно же так:

Код:
-join ("abcdefgh".tochararray()|?{$_ -notin "bc".tochararray()})

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 22:14 19-09-2019
iNNOKENTIY21



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

Цитата:
А зачем целая функция?
Можно же так:

Код:
-join ("abcdefgh".tochararray()|?{$_ -notin "bc".tochararray()})

не понял, функция получает недопустимые символы и удаляет их из строки…
у тебя просто удаляет символы из строки по другому, другой каст и join вместо создания строки.

Всего записей: 3504 | Зарегистр. 16-08-2012 | Отправлено: 22:35 19-09-2019
YuS_2



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

Цитата:
не понял, функция получает недопустимые символы и удаляет их из строки…

Хотя да, согласен, функция нужна если в коде множественные проверки и удаления недопустимых символов... так, естественно, проще пользоваться.
 

Цитата:
у тебя просто удаляет символы из строки по другому

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

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 22:45 19-09-2019
iNNOKENTIY21



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

Цитата:
так, естественно, проще пользоваться.

А то
Каждый раз вводили когда то, но потом придумали перфокарты и понеслась

Всего записей: 3504 | Зарегистр. 16-08-2012 | Отправлено: 22:52 19-09-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Переключение на наушники, запуск игры, при выходе, переключение на динамики.

Код:
[string] $NirCmd        = "$env:LOCALAPPDATA\Programs\nirsoft\nircmd.exe" # Путь к утилите nircmd.exe"
[string] $FullName      = "$PSScriptRoot\xrEngine.exe" # Запускаемый файл
[string] $HeadphonesOut = "Headphones" # Название выхода на наушники в моей системе
[string] $SpeakersOut   = "Динамики" # Название выхода на динамики в моей системе
 
[IO.FileInfo] $File         = Get-Item $FullName -ErrorAction Stop # Получить объект FileInfo для получения (ниже) его свойств
[string]      $FileName     = $File.Name # Имя файла, нашего запускаемого файла
[string]      $FileBaseName = $File.BaseName # Базовое имя файла (без расширения), нашего запускаемого файла
[string]      $WorkDir      = $File.DirectoryName # Рабочая директория, нашего запускаемого файла
 
Push-Location # Сохранить текущую директорию в памяти
& $NirCmd "setdefaultsounddevice" "$HeadphonesOut" # Переключить аудио выход на наушники
Set-Location $WorkDir # Перейти в рабочую директорию
& .\$FileName # Запуск программы
 
while (Get-Process $FileBaseName) { # цикл, проверка есть ли в списке процессов наш запускаемый файл
    Start-Sleep -Seconds 2 # спим 2 секунды
}
 
& $NirCmd "setdefaultsounddevice" "$SpeakersOut" # Переключить аудио выход на динамики
Pop-Location # переходим, в ранее сохраненную в памяти, директорию
exit # завершаем скрипт

 
Не нравится мне: while (Get-Process $FileBaseName) — Есть другие варианты, знать, что процеес закрылся/завис/молча схлопнулся/штатно вышли/…?

Всего записей: 3504 | Зарегистр. 16-08-2012 | Отправлено: 23:59 21-09-2019 | Исправлено: iNNOKENTIY21, 00:02 22-09-2019
PhoenixUA



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

Всего записей: 2184 | Зарегистр. 17-11-2005 | Отправлено: 00:14 22-09-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
PhoenixUA
завис, закрыли выход остался на наушниках

Всего записей: 3504 | Зарегистр. 16-08-2012 | Отправлено: 00:15 22-09-2019
Открыть новую тему     Написать ответ в эту тему

Страницы: 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