powered by simpleCommunicator - 2.0.41     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как запустить несколько команд дос в VFP
4 сообщений из 4, страница 1 из 1
Как запустить несколько команд дос в VFP
    #38984467
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
например мне надо две команды запустить в приложении VFP
dir и pause
Написать эти две команды в батнике и запускать в приложении батник, не желательно
второй вариант
! dir
! pause
Вызывает два раза командное окно
конвеер тоже не получается, хотелось бы, например, чтоб эти две команды выполнялись в одном вызываемом командном окне...
...
Рейтинг: 0 / 0
Как запустить несколько команд дос в VFP
    #38984689
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
сделай файл my.cmd напиши туда эти две команды и его запускай
Код: sql
1.
!my.cmd
...
Рейтинг: 0 / 0
Как запустить несколько команд дос в VFP
    #38986212
alextashk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
q1w1e1,

1. Есть
Код: c#
1.
2.
		loShell = CREATEOBJECT("WScript.Shell")
		loShell.Run('dir', 0, 1)



2. Есть встроенные команды
Код: sql
1.
2.
DIR
ADIR
...
Рейтинг: 0 / 0
Как запустить несколько команд дос в VFP
    #38989310
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
спасибо, наверное я не могу правильно поставить задачу...:-(, тут сам принцип, а какие команды без разницы, сделал тупо, не то как хотелось бы, но вроде работает...

b = FCREATE("p_ng.bat")
IF b < 0
=FCLOSE(b )
ELSE
=FPUTS(b,'1-ая команда ms-DOS')
=FPUTS(b,'2-ая команда ms-DOS')
=FPUTS(b,'3-ая команда ms-DOS')
=FCLOSE(b )
a="!"+ADDBS(put_tmp)+"p_ng.bat"
&a
ENDIF
ERASE p_ng.bat
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как запустить несколько команд дос в VFP
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]