VBScript collections accessor

Sun, 29 Jun 2014 11:42:45 GMT

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

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 ?

topic VBScript collections accessor in QlikView

VBScript collections accessor