Упражнение 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

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