Блог

Я пытаюсь создать массив объектов в vbscript, где каждый объект имеет строку и число в качестве свойств. Строка поступает из другого массива, и число увеличивается в цикле.

Вот ошибка, возникающая в строке newValues(i) = (New Pet)(values(i), number) :

…и вот мой код:

 Class Pet
    Public objectName
    Public objectNumber

    ' constructor here:
    Public Default Function Init(name, number)
        objectName = name
        objectNumber = number

        Set Init = Me
    End Function
End Class

values = Array(_
    "Cat",_
    "Dog",_
    "Bird"_
)

number = 3
ReDim newValues(uBound(values))

For i = 0 to uBound(values)
    newValues(i) = (New Pet)(values(i), number)
    number = number   1
Next
 

Используется Set при назначении объектов.

 Set newValues(i) = (New Pet)(values(i), number)