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

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



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

Код:
echo.!xx!
echo.%%i

Всего записей: 5365 | Зарегистр. 08-02-2006 | Отправлено: 14:58 27-07-2018
bomzz

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NIKZZZZ
так этот поток надо перенаправить в программу одним куском
 
Добавлено:
echo !xx!%%i|Clip.exe /2
там в батнике один goto eof отсутствовал, а я голову ломал

Всего записей: 3412 | Зарегистр. 29-03-2016 | Отправлено: 15:00 27-07-2018
NIKZZZZ



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

Код:
(echo.!xx!&echo.%%i)|Clip.exe /2  

Всего записей: 5365 | Зарегистр. 08-02-2006 | Отправлено: 15:10 27-07-2018
bomzz

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NIKZZZZ
почему то не перенаправилось вообще ничего
for /f "skip=1 delims=*" %%i in (1.m3u) do ( if "!n!"=="" (set "n=1" & set "xx=%%i") else (set "n=" & (echo.!xx!&echo.%%i)|Clip.exe /2 ))
 
Добавлено:
for /f "skip=1 delims=*" %%i in (1.m3u) do ( if "!n!"=="" (set "n=1" & set "xx=%%i") else (set "n=" & ((echo !xx! & echo %%i)|Clip.exe /2)))
вот так перестала переменная хх меняться

Всего записей: 3412 | Зарегистр. 29-03-2016 | Отправлено: 15:14 27-07-2018
Smitis



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

Цитата:
никто не знает как в бат файле переменной присвоить значение переноса строки


Код:
set a=^
 
 
echo 1!a!2
 

Символ ^ должен быть последним в строке (после него не должно быть пробелов). После set минимум две пустые строки.
 
Можно так:

Код:
set a=34^
 
56
echo 1!a!2
 


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

Всего записей: 3179 | Зарегистр. 09-02-2003 | Отправлено: 15:30 27-07-2018 | Исправлено: Smitis, 15:36 27-07-2018
bomzz

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Smitis
не получается
@echo off
color 9F
SETLOCAL EnableDelayedExpansion
set a=^
 
 
for /f "skip=1 delims=*" %%i in (1.m3u) do ( if "!n!"=="" (set "n=1" & set "xx=%%i") else (set "n=" & echo !xx!!a!%%i|Clip.exe /2))
pause
 
поток разрывает. но буду знать про пробел

Всего записей: 3412 | Зарегистр. 29-03-2016 | Отправлено: 15:38 27-07-2018 | Исправлено: bomzz, 15:41 27-07-2018
NIKZZZZ



Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
bomzz
Лучше всего поменьше использовать блоки, они часто ведут себя не предсказуемо.

Код:
set /a n=0
FOR /f "delims=*" %%I IN (1.m3u) DO call :CopyClip "%%I"
goto :eof
 
:CopyClip
if %n%==0 goto _1
(
echo.%xx%
echo.%~1
)|Clip.exe /2
set /a n=0
goto :eof
:_1
set xx=%~1
set /a n=1  
goto :eof  


Всего записей: 5365 | Зарегистр. 08-02-2006 | Отправлено: 15:41 27-07-2018 | Исправлено: NIKZZZZ, 15:49 27-07-2018
bomzz

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NIKZZZZ
заработала    
 
Добавлено:
не неправильно опять - порядок меняется, а если SETLOCAL EnableDelayedExpansion тоже !XX! не работает
 
Добавлено:
попробую через shift сделать

Всего записей: 3412 | Зарегистр. 29-03-2016 | Отправлено: 15:43 27-07-2018
NIKZZZZ



Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
bomzz
Я там goto :eof пропустил, пост поправил.
А SETLOCAL EnableDelayedExpansion не нужен.

Всего записей: 5365 | Зарегистр. 08-02-2006 | Отправлено: 15:51 27-07-2018
bomzz

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NIKZZZZ
так работает правильно. огромное спасибо. этот батник пригодится не только мне. правда люди предпочитают смотреть, создавать плейлисты никто не любит
 
