VBScript: обработка каждой строки текстового файла

Использование цикла Do ... Loop

Если вам нужно обработать каждую строку текстового файла с помощью VBScript, то вы можете это сделать при простого цикла Do ... Loop. Предположим, есть файл list.txt, который содержит какие-то значения в каждой строке. Создадим в той же директории файл list.vbs, и напишем там следующий скрипт:

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("list.txt")
Do Until objFile.AtEndOfStream
	Msgbox objFile.ReadLine
Loop
objFile.Close

При выполнении данного скрипта, будет выводиться окно со значением каждой строки, до тех пор, пока содержимое файла не подойдет к концу.