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

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


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

Упражнение 5. Работа со встроенными функциями

Функция Rnd() в VBScript: самостоятельная работа

Откройте сохраненный скрипт loops.vbs и измените его таким образом, чтобы запись производилась в файл на диске "C:" со случайным образом сгенерированным именем. При этом имя должно состоять из 8 цифр и расширения "log". Убедитесь, что при следующем запуске скрипта генерируется новое имя для файла.

Ответ к упражнению 5. Работа со встроенными функциями

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

Dim oFso

Dim oMyFile

Dim nCounter

Dim sLine

Dim sFileName

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

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

Randomize()

sFileName= Int(Rnd() * 100000000) & ""

Set oFso = CreateObject("Scripting.FileSystemObject")

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

For nCounter = 1 To 10

    oMyFile.WriteLine(sLine)

Next

 

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

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


 

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

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