Вывод на экран текстовых строк

Строки можно выводить в стандартный выходной поток (в консольном режиме) или в графическое диалоговое окно несколькими способами:

Метод Echo объекта Wscript

Для корректного отображения символов кириллицы, необходимо представить их в Wi ndows-кодировке (CP 1251).

Печать строки текста:

WScript.Echo "Использование метода Echo"

Печать строки текста и результатов вычислений:

WScript.Echo "Вычислить 1+2=", 1+2

Для вывода на экран многострочного текста в концы строк нужно вставить символы перевода строки: vbCrLf.

WScript.Echo "Выведем"&vbCrLf&"этот текст"&vbCrLf&"в несколько"&vbCrLf&"строк"

Метод Write и WriteLine объекта wScript.StdOut

Данные методы можно применять только в консольном режиме.

Метод Write и WriteLine выводят строки, Write выводит строку и оставляет курсор в конце строки, WriteLine переводит курсор на следующую строку.

WScript.StdOut.Write "Вывод строки без перехода на следующую строку"

WScript.StdOut.WriteLine "Вывод строки с текущей позиции курсора"

WScript.StdOut.WriteLine "Следующая строка"

Можно при использовании указанных методов сохранять ссылки на стандартный выходной поток WScript.StdOut в отдельную переменную, а затем при вызове методов Write и WriteLine использовать ее.

Dim n, St 'объявление переменных

n=1+2

Set St=WScript.StdOut 'Сохранение ссылки на StdOut в переменную.

St.WriteLine "1+2=" & n 'Вывод строки

Функции MsgBox

С помощью функции Msgbox можно выводить информацию в диалоговое окно с несколькими кнопками, можно задавать заголовок и значок окна.

MsgBox(строковая переменная, кнопки диалогового окна, заголовок окна)

Константы диалоговых окон

Имя	значение	Описание
vbOnly	0	Выводится кнопка Ok
vbOkCancel	1	Выводятся кнопки Ok, Отмена
vbAbortRetryIgnore	2	Выводятся кнопки Стоп, Повтор, Пропустить
vbYesNoCancel	3	Выводятся кнопки Да, Нет, Отмена
vbYesNo	4	Выводятся кнопки Да, Нет
vbRetryCancel	5	Выводятся кнопки Повтор, Отмена
vbCritical	16	Выводится значок Stop Mark
vbQuestion	32	Выводится значок Question Mark
vbExclamation	48	Выводится значок Exclamation Mark
vbInformation	64	Выводится значок Information Mark
vbDefaultButton1	0	По умолчанию в окне выбирается первая кнопка
vbDefaultButton2	256	По умолчанию в окне выбирается вторая кнопка
vbDefaultButton3	512	По умолчанию в окне выбирается третья кнопка
vbDefaultButton4	768	По умолчанию в окне выбирается четвертая кнопка
vbApplicationModal	0	Диалоговое окно выводится в модальном режиме
vbSystemModal	4096	Диалоговое окно выводится в модальном режиме и располагается сверху всех запускаемых приложений.

Результаты нажатия кнопок в диалоговых окнах

Имя	Значение	Описание
vbOk	1	Нажатии кнопка Ok
vbCancel	2	Нажатии кнопка Отмена
vbAbort	3	Нажатии кнопка Стоп
vbRetry	4	Нажатии кнопка Повтор
vbIgnore	5	Нажатии кнопка Пропустить
vbYes	6	Нажатии кнопка Да
vbNo	7	Нажатии кнопка Нет

Dim Res, Text, Title 'объявление переменных

'Text="Вывод" &vbCrLf& "строк"

Title="Заголовок окна"

Res=MsgBox(Text,vbOkCancel+vbInformation,Title)

'в диалоговом окне присутствуют кнопки Ok, Cancel и значок информационного окна

if Res=vbOk then MsgBox "Нажата кнопка Ok" Else MsgBox "Нажата кнопка отмена" End If

'определили какая кнопка нажата