Как запустить командный файл в QBasic?

Question

Я хотел бы знать, как запустить командный файл в QBasic.

И когда я имею в виду внутри, я имею в виду НЕ в новом окне.

Можете ли вы мне помочь?

Я делаю поддельную ДОС.

Answer 1

Я не могу найти способ специально запускать команды dos в том же окне. Что вы можете сделать, так это SHELL _HIDE "[command]> outputfile.txt", а затем откройте этот файл и распечатайте каждую строку в своем приложении qb.

Пример не является совершенным, но может быть использован в качестве основы, чтобы получить движение:

RunCommand "dir" 
END 

SUB RunCommand (enteredCommand$) 
    IF LEN(enteredCommand$) = 0 THEN EXIT FUNCTION 'no entry 
    IF LEN(ENVIRON$("OS")) THEN CMD$ = "CMD /C " ELSE CMD$ = "COMMAND /C " 
    SHELL _HIDE CMD$ + enteredCommand$ + " > output" 
    OPEN "output" FOR APPEND AS #1 'this may create the file 
    L% = LOF(1) 'verify that file and data exist 
    CLOSE #1 

    IF L% THEN 'read file if it has data 
     OPEN "output" FOR INPUT AS #1 
     WHILE NOT EOF(1) 
      LINE INPUT #1, line$ 'read only line in file 
      PRINT line$ 
     WEND 
     CLOSE #1 
    ELSE 
     PRINT "Command Not Found" 'returns zero length string if path not found 
    END IF 
    KILL "output" 'deleting the file is optional 
END FUNCTION