Вывод текста в консоль - VB

Узнай цену своей работы

Формулировка задачи:

Я хочу запустить через консоль MS-DOS скомпилированную VB программу. Она должна вывести в консоль текст. (нечто вроде команды printf на С++) Как реализовать кодом VB, какие настройки? P.S. Добавлю: надеюсь такой проект не будет ограничен в возможности получать доступ к API-функциям. (Хочу немного переделать код - "перехват консольного вывода" под чисто консольные нужды).

Решение задачи: «Вывод текста в консоль»

textual
Листинг программы
Private sinp    As Scripting.TextStream
Private sout    As Scripting.TextStream
Private serr    As Scripting.TextStream
 
Private myFSO   As Scripting.FileSystemObject
 
Sub Main()
 
   Set myFSO = New Scripting.FileSystemObject
 
   Set sinp = myFSO.GetStandardStream(CLng(0))
    
   Set sout = myFSO.GetStandardStream(CLng(1))
      
   Set serr = myFSO.GetStandardStream(CLng(2))
 
   For i% = 1 To 10
       sout.WriteLine "i=" + CStr(i%)
   Next i%
   
   sout.WriteLine "Press Enter to exit"
   
   Stri$ = sinp.ReadLine
 
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.083 из 5
Похожие ответы