Запрос двух параметров для запуска приложения

@sergeos · Регистрация: 12.06.2012

Author24 — интернет-сервис помощи студентам

Ребят, всем привет!
Подскажите как запустить приложение с передачей параметров?
Необходимо, при запуске батника на рабочем столе спросить в консоли:
а) введите номер:
б) введите дату: (можно ли тут чтоб дата по умолчанию сегодняшняя стояла?)
после того как введут, надо выполнить далее,
в) C:\program.exe -n 53 -o 21.05.2019.xls
где, 53 это указанный на первом шаге номер.

П. С. Можно батник bat/cmd/hta...
Лишь бы Тамара Павловна могла ввести параметры )

@bidstrup · 21.05.2019, 20:48

Сообщение от sergeos

Подскажите как запустить приложение с передачей параметров?
П. С. Можно батник bat/cmd/hta...
Лишь бы Тамара Павловна могла ввести параметры )

Порекомендую обзавестись инструментом Delphi 6.
Или даже лучше Delphi 5.

Установка займет 4 минуты.
Сборка и отладка утилиты ещё минут 5-7.
На выходе получится бронебойнaя пуля tamarapalna.exe,
работающая на всех версиях Windows и при любом операционном окружении.

@sergeos · 21.05.2019, 22:43 **[ТС]**

Тянуть трактор чтобы накидать 2 строчки кода? )
Получается, батниками не осилить...

@bidstrup · 21.05.2019, 23:00

Вопрос не об осилить,
передать два параметра в приложение с помощью бат-файла безусловно можно.

Я упомянул временную составляющую и качественную составляющую.

5-7 минут не произвели на тебя впечатление ?

А сколько времени ты потратишь на кодирование 'батника', чтобы тамарапална гарантированно ввела время в нужном тебе формате ?

А контроль запускаемого приложения, к примеру? В 'батнике' таких способов нет.

А если потребуется выбрать файл / файлы привычным способом, к примеру ?

@sergeos · 21.05.2019, 23:27 **[ТС]**

Понимаешь, ехе-шник это в первую очередь вопрос безопасности. Когда ты даёшь кому-то ехешник, на тебя могут уже посмотреть странно, не заложил ли ты туда ещё чего. Ну тут ок, фиг с ним - все свои - поверят.
Далее, я не уверен насчёт распространения, надо ли с сбой тягать рантаймы дельфей, чтобы запустить ехешник где-то на чистых ос.
И, в третьих, что если понадобиться немного подправить скрипт, снова компилировать исходник?

FlasherX · 22.05.2019, 00:17

sergeos, вы на js/vb пишите. В чём проблема?

Visual Basic

Set R = New RegExp: R.Pattern = "^(0[1-9]|[1-2][0-9]|3[01])\.(0[1-9]|1[0-2])\.20\d{2}$"
CreateObject("WScript.Shell").Exec "C:\program.exe -n " & I("номер",Empty) & " -o " & I("дату",Date) & ".xls"
 
Function I(T, N)
    I = Trim(InputBox(String(5, vbCr) & "Введите " & T & ":", " Тамара Павловна", N))
    If I = "" Then wsh.Quit
    If IsEmpty(N) Then
        If Not IsNumeric(i) Then I "номер", Empty
    ElseIf Not R.Test(I) Then I "дату", Date End If
End Function

@sergeos · 22.05.2019, 00:51 **[ТС]**

Сообщение от FlasherX

В чём проблема?

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

За код спасибо. Интересно реализован, мне понравилось, хотя, и не лишён одного косячишки, на случай если тамара павловна не введёт номер на первом шаге, или же клацнет кенсел, то всё равно ехешник запустится, пусть и с частичной передачей параметров, а то и вовсе без них.

FlasherX · 22.05.2019, 00:53

Сообщение от sergeos

не лишён одного косячишки, на случай если тамара павловна не введёт номер на первом шаге, или же клацнет кенсел, то всё равно ехешник запустится

Ошибаетесь.

@sergeos · 22.05.2019, 01:04 **[ТС]**

Сообщение от FlasherX

Ошибаетесь.

Согласен. Это я в vba на тест вбросил для проверки, а тут выход из функции не означает завершение приложения (wsh.Quit).

Visual Basic

Sub test()
 
Dim r As Object
Set r = CreateObject("VBScript.RegExp")
r.Pattern = "^(0[1-9]|[1-2][0-9]|3[01])\.(0[1-9]|1[0-2])\.20\d{2}$"
'CreateObject("WScript.Shell").Exec "C:\program.exe -n " & I("номер", Empty, r) & " -o " & I("дату", Date, r) & ".xls"
 
Debug.Print "C:\program.exe -n " & I("номер", Empty, r) & " -o " & I("дату", Date, r) & ".xls"
 
Set r = Nothing
 
End Sub
 
Function I(T, N, r)
    I = Trim(InputBox(String(5, vbCr) & "Введите " & T & ":", " Тамара Павловна", N))
    If I = "" Then Exit Function ' wsh.Quit
    If IsEmpty(N) Then
        If Not IsNumeric(I) Then I "номер", Empty, r
    ElseIf Not r.test(I) Then
        I "дату", Date, r
    End If
End Function

C:\program.exe -n 56 -o 22.05.2019.xls
C:\program.exe -n -o 22.05.2019.xls
C:\program.exe -n -o .xls
C:\program.exe -n 9 -o 22.05.2019.xls
C:\program.exe -n h -o 22.05.20199.xls

FlasherX · 22.05.2019, 01:07

sergeos, а при чём здесь vba, если это vbs?

@bidstrup · 22.05.2019, 07:48

Сообщение от sergeos

Далее, я не уверен насчёт распространения, надо ли с сбой тягать рантаймы дельфей, чтобы запустить ехешник где-то на чистых ос.

Вопрос правильный.
Ответ: никакого runtime прицепа для запуска не требуется.

Сообщение от sergeos

если понадобиться немного подправить скрипт, снова компилировать исходник?

Да. Компилировать 'проект'.
Загрузка среды длится около 2 секунд.
Компиляция мелкого проекта длится менее десятой доли секунды.

Внесение изменений с помощью качественного IDE - процесс простой, быстрый и приятный.

Поясню ещё:
Я не занимаюсь программированием на Delphi. Мысль об её использовании пришла внезапно,
когда начал вспоминать, какой есть простой, легковесный, универсальный и надёжный инструмент для Windows для создания приложений с пользовательским интерфейсом и работающий без .NET
Вспомнил, нашёл в архиве, за 4 мин. установил, за 3 мин. создал приложение. Впечатлился.

@alpap · 22.05.2019, 09:51

Сообщение от sergeos

Необходимо, при запуске батника на рабочем столе спросить в консоли:

тогда должно устроить:

Windows Batch file

color 1a
mode con: cols=27 lines=4
@echo off
set "prg=C:\Program.exe"
set "ext=xls"
 
echo Введите номер:& set /p n=
echo Введите дату [dd.MM.yyyy]:& set /p d=
"%prg%" -n %n% -o %d%.%ext%
exit

компилируете в exe этим
легко вскрывается, например, Restoratorом, для редактирования.

@sergeos · 22.05.2019, 14:14 **[ТС]**

bidstrup, Delphi и VB6.0 всегда были must have, в т.ч. и в настоящее время.
alpap, а прошу прощения, по дефолту можно дату сегодняшнюю опубликовывать? чтобы не вбивать вручную.

FlasherX · 22.05.2019, 15:25

Сообщение от alpap

тогда должно устроить:

Зачем же делать вид, что этого нет в ТЗ?:

Сообщение от sergeos

можно ли тут чтоб дата по умолчанию сегодняшняя стояла?

Ну, и, конечно, без проверок в цикле Тамар Пална может и накосячить.

Сообщение от alpap

компилируете в exe этим

Выше же объяснялось, что exe не годится.

sergeos
Вас мой вариант не устроил? Или вы реально считаете, что женщине с консолью возиться будет удобней?

@sergeos · 22.05.2019, 16:26 **[ТС]**

Сообщение от FlasherX

Ну, и, конечно, без проверок в цикле Тамар Пална может и накосячить.

Это только в рамках собственной осведомлённости. Для себе увидеть вариант. Проверять уже на типизацию - то уж грех спрашивать ), просто хотел увидеть как именно по-дефолту поставить результат функции определения даты в батнике.

Сообщение от FlasherX

Выше же объяснялось, что exe не годится.

Так ехе и не нужен, просто человек не уловил по теме разговора деталей. А я не стал уже заострять внимания на этом, т.к. по факту он всё равно скрипт привёл.

Сообщение от FlasherX

Вас мой вариант не устроил? Или вы реально считаете, что женщине с консолью возиться будет удобней?

