Catia VBA to .CATScript for type “Collection”

Question

In my VBA code i\'m using the following:

Dim docsToSave As Scripting.Dictionary
Set docsToSave = New Scripting.Dictionary

Dim toRemove As Collection
Set toRemov         


        

Answer 1

For the posted code to behave in the same way in VBScript as it would in VBA the following could be used:

Dim docsToSave
Set docsToSave = CreateObject("Scripting.Dictionary")

Dim toRemove
Set toRemove = CreateObject("Scripting.Dictionary")

...
More Code
...

For i = 0 To toRemove.Count - 1
    docsToSave.Remove (toRemove.keys()(i))
Next

Furthermore, to add to the Dictionary a different syntax is used compared to a Collection:

'VBA-code for a collection:
toRemove.Add (x)

'VBScript for a dictionary:
Call toRemove.Add(x, i)

These changes were sufficient for me to have my VBA-script work in VBScript.