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

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

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

Ребят, всем привет!
Подскажите как запустить приложение с передачей параметров?
Необходимо, при запуске батника на рабочем столе спросить в консоли:
а) введите номер:
б) введите дату: (можно ли тут чтоб дата по умолчанию сегодняшняя стояла?)
после того как введут, надо выполнить далее,
в) 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
1
2
3
4
5
6
7
8
9
10
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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
1
2
3
4
5
6
7
8
9
10
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

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@sergeos 207 / 23 / 6 Регистрация: 12.06.2012 Сообщений: 235

	Запрос двух параметров для запуска приложения 21.05.2019, 18:08. Показов 7034. Ответов 21 Метки нет (Все метки) Ребят, всем привет! Подскажите как запустить приложение с передачей параметров? Необходимо, при запуске батника на рабочем столе спросить в консоли: а) введите номер: б) введите дату: (можно ли тут чтоб дата по умолчанию сегодняшняя стояла?) после того как введут, надо выполнить далее, в) C:\program.exe -n 53 -o 21.05.2019.xls где, 53 это указанный на первом шаге номер. П. С. Можно батник bat/cmd/hta... Лишь бы Тамара Павловна могла ввести параметры ) 0

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

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

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

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

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

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