Чтение данных из параметрического файла осуществляется с помощью Windows Scripting Host (WSH)[2], поддерживаемого VBScript.

Данные считываются в массив, элементами которого являются строки, содержащиеся в файле, по следующему шаблону:

Пример 3:

Text=""

i=0

Dim Array()

FileName="cache.ini"

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(filename) Then

    Set Fline = fso.OpenTextFile(FileName)

           Do While Not (Fline.atEndOfStream)

           redim preserve array(i)

           Array(i)= Fline.ReadLine

           i=i+1

    Loop

Else

Text="File Not Found"

End If

For i=lbound(array) to ubound(array)

Text=Text+cstr(array(i))+vbCrLf ‘ vbCrLf=chr(13)+chr(10)=ENTER

Next

MsgBox Text

После того как сформирован массив, содержащий строки параметрического файла, осуществляется анализ его элементов и распознавание значений параметров по следующему алгоритму:

n  Чтение элементов массива.

n  Поиск в строке символа «=» с помощью функции instr()[3].

n  Сравнение строк до знака равенства с названиями параметров, перечисленных в таблице 1.

n  В случае совпадения названия параметра и части строки до знака равенства осуществляется чтение строки за знаком равенства и присвоение прочитанных значений параметрам.

В программном коде реализация описанного алгоритма выглядит следующим образом: