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

@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

Новые блоги и статьи Все статьи Все блоги /
WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Old Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .

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

	Запрос двух параметров для запуска приложения 21.05.2019, 18:08. Показов 7038. Ответов 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 6969 / 2863 / 1100 Регистрация: 06.06.2017 Сообщений: 9,715
	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