Академия Специальных Курсов по Компьютерным Технологиям
    Главная страница Послать письмо
 
AskIt.ru  
   
   
   
   
   
   
 
 
  Главная / Заказные курсы / Программирование для администраторов
 
 

Получить учебные материалы по этому курсу


<-- Назад Читать дальше -->

Упражнение 3. Работа с циклами

Циклы в VBScript: самостоятельная работа

Скопируйте на свой компьютер файл \\London\templates\loops.vbs и откройте его в Primal Script. Этот скрипт записывает строковое значение в текстовый файл "C:\output.log" только один раз.

Измените скрипт таким образом, чтобы он записывал строку в файл указанное вами количество раз (то, которое передается через InputBox в переменную nCounter).

Код скрипта loops.vbs выглядит так:

Dim oFso
Dim oMyFile
Dim nCounter
Dim sLine

sLine = InputBox ("Введите строку")
nCounter = InputBox("Введите значение счетчика")

Set oFso = CreateObject("Scripting.FileSystemObject")
Set oMyFile = oFso.CreateTextFile("C:\output.log")
oMyFile.WriteLine(sLine)

Ответ к упражнению 3. Работа с циклами

Итоговый код скрипта может быть таким:

Dim oFso

Dim oMyFile

Dim nCounter

Dim sLine

sLine = InputBox ("Введите строку")

nCounter = InputBox("Введите значение счетчика")

Set oFso = CreateObject("Scripting.FileSystemObject")

Set oMyFile = oFso.CreateTextFile("C:\output.log")

For i = 1 To nCounter

    oMyFile.WriteLine(sLine)

Next

 

   
   
   
   
   
   
   
   
   
   
 
<-- Назад Читать дальше -->

Получить учебные материалы по этому курсу


 

 
© 2004-2016, Академия Специальных Курсов
по Информационным Технологиям
.
Все права защищены.

Разработка NevaStudio
г. Санкт-Петербург, Васильевский остров,
20-я линия, д. 7
Офис 101, 2-й этаж
Телефон: 8(812)922-47-60
E-mail: info@askit.ru