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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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
Falcon99



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
iNNOKENTIY21
К сожалению у меня используется сервер 2003 и там старая версия PowerShell, т.к.
при запуске получаю следующее:
 

Код:
Get-ChildItem -File 'l:\2019' |
    Group-Object { $_.BaseName -replace '^(.+)?-?(\d{4})$', '$2' } |
    Where-Object Count -gt 1 |
    ForEach-Object { $_.Group }
Get-ChildItem : Не удается найти параметр, соответствующий имени параметра "File".
строка:1 знак:20
+ Get-ChildItem -File <<<<  'l:\2019' |
    + CategoryInfo          : InvalidArgument: ( [Get-ChildItem], ParameterBindingException
    + FullyQualifiedErrorId : NamedParameterNotFound,Microsoft.PowerShell.Commands.GetChildItemCommand

 

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

Всего записей: 607 | Зарегистр. 12-10-2005 | Отправлено: 12:09 03-12-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Falcon99
Цитата:
К сожалению у меня используется сервер 2003 и там старая версия PowerShell, т.к.
при запуске получаю следующее:  

Так удалите -File он всего лишь ограничивает листинг каталога только файлами.
Замените ваш: 'l:\2019' на: 'l:\2019\*.tif' или 'l:\2019\*.*'

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



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

Цитата:
старая версия PowerShell

не смертельно...

Цитата:
есть дублирующиеся последние четыре цифры

А, так ещё и не все цифры участвуют в лоторее?

Код:
$fld = 'd:\folder'
 
dir $fld |?{!$_.psiscontainer}|group{$_.basename -replace '^.*(\d{4})$','$1'}|
?{$_.count -gt 1}|%{$_.group}|select fullname|out-file log.txt -enc utf8

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



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

Всего записей: 3504 | Зарегистр. 16-08-2012 | Отправлено: 12:45 03-12-2019
MalinaSinia

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
> Z> "Ghb)
 
Добавлено:
> Z> "Ghb)

Всего записей: 7 | Зарегистр. 30-11-2019 | Отправлено: 12:52 03-12-2019
YuS_2



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

Цитата:
 На не догонишь!  

А чего тут гоняться? Лучше медленнее, но правильнее (сам я не всегда следую этому правилу, а надо бы )
Кстати, у тебя же почти то же самое, отличий совсем чуток... так что, мое решение - дубликат скорее...
 
Добавлено:
MalinaSinia

Цитата:
> Z> "Ghb)  

Это что, зашифрованный код?

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 13:02 03-12-2019
Falcon99



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
iNNOKENTIY21
YuS_2
В принципе задача уже решена, скрипт Alex_Piggy отработал и я получил нужные данные. Но вариант iNNOKENTIY21 интересен компактностью, хотя опять не захотел :

Код:
Get-ChildItem  'l:\2019\*.tif' |
    Group-Object { $_.BaseName -replace '^(.+)?-?(\d{4})$', '$2' } |
    Where-Object Count -gt 1 |
    ForEach-Object { $_.Group }  
Where-Object : Не удается привязать параметр "FilterScript". Не удается преобразовать значение "Count" типа "System.String" в тип "System.Management.Automation.ScriptBlock".
строка:3 знак:17
+     Where-Object <<<<  Count -gt 1 |
    + CategoryInfo          : InvalidArgument: ( [Where-Object], ParameterBindingException
    + FullyQualifiedErrorId : CannotConvertArgumentNoMessage,Microsoft.PowerShell.Commands.WhereObjectCommand


Всего записей: 607 | Зарегистр. 12-10-2005 | Отправлено: 13:04 03-12-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Falcon99
Цитата:
Но вариант iNNOKENTIY21 интересен компактностью, хотя опять не захотел  

Еще немного, еще чуть чуть Не нашел древность PowerShell v2.0…
 
Заменить:
Код:
Where-Object Count -gt 1 |

на:
Код:
Where-Object {$_.Count -gt 1} |

Или у YuS_2, тоже самое, только компактная запись и регулярка другая малеха, да ещё в файл сохраняет
 
з.ы. исправил очепятку в $_.Count была с русской С
 

Всего записей: 3504 | Зарегистр. 16-08-2012 | Отправлено: 13:28 03-12-2019 | Исправлено: iNNOKENTIY21, 13:45 03-12-2019
YuS_2



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

Цитата:
Не нашел древность PowerShell v2.0…

дык, же:

Код:
powershell -v 2.0

Всего записей: 3218 | Зарегистр. 03-02-2009 | Отправлено: 13:59 03-12-2019
Falcon99



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

Цитата:
Еще немного, еще чуть чуть Не нашел древность PowerShell v2.0…
 
Заменить:
 

Код:
Where-Object Count -gt 1 |

 
на:

Код:
Where-Object {$_.Count -gt 1} |

 
Или у YuS_2, тоже самое, только компактная запись и регулярка другая малеха, да ещё в файл сохраняет
 
з.ы. исправил очепятку в $_.Count была с русской С
 

 
Вот теперь все отработало!

Всего записей: 607 | Зарегистр. 12-10-2005 | Отправлено: 14:04 03-12-2019 | Исправлено: Falcon99, 14:05 03-12-2019
iNNOKENTIY21



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

Да! Но надо консоль запускать, а я же в vscode Ctrl+F5 жму
 

Всего записей: 3504 | Зарегистр. 16-08-2012 | Отправлено: 14:10 03-12-2019
iNNOKENTIY21



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

Их там под 1,5К
 
Это превьюшка или полная? Если полная, то скрипт ниже. Если там где то спрятаны большие картинки, то хз.
кликабельная картинка

 
Таким скриптом качал:
 
PowerShell
Код:
$Url = 'https://www.deanscards.com/i/2800239/1981-Topps-1981-Topps-Baseball-Complete-Set-In-Box-'
$Path = "$([Environment]::GetFolderPath('MyPictures'))\deanscards"
$Response = Invoke-WebRequest -Uri $Url
 
if (-not (Test-Path -Path $Path -PathType Container)) {
    $null = New-Item -ItemType Directory $Path
}
 
foreach ($ImgSet in $Response.ParsedHtml.getElementsByClassName('bd-image-set')) {
    [uri] $Uri = $ImgSet.outerHTML -replace "(.+) data-full-image=""(.+)""(>.+</A>)", '$2'
    $Name = ($ImgSet.outerHTML -replace "(.+) alt=""(.+)"" (data-grade.+)", '$2').Replace('/', '-') -Replace ("\s+", ' ')
    $FileName = "$Name $($Uri.Segments[-1])"
    $FullName = Join-Path -Path $Path -ChildPath $FileName
 
    $null = Invoke-WebRequest -Uri $Uri -OutFile $FullName
 
    $FullName
}
 

Прервать скрипт в консоли можно сочетанием клавиш CTRL+C
Скачивает в папку Изображения: C:\Users\<Пользователь>\Pictures\deanscards\
С именем типа: 1981 Topps #3 - Mike Schmidt - Cecil Cooper RBI Leaders Back 2799645b.jpg
 
Можно код скопировать и вставить в консоль PowerShell:
кликабельная картинка


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

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Оххх, для меня это всё сложновато будет. Не разбираюсь совсем в этих скриптах и кодах. Можете объяснить на "простом" языке как это всё сделать? Заранее Вам очень благодарен!

Всего записей: 15 | Зарегистр. 03-12-2019 | Отправлено: 00:33 04-12-2019
Jonmey

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Simvol09
Воспользуйтесь site downloader, например, Offline Explorer.
Настройки скачивания можно обсудить в соответствующем топике программы.

Всего записей: 1316 | Зарегистр. 17-01-2011 | Отправлено: 02:48 04-12-2019
HENDELF

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Уважаемые, нужно батник который выполняет роль "свернуть все окна". У меня запущен нокс плеер 3 емулятора і он бываєт зависает, я сделал перезагрузку каждый час но окна загружаются в развернутом состоянии а на работе не айс.

Всего записей: 416 | Зарегистр. 22-02-2006 | Отправлено: 22:08 08-12-2019
Smitis



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

Цитата:
нужно батник который выполняет роль "свернуть все окна".

Код:
@if (true == false) @end /*
@echo off
%SystemRoot%\System32\cscript.exe //nologo //e:javascript "%~f0" %*
exit /b */
(new ActiveXObject("Shell.Application")).MinimizeAll();


Код:
@echo off
powershell -c "&{(New-Object -ComObject 'Shell.Application').MinimizeAll()}"


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

Всего записей: 3179 | Зарегистр. 09-02-2003 | Отправлено: 23:44 08-12-2019 | Исправлено: Smitis, 10:01 09-12-2019
HENDELF

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Smitis
сейчас проверил и не сработало, окна не свернуло.
Система 7 х86 максимальная, не знаю имеет ли значение, второй вариант сработал! я чето думал на повершеле он а нет .

Всего записей: 416 | Зарегистр. 22-02-2006 | Отправлено: 23:57 08-12-2019 | Исправлено: HENDELF, 00:21 09-12-2019
Smitis



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

Цитата:
 я чето думал на повершеле он а нет

В принципе, на powershell, только вызываемом из командного файла. Поправил кавычки, хотя и так работало. Первый вариант гибридный - cmd+js (расширение файла cmd).

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

Всего записей: 3179 | Зарегистр. 09-02-2003 | Отправлено: 09:59 09-12-2019 | Исправлено: Smitis, 10:02 09-12-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Загрузка картинок дня с bing.com
Проверялось на PowerShell v3 … v5.1 (Windows 10)
Get-BingImageDaily.ps1

Всего записей: 3504 | Зарегистр. 16-08-2012 | Отправлено: 20:44 09-12-2019 | Исправлено: iNNOKENTIY21, 17:23 10-12-2019
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Небольшой скрипт для получения псевдонимов и протоколов у AppX
Делалось с целью узнать, есть ли команда и что писать, для запуска UWP приложения с командной строки.
 
Get-AppxAliasAndProtocols.ps1
 
Примеры вызова скрипта
И псевдонимы и протоколы: .\Get-AppxAliasAndProtocols
Протоколы: .\Get-AppxAliasAndProtocols | ? Protocols | select Name, Protocols
Псевдонимы: .\Get-AppxAliasAndProtocols | ? Alias | select Name, Alias
 
Скриншот работы скрипта
 
Получив данные, можно вызвать интересующее appx в командной строке по псевдониму или протоколу
Alias – пишется в командную строку как есть (MicrosoftEdge.exe чего то сразу закрывается у меня).
Protocols – вызывается через проводник: explorer ms-clock:// или команду start: start ms-clock:// (у меня без слэшей  у часов закрывается сразу) или start microsoft-edge:

Всего записей: 3504 | Зарегистр. 16-08-2012 | Отправлено: 21:05 11-12-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