Устроил, даже в работу вчера ночью вывел. Хотя, пока что на удалённой машине не запускается у него пока что. Надо разбираться. Тут просто какое дело, значит, run.bat стартует вчерашний ваш скрипт.vbs. А в нём, мне надо передать ноде (node) запуск скрипта с параметрами. Так вот я вбил:

Visual Basic

1	CreateObject("WScript.Shell").Exec "node C:\myPathToScript\script -n " & I("номер", Empty, r) & " -o " & I("дату",...

и тогда батник стартует скрипт, скрипт в свою очередь стартует ноду, но ничего ей не передаёт почему-то. А дальше я уже заснул, если честно )
Сегодня вот снова засел за поиск чё там не запускается, увидел скрипт от alpap и он завёлся - запустил ноду с параметрами. То я и спросил между делом, есть ли возможность авто дату вставлять.

@bidstrup · 22.05.2019, 16:40

А чо, мне нравится.
Прекрасная иллюстрация.
Я пел про 'не думай о секундах свысока'.
А тут..
Прошли сутки.
Задача не решена.

FlasherX · 22.05.2019, 16:42

Сообщение от sergeos

просто хотел увидеть как именно по-дефолту поставить результат функции определения даты в батнике.

set этого не позволяет.

Сообщение от sergeos

run.bat стартует вчерашний ваш скрипт.vbs.

Зачем тут вообще батник? o_0

Сообщение от sergeos

мне надо передать ноде (node) запуск скрипта с параметрами

С какими, если ввод происходит в диалогах?

@sergeos · 22.05.2019, 18:19 **[ТС]**

Сообщение от FlasherX

С какими, если ввод происходит в диалогах?

параметры для скрипта.js который подсовывается ноде

FlasherX · 22.05.2019, 19:00

Сообщение от sergeos

запустил ноду с параметрами

Приведите комстроку целиком.

@sergeos · 22.05.2019, 19:08 **[ТС]**

вручную в командой строке синтаксис выглядит так:

Windows Batch file

1	c:\node C:\myPathToScript\script -n 83 -o 22.05.2019.xlsx

FlasherX 6228 / 2670 / 1051 Регистрация: 06.06.2017 Сообщений: 9,127
	22.05.2019, 01:07	10
	sergeos, а при чём здесь vba, если это vbs? 1

@bidstrup 418 / 178 / 27 Регистрация: 11.03.2018 Сообщений: 764
	22.05.2019, 07:48	11
	Сообщение от sergeos Далее, я не уверен насчёт распространения, надо ли с сбой тягать рантаймы дельфей, чтобы запустить ехешник где-то на чистых ос. Вопрос правильный. Ответ: никакого runtime прицепа для запуска не требуется. Сообщение от sergeos если понадобиться немного подправить скрипт, снова компилировать исходник? Да. Компилировать 'проект'. Загрузка среды длится около 2 секунд. Компиляция мелкого проекта длится менее десятой доли секунды. Внесение изменений с помощью качественного IDE - процесс простой, быстрый и приятный. Поясню ещё: Я не занимаюсь программированием на Delphi. Мысль об её использовании пришла внезапно, когда начал вспоминать, какой есть простой, легковесный, универсальный и надёжный инструмент для Windows для создания приложений с пользовательским интерфейсом и работающий без .NET Вспомнил, нашёл в архиве, за 4 мин. установил, за 3 мин. создал приложение. Впечатлился. 0

@sergeos 206 / 23 / 5 Регистрация: 12.06.2012 Сообщений: 235
	22.05.2019, 14:14 [ТС]	13
	bidstrup, Delphi и VB6.0 всегда были must have, в т.ч. и в настоящее время. alpap, а прошу прощения, по дефолту можно дату сегодняшнюю опубликовывать? чтобы не вбивать вручную. 0

@bidstrup 418 / 178 / 27 Регистрация: 11.03.2018 Сообщений: 764
	21.05.2019, 20:48	2
	Сообщение от sergeos Подскажите как запустить приложение с передачей параметров? П. С. Можно батник bat/cmd/hta... Лишь бы Тамара Павловна могла ввести параметры ) Порекомендую обзавестись инструментом Delphi 6. Или даже лучше Delphi 5. Установка займет 4 минуты. Сборка и отладка утилиты ещё минут 5-7. На выходе получится бронебойнaя пуля tamarapalna.exe, работающая на всех версиях Windows и при любом операционном окружении. Миниатюры 0

