I am analyzing some Excel VBA script and I want to turn it into a QV VBScript code.
First there is this method
'--------------------------------------------
Public Function cGetDomainClassification() As Collection
'--------------------------------------------
Dim DomainClassification(0 To 10) As String
Dim cDomainClassifications As New Collection
DomainClassification(0) = "AT": DomainClassification(1) = "Base": DomainClassification(2) = "Platform": DomainClassification(3) = "Platform": DomainClassification(4) = "Base": cDomainClassifications.Add Key:="AT", Item:=DomainClassification
DomainClassification(0) = "ATP": DomainClassification(1) = "Python": DomainClassification(2) = "Utilities": DomainClassification(3) = "Extensibility": DomainClassification(4) = "Extensibility": cDomainClassifications.Add Key:="ATP", Item:=DomainClassification
Set cGetDomainClassification = cDomainClassifications
End Function
Is it possible to use same syntax in QV macro ?
Second, I am using this method in this call:
Set cDomainClassifications = cGetDomainClassification()
lI = 1
Do
sType = cDomainClassifications(lI)(0)
' do things
lI = lI + 1
Loop While ('some condition)
in line sType = cDomainClassifications(lI)(0) is it correct that we look for the element (a list) of the collection with key II, and take the first element of this list ? Is it the same in QV VBScript ?