Добавлено:
LevT
https://b.radikal.ru/b16/1807/e0/5e15e0f53830.gif
внес в список 5000 ссылок, выделил блок и спокойно его перемещаю по списку. попробуй такое на твоей ласточке сделать, она на паре сотен элементов сломается

Всего записей: 3412 | Зарегистр. 29-03-2016 | Отправлено: 15:58 27-07-2018
Baltazar500



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

Цитата:
подставить редактируемые данные ?

Средствами батника не получится, только сторонними утилитами.
Как частичное решение

Код:
@echo off
set def=123
set /p "xx=pass (default:%def%) : "
if "%xx%"=="" set "xx=%def%"
echo.pass=%xx%
 

 
А о каких утилитах идёт речь ? Данный костыль на практике оказался не очень удобным

Всего записей: 2080 | Зарегистр. 19-09-2011 | Отправлено: 21:30 30-07-2018 | Исправлено: Baltazar500, 21:30 30-07-2018
NIKZZZZ



Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Baltazar500
 
Ну, для примера, используем vbs скрипт с созданием внешнего файла inbox.vbs

Код:
@echo off
>"%temp%\inbox.vbs" echo.WScript.StdOut.Write(InputBox("Enter password", "Password",WScript.Arguments(0)))
 
set pass0=Me password
for /f "delims=" %%a in ('cscript.exe //nologo "%temp%\inbox.vbs" "%pass0%"') do set pass=%%a
del /q "%temp%\inbox.vbs"
echo.%pass%

 
Или используем  mshta

Код:
@echo off
set pass0="Me"^&Chr(32)^&"password"
for /f "delims=" %%a in ('mshta "vbscript:CreateObject("Scripting.FileSystemObject").GetStandardStream(1).Write(inputbox("Enter"&Chr(32)&"password","Password",%pass0%))&Close()"') do set "pass=%%a"
echo.%pass%

Всего записей: 5365 | Зарегистр. 08-02-2006 | Отправлено: 08:09 31-07-2018 | Исправлено: NIKZZZZ, 08:12 31-07-2018
farag



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

Код:
 
Remove-Item HKCU:\Software\Microsoft\Windows\CurrentVersion\CloudStore\Store\Cache\DefaultAccount -Recurse -Force
$reg = 'Программы\Прочее\reg\Start.reg'
filter Get-FirstResolvedPath
{
    Get-Volume | Where-Object {$_.DriveLetter -notin 'C','D', $null} | Select-Object -ExpandProperty DriveLetter | ForEach-Object {$_ + ':\'} | Join-Path -ChildPath $_ -Resolve -ErrorAction SilentlyContinue | Select-Object -First 1
}
$reg | Get-FirstResolvedPath | Start-Process reg.exe -ArgumentList "import Программы\Прочее\reg\Start.reg"
Stop-Process -ProcessName explorer
 

Как полученную букву диска в аргумент засунуть?

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



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
farag
Get-FirstResolvedPath делает "нехорошую" штуку: оно выплёвывает скалярную строку
 
Так что тут возможны два подхода:  
 
подход скриптера - достать букву из полученного пути (первый символ).
Ну или опять сделать Get-Item и получить после него объект FileInfo со всем богатством содержимого (и смириться с множественным переключением между скалярами и объектами, которое раздражает душу мастера)
 
Подход мастера, пополняющего свою копилку многоразовых скриптов - написать полезную для этой копилки повторно используемую функцию (вместо или вместе с  Get-FirstResolvedPath)

Всего записей: 17126 | Зарегистр. 14-10-2001 | Отправлено: 10:01 31-07-2018
farag



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

Код:
 
Remove-Item HKCU:\Software\Microsoft\Windows\CurrentVersion\CloudStore\Store\Cache\DefaultAccount -Recurse -Force
$reg = 'Программы\Прочее\reg\Start.reg'
filter Get-FirstResolvedPath
{
    Get-Volume | Where-Object {$_.DriveLetter -notin 'C','D', $null} | Select-Object -ExpandProperty DriveLetter | ForEach-Object {$_ + ':\'} | Join-Path -ChildPath $_ -Resolve -ErrorAction SilentlyContinue | Select-Object -First 1
}
$var = $reg | Get-FirstResolvedPath
Start-Process reg.exe -ArgumentList "import $var"
Stop-Process -ProcessName explorer
 

Так, конечно, работает. Это выглядит ужасно, да?

Всего записей: 2474 | Зарегистр. 27-07-2009 | Отправлено: 10:15 31-07-2018 | Исправлено: farag, 10:15 31-07-2018
LevT



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
farag
по-моему, нормально это выглядит.
Ты не бери всерьёз то что я пишу теоретическое в параллельной теме )
 
PS создан для практического удобства!
Но его создатели были достаточно мудры, чтобы понимать, что в это понятие (практическое удобство) входит регулирование взаимодействия между мастерами-авторами продвинутых функций и скриптерами.
 
 
Добавлено:
Если поделие одноразовое, этим можно и ограничиться.
Если же предполагается, что кто-то его будет читать (хотя бы ты сам через полгода) - надо назвать переменные внятными именами
 
то есть не $var, а хотя бы $regpath   и т.д.
ну, и трубы длиннее 3-4 командлетов читаются уже плохо - потому внутри функции лучше ввести "переменную" $volumes $letters
 
 
Добавлено:
Разве что -ArgumentList имеет тип [string[]], и потому правильнее подавать массивом  
 

Код:
 
Start-Process reg.exe -ArgumentList 'import',"$var"  
 


Всего записей: 17126 | Зарегистр. 14-10-2001 | Отправлено: 10:24 31-07-2018 | Исправлено: LevT, 12:28 31-07-2018
Baltazar500



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NIKZZZZ, спасибо, мне до таких костылей (где можно мешать vbs и cmd) расти и расти Больше понравился второй вариант - "standalone" решение так сказать. Правда там мелькает окно, после ввода ну да это мелочи
 
Сейчас вылезла очередная заковыка - передаю батнику путь до каталога, который содержит восклицательные знаки и батник их игнорирует, отчего путь становится некорректным (для теста банально эхаю). В целом можно конечно поиграться с короткими именами, но как быть, если восклицательные знаки будут содержаться в имени самого файла, а мне надо будет создать в каталоге назначения файл с идентичным именем, но с иным расширением (txt).

Всего записей: 2080 | Зарегистр. 19-09-2011 | Отправлено: 12:32 31-07-2018
farag



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

Код:
 
(Get-CimInstance -Class Win32_DiskDrive -Filter 'InterfaceType = "USB"' | Get-CimAssociatedInstance -ResultClassName Win32_DiskPartition | Get-CimAssociatedInstance -ResultClassName Win32_LogicalDisk).DeviceID |
ForEach-Object {$_ + '\'} | Join-Path -ChildPath $_ -Resolve -ErrorAction SilentlyContinue | Select-Object -First 1
 

Вот такую простыню пришлось придумать, чтобы отсеять обычные диски.
И почему у обычных дисков InterfaceType=IDE?..

Всего записей: 2474 | Зарегистр. 27-07-2009 | Отправлено: 13:50 31-07-2018 | Исправлено: farag, 13:53 31-07-2018
LevT



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
farag
 
PS C:\Windows\system32> Get-Disk | select bustype
 
BusType
-------
SATA
File Backed Virtual
USB
SATA
 
 
Добавлено:
 
ЗЫ Я нифига этого не знал заранее - и только что обнаружил, всего лишь умея делать  | fl *
В выдаче Format-List * обычно ещё куча всяких свойств, которые могут пригодиться.

Всего записей: 17126 | Зарегистр. 14-10-2001 | Отправлено: 13:56 31-07-2018 | Исправлено: LevT, 14:18 31-07-2018
farag



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

Код:
 
(Get-Disk | Where-Object {$_.BusType -ne "USB"} | Foreach-Object {Get-Partition $_.Number | Where-Object {$_.DriveLetter}}).DriveLetter
 

Что-то тоже мудрено.
 

Код:
 
(Get-Disk | Where-Object BusType -ne USB | Get-Partition | Get-Volume).DriveLetter
 

Так лучше.

Всего записей: 2474 | Зарегистр. 27-07-2009 | Отправлено: 15:10 31-07-2018 | Исправлено: farag, 15:48 31-07-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