@sergeos 206 / 23 / 5 Регистрация: 12.06.2012 Сообщений: 235
	21.05.2019, 22:43 [ТС]	3
	Тянуть трактор чтобы накидать 2 строчки кода? ) Получается, батниками не осилить... 0

@bidstrup 418 / 178 / 27 Регистрация: 11.03.2018 Сообщений: 764
	21.05.2019, 23:00	4
	Вопрос не об осилить, передать два параметра в приложение с помощью бат-файла безусловно можно. Я упомянул временную составляющую и качественную составляющую. 5-7 минут не произвели на тебя впечатление ? А сколько времени ты потратишь на кодирование 'батника', чтобы тамарапална гарантированно ввела время в нужном тебе формате ? А контроль запускаемого приложения, к примеру? В 'батнике' таких способов нет. А если потребуется выбрать файл / файлы привычным способом, к примеру ? 0

@sergeos 206 / 23 / 5 Регистрация: 12.06.2012 Сообщений: 235
	21.05.2019, 23:27 [ТС]	5
	Понимаешь, ехе-шник это в первую очередь вопрос безопасности. Когда ты даёшь кому-то ехешник, на тебя могут уже посмотреть странно, не заложил ли ты туда ещё чего. Ну тут ок, фиг с ним - все свои - поверят. Далее, я не уверен насчёт распространения, надо ли с сбой тягать рантаймы дельфей, чтобы запустить ехешник где-то на чистых ос. И, в третьих, что если понадобиться немного подправить скрипт, снова компилировать исходник? 0

@sergeos 206 / 23 / 5 Регистрация: 12.06.2012 Сообщений: 235
	22.05.2019, 00:51 [ТС]	7
	Сообщение от FlasherX В чём проблема? Сорь, я не думал что это вызовет шквал вопросов ) Надеялся, что в батниках это р-раз и готово. Чтоб не тянуть артилерию. За код спасибо. Интересно реализован, мне понравилось, хотя, и не лишён одного косячишки, на случай если тамара павловна не введёт номер на первом шаге, или же клацнет кенсел, то всё равно ехешник запустится, пусть и с частичной передачей параметров, а то и вовсе без них. 0

FlasherX 6228 / 2670 / 1051 Регистрация: 06.06.2017 Сообщений: 9,127
	22.05.2019, 00:53	8
	Сообщение от sergeos не лишён одного косячишки, на случай если тамара павловна не введёт номер на первом шаге, или же клацнет кенсел, то всё равно ехешник запустится Ошибаетесь. 0

FlasherX 6228 / 2670 / 1051 Регистрация: 06.06.2017 Сообщений: 9,127
	22.05.2019, 15:25	14
	Сообщение от alpap тогда должно устроить: Зачем же делать вид, что этого нет в ТЗ?: Сообщение от sergeos можно ли тут чтоб дата по умолчанию сегодняшняя стояла? Ну, и, конечно, без проверок в цикле Тамар Пална может и накосячить. Сообщение от alpap компилируете в exe этим Выше же объяснялось, что exe не годится. sergeos Вас мой вариант не устроил? Или вы реально считаете, что женщине с консолью возиться будет удобней? 0

@bidstrup 418 / 178 / 27 Регистрация: 11.03.2018 Сообщений: 764
	22.05.2019, 16:40	16
	А чо, мне нравится. Прекрасная иллюстрация. Я пел про 'не думай о секундах свысока'. А тут.. Прошли сутки. Задача не решена. 0

FlasherX 6228 / 2670 / 1051 Регистрация: 06.06.2017 Сообщений: 9,127
	22.05.2019, 16:42	17
	Сообщение от sergeos просто хотел увидеть как именно по-дефолту поставить результат функции определения даты в батнике. set этого не позволяет. Сообщение от sergeos run.bat стартует вчерашний ваш скрипт.vbs. Зачем тут вообще батник? o_0 Сообщение от sergeos мне надо передать ноде (node) запуск скрипта с параметрами С какими, если ввод происходит в диалогах? 0

@sergeos 206 / 23 / 5 Регистрация: 12.06.2012 Сообщений: 235
	22.05.2019, 18:19 [ТС]	18
	Сообщение от FlasherX С какими, если ввод происходит в диалогах? параметры для скрипта.js который подсовывается ноде 0

FlasherX 6228 / 2670 / 1051 Регистрация: 06.06.2017 Сообщений: 9,127
	22.05.2019, 19:00	19
	Сообщение от sergeos запустил ноду с параметрами Приведите комстроку целиком. 0