Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер
Код: Выделить всё
AskParam /c"Условия" /t"Создать файл: -c" /u"Переместить файл: -m" /t"Удалить файл: -d" /p(h)"Параметр 1:" /IF"%1"="-d"OR"-m" /u"С выводом предупреждения: -w1" /t"Без вывода предупреждения: -w0" /p(h)"Параметр 2:" "some.exe" "%1" "%2"
Назрела практическая необходимость. Использую пару десятков скриптов, в каждом из которых по многу параметров. Запоминать их все нереально, да и оверкил, не все регулярно используются.Да уж, запросики у вас...
В «боюсь» не поверилБоюсь, это потребует конкретной переработки.
Если идея неплохая, может стоит взяться?Много костылей получится. При том, если учесть, что AskParam сама – вспомогательная утилита, то получается костыли для «костыля».Попробуй после первого выбора запускать батник
Код: Выделить всё
/u"С пердупреждением: -w1" /t"Без предупреждения: -w0" /t"Пусто: " /p(h)"!! Только для -m и -d !! Параметр 2:"Результатом запуска AskParam всегда является выполнение какой-то команды. Из скрипта его получится получить, только если команда запишет его в файл.1 Можно ли запустить AskParam из VBS скрипта и получить результат обратно в скрипт? Как? Желательно без CMD.
Нет, ничего такого на данный момент нет.2 Можно ли в /p использовать многострочный текст? Поддерживаются ли символы перевода строки (какие)?
Т.е. применение CMD для записи в файл обязательно? И без файла ни как?MVV писал(а):Из скрипта его получится получить, только если команда запишет его в файл.
Ну с выпадающим то списком в VBS окон нет...MVV писал(а):а разве из скрипта нельзя отображать диалоговые окна напрямую?
Передавать напрямую можно было бы только в потоке, но AskParam - неконсольная, т.ч. без записи никак. Но вместо CMD это может быть и любая другая неконсольная программа, поддерживающая параметры, включая и скрипты, которые могут записать данные в файл.gora писал(а):Т.е. применение CMD для записи в файл обязательно? И без файла ни как?
Вызвать некий системный диалог с выпадающим списком можно. Если речь о рисовании окон, то с доп. компонентами типа WSO вполне возможно.gora писал(а):Ну с выпадающим то списком в VBS окон нет...
Можно пару примеров таких программ?Flasher писал(а):любая другая неконсольная программа, поддерживающая параметры
Можно пример применения VBS в данном конкретном случае?Flasher писал(а):включая и скрипты, которые могут записать данные в файл.
Покажите, как?Flasher писал(а):Вызвать некий системный диалог с выпадающим списком можно. Если речь о рисовании окон, то с доп. компонентами типа WSO вполне возможно.
WinRAR, 7zG.gora писал(а):Можно пару примеров таких программ?
А я случая конкретного не вижу. Вообще я поспешил насчёт только потока и записи. Одних параметров более чем достаточно.gora писал(а):Можно пример применения VBS в данном конкретном случае?
Код: Выделить всё
Dim WSH : Set WSH = CreateObject("WScript.Shell")
With CreateObject("Scripting.FileSystemObject")
TempFile = CreateObject("Shell.Application")._
NameSpace(WSH.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "" & .GetTempName
.OpenTextFile(TempFile, 2, True, -1).Write WScript.Arguments(0)
MsgBox .OpenTextFile(TempFile,,,-1).ReadLine & " " & WScript.Arguments(1)
.DeleteFile TempFile, 1
End WithКод: Выделить всё
MsgBox WScript.Arguments(0) & " " & WScript.Arguments(1)Код: Выделить всё
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\AskParam.exe
/c"Передаём в окно vbs" /t"Шла Саша" /t"Шёл Петя" /p"Начало:" /r- /t"по шоссе." /t"по тропинке." /p"Продолжение:" "%%COMMANDER_PATH%%\Scripts\Test.vbs" "%%1" "%%2"
sud.dll,1
vbs + AskParam
%COMMANDER_PATH%\Utils\
-1Код: Выделить всё
If WScript.Arguments.Count = 0 Then
AskParam = """%COMMANDER_PATH%\Utils\AskParam.exe"""
CreateObject("WScript.Shell").Exec AskParam & " /c""Передаём в окно vbs"" /t""Шла Саша"" /t""Шёл Петя"" /p""Начало:"" /r- /t""по шоссе."" /t""по тропинке."" /p""Продолжение:"" """ & WScript.ScriptFullName & """ ""%1"" ""%2"""
WScript.Quit
Else MsgBox WScript.Arguments(0) & " " & WScript.Arguments(1)
End IfВремени нет. См. ControlListView для AutiItX.gora писал(а):Покажите, как?
Можно и без ключа, см. выше.MVV писал(а):Ещё можно просто вызвать другую копию этого же скрипта с определённым ключом
Только через выходный поток, запуская скрипт через CScript.exe, но это не назовёшь именованным каналом, да и нет в этом необходимости.MVV писал(а):Кстати, можно ли двум копиям скрипта через какой-нибудь пайп обмениваться данными?
А что нужно?gora писал(а):Я понял, что утилита не совсем то, что нужно мне
Столкнулся с :MVV писал(а):а скрипт уже хоть в файл, хоть ещё куда пусть пишет то, что ему передали
Не буду отвлекать ибо:Flasher писал(а):А что нужно?
Flasher писал(а):Времени нет
Flasher писал(а):о таких вещах правильно было бы тут спрашивать
chcp 1251?1 Запись батником
- кириллица, кодировка 866
AskParam к этому отношения не имеет. Параметры передаются без кавычек.gora писал(а):2 Запись VBS
- пропадают кавычки
Подумать о вариантах время всегда найдётся.gora писал(а):Не буду отвлекать ибо:
Конечно, я же параметр буду обрабатывать в VBS скрипте, значит и кодировка нужна 1251Flasher писал(а):chcp 1251?
Это как посмотреть... Непосредственный виновник конечно не AskParam, но ведь мне здесь предлагают любой скрипт для получения (передачи) параметра в файл, а VBS для этого и не подходит. Так что получается и нет таких уж простых способов получить параметр, введенный в AskParam.Flasher писал(а):AskParam к этому отношения не имеет.