Серый форум — VBScript/cmd: коды выхода/возврата через .Run

Re: VBScript/cmd: коды выхода/возврата через .Run

null@example.com (Flasher) — Tue, 09 Dec 2014 12:57:01 +0000

greg zakharov пишет:

Бог в помощь.

Благодарю, но в этих вопросах она мне точно не потребуется.

Re: VBScript/cmd: коды выхода/возврата через .Run

null@example.com (greg zakharov) — Tue, 09 Dec 2014 08:41:57 +0000

Flasher пишет:

Не понял... Нет, не догадываюсь...

Бог в помощь.

Re: VBScript/cmd: коды выхода/возврата через .Run

null@example.com (Flasher) — Tue, 09 Dec 2014 07:32:19 +0000

greg zakharov пишет:

Пардон, а на что в выдаче того же Shell.Application метка Type? По ней и ориентироваться: папка или файл, - так что...

Не понял, как это относится к обсуждаемой уникальности, и при чём тут Shell.Application...

greg zakharov пишет:

Что же до универсальности - закладываться не стоит. Почему, полагаю, догадаетесь сами.

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

Re: VBScript/cmd: коды выхода/возврата через .Run

null@example.com (Flasher) — Mon, 08 Dec 2014 16:37:00 +0000

Если интересно, есть вариант и попроще, но он не годится для некоторых методик сжатия архивов.

'...
MsgBox CreateObject("WScript.Shell").Run("cmd /c for /f %# in ('""""" & Pr & """ l -x!*\* """ &_
Arch & """| find /c ""....""""') do exit /b %#", 0, True)

greg zakharov, это для универсального случая, как работать с зипами известно.

Re: VBScript/cmd: коды выхода/возврата через .Run

null@example.com (Flasher) — Mon, 08 Dec 2014 15:57:32 +0000

greg zakharov
Одноимёнными в одной ветви архива могут быть папка и файл. Но мне такие (не считая экспериментальных) ещё не попадались. Пример ясен, но он всё же про другое.

Yury как всегда молчком, ещё раз благодарю.
Т.е. нужно множество брать ещё и в сдвоенные кавычки. И без ^ обошлось. Хм. А разжевать? )

Re: VBScript/cmd: коды выхода/возврата через .Run

null@example.com (Yury) — Mon, 08 Dec 2014 15:37:57 +0000

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)

Re: VBScript/cmd: коды выхода/возврата через .Run

null@example.com (greg zakharov) — Mon, 08 Dec 2014 15:12:55 +0000

Уникальное имя в том смысле, что не дублируется.

Re: VBScript/cmd: коды выхода/возврата через .Run

null@example.com (greg zakharov) — Mon, 08 Dec 2014 15:12:09 +0000

Если вообще, то на командном языке будет нечто вроде:

for /f %i in ('7z l archive ^| findstr /irc:".\\." ^| find /c /v ""') do @set /a %i - 2

Минус два - это эдакий сапресс строк "Listing archive: ..." и "Path = ...", - можно попробовать и через skip, но это первое пришедшее на ум.

Re: VBScript/cmd: коды выхода/возврата через .Run

null@example.com (Flasher) — Mon, 08 Dec 2014 15:04:05 +0000

А как они могут быть неуникальными?

Re: VBScript/cmd: коды выхода/возврата через .Run

null@example.com (greg zakharov) — Mon, 08 Dec 2014 14:56:52 +0000

Flasher пишет:

Пытаюсь получить число корневых элементов.

Уникальных или вообще?

Re: VBScript/cmd: коды выхода/возврата через .Run

null@example.com (Flasher) — Mon, 08 Dec 2014 13:48:10 +0000

Поспешил с выводами.
В чём моя ошибка?

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)

Пытаюсь получить число корневых элементов.

Re: VBScript/cmd: коды выхода/возврата через .Run

null@example.com (Flasher) — Mon, 08 Dec 2014 12:55:43 +0000

Со строками-то проблем нет, нужно только число. Сейчас ещё испытаю на многоразовых find. Если что, вернусь. )

Add: всё, разобрался с множествами.

Re: VBScript/cmd: коды выхода/возврата через .Run

null@example.com (alexii) — Mon, 08 Dec 2014 12:50:41 +0000

Нет. Это не сработает.

Недоглядел «/c» — что Вас интересует число строк. Тогда, да — разбор по «for /f» и вывод. Но с .Exec Вам всё равно придётся работать, если получить надо именно строку.

Re: VBScript/cmd: коды выхода/возврата через .Run

null@example.com (Flasher) — Mon, 08 Dec 2014 12:27:32 +0000

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

Re: VBScript/cmd: коды выхода/возврата через .Run

null@example.com (Yury) — Mon, 08 Dec 2014 12:21:44 +0000

MsgBox CreateObject("wscript.shell").Run("cmd /c ""for /f %i in ('dir /ad/b ""%ProgramFiles%""^| find /c ""Windows""') do exit /b %i""", 0, True)