|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Повторение двух и более команд |
|
VBS/WSH/JS - [решено] Повторение двух и более команд
|
Новый участник Сообщения: 28 |
Добрый день.
Нужно сделать повторение пяти строк в коде. Вот пример: Dim FSO, c, a, b, i, WshShell Set FSO=CreateObject("Scripting.FileSystemObject") i = 1 a = InputBox("Для папки введи - pack, для ткстового документа - txt, для vbScript'a - VBScript, выйти - exit") If StrComp(a, "exit", vbTextCompare) Then else WScript.Quit 1 end if c = inputbox("Введите название.") fso.Createtextfile(c & ".txt") [первая метка повторения] b = inputbox("Введите содержание. Если закончить содержание то введите <<exits>>. Каждая строка начинается с начала.") set write = fso.OpenTextFile(c & ".txt", 2, false) write.writeline b write.close If StrComp(b, "exits", vbTextCompare) Then [вторая метка повторения] else MsgBox "Файл " & c & " успешно создан!" WScript.Quit 1 end if Заранее спасибо. |
|
------- Отправлено: 22:14, 30-11-2017 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать |
Отправлено: 08:35, 01-12-2017 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Как запретить запуск двух и более копий 1С8 | ragnar40 | Хочу все знать | 33 | 11-05-2018 14:02 | |
Разное - Подключение более двух одновременных PPTP сессий | DOCznet | Microsoft Windows 7 | 0 | 10-02-2014 17:41 | |
В Windows и Office найдено более двух десятков «дыр» | CnyH9I | Флейм | 4 | 05-02-2010 16:58 | |
Microsoft «научит компьютерной грамоте» более двух миллионов человек | OSZone News | Новости и события Microsoft | 7 | 24-02-2009 15:48 | |
Запуск в WPI двух команд одновременно | ChVL | Автоматическая установка приложений | 0 | 05-12-2007 08:36 |
|