Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Серый форум → Общение → Windows Script Host, HTA (VBScript, JScript) → VBScript/cmd: коды выхода/возврата через .Run
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Поднимаю такой сабж. Многие наверняка пользуются.
К примеру, через exit можно вернуть значение переменной среды:
MsgBox CreateObject("wscript.shell").Run("cmd /v:on /c set /A i=6 & exit !i!", 0, True)Интересует способ вернуть полученное в консоли значение.
Возьмём такую команду: cmd /c dir "%ProgramFiles% | find /c "Windows"
Как получить выходное число из .Run?
А в чём сложность?
Option Explicit
Dim objWshShell
Dim lngErrorLevel
Set objWshShell = WScript.CreateObject("WScript.Shell")
lngErrorLevel = objWshShell.Run("""%comspec%"" /c dir ""%ProgramFiles%"" | find.exe /c ""Windows""", 1, True)
WScript.Echo lngErrorLevel
Set objWshShell = Nothing
WScript.Quit 0
Нет. Это не сработает. Тут нужно либо через for, где данная строка будет множеством, либо ещё как-то по-хитрому.
Yury
Благодарствую. Знание некоторых деталей подвело при формировании похожей строки.
А то очень не хотелось останавливаться на этом:
With CreateObject("WScript.Shell")
If InStrRev(WScript.FullName, "WScript.exe") Then .Run "CScript.exe """ & WScript.ScriptFullName, 0 Else _
MsgBox .Exec("%comspec% /c dir ""%ProgramFiles%"" | find /c ""Windows""").StdOut.ReadLine
End WithНет. Это не сработает.
Недоглядел «/c» — что Вас интересует число строк. Тогда, да — разбор по «for /f» и вывод. Но с .Exec Вам всё равно придётся работать, если получить надо именно строку.
Со строками-то проблем нет, нужно только число. Сейчас ещё испытаю на многоразовых find. Если что, вернусь. )
Add: всё, разобрался с множествами.
Поспешил с выводами.
В чём моя ошибка?
Pr = "%ProgramFiles%\7-Zip\7z.exe"
Arch = WScript.Arguments(0)
MsgBox CreateObject("WScript.Shell").Run("cmd /c ""for /f %# in (`""" & Pr & """ l """ &_
Arch & """ -slt^| find ""Path = ""^| find /C /V ""\""`) do exit /b %#""", 0, true)Пытаюсь получить число корневых элементов.
Пытаюсь получить число корневых элементов.
Уникальных или вообще?
А как они могут быть неуникальными?
Если вообще, то на командном языке будет нечто вроде:
for /f %i in ('7z l archive ^| findstr /irc:".\\." ^| find /c /v ""') do @set /a %i - 2Минус два - это эдакий сапресс строк "Listing archive: ..." и "Path = ...", - можно попробовать и через skip, но это первое пришедшее на ум.
Уникальное имя в том смысле, что не дублируется.
Pr = "%ProgramFiles%\7-Zip\7z.exe"
Arch = WScript.Arguments(0)
MsgBox CreateObject("WScript.Shell").Run("cmd /c for /f %# in ('""""" & Pr & """ l -slt """ &_
Arch & """| find ""Path = ""| find /c /v ""\""""') do exit /b %#", 0, True)
greg zakharov
Одноимёнными в одной ветви архива могут быть папка и файл. Но мне такие (не считая экспериментальных) ещё не попадались. Пример ясен, но он всё же про другое.
Yury как всегда молчком, ещё раз благодарю.
Т.е. нужно множество брать ещё и в сдвоенные кавычки. И без ^ обошлось. Хм. А разжевать? )
Если интересно, есть вариант и попроще, но он не годится для некоторых методик сжатия архивов.
'...
MsgBox CreateObject("WScript.Shell").Run("cmd /c for /f %# in ('""""" & Pr & """ l -x!*\* """ &_
Arch & """| find /c ""....""""') do exit /b %#", 0, True)greg zakharov, это для универсального случая, как работать с зипами известно.
Пардон, а на что в выдаче того же Shell.Application метка Type? По ней и ориентироваться: папка или файл, - так что...
Не понял, как это относится к обсуждаемой уникальности, и при чём тут Shell.Application...
Что же до универсальности - закладываться не стоит. Почему, полагаю, догадаетесь сами.
Нет, не догадываюсь, ибо в разных контекстах это понятие может иметь разные тождества и вовсе не обязано претендовать на аналогию с совершенством или абсолютом в достижимости схожих по сути задач.
Не понял... Нет, не догадываюсь...
Бог в помощь.
Бог в помощь.
Благодарю, но в этих вопросах она мне точно не потребуется. 
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
