Public Class CollectionTransformer

Code Sample

• %REM
  The following code shows how to create a transformer to convert scalars to doubles. The code is very basic with no error handling.
  %END REM
  Class DoubleTransformer as CollectionTransformer
      Function transform(source as Variant) as Variant
          If (IsNumeric(source)) Then
              If (Not TypeName(source) = "BOOLEAN" And Not IsDate(source)) Then
                  transform = CDbl(source)
              End If
          End If
      End Function
  End Class
  
  Dim coll1 as New Collection("SCALAR", Nothing, False, False)
  Dim coll2 as New Collection("DOUBLE", Nothing, False, False)
  Dim transformer as New DoubleTransformer()
  
  ' Populating collection omitted
  
  Call coll1.transform(transformer, coll2)

Methods Detail

• transform

  Public Function transform(source As Variant) As Variant
  Function to transform a member of a Collection. If there is no return value, the element is skipped and nothing gets added to the new Collection for this element. Thus the function can perform a filter and a transform simultaneously.
  idx	Argument	Data Type	Attributes	Comments
  1	source	Variant		Value to transform
  Code Sample
  %REM The following code shows how to create a transformer to convert scalars to doubles. The code is very basic with no error handling. %END REM Class DoubleTransformer as CollectionTransformer Function transform(source as Variant) as Variant If (IsNumeric(source)) Then If (Not IsBoolean(source) And Not IsDate(source)) Then transform = CDbl(source) End If End If End Function End Class Dim coll1 as New Collection("SCALAR", Nothing, False, False) Dim coll2 as New Collection("DOUBLE", Nothing, False, False) Dim transformer as New DoubleTransformer() ' Populating collection omitted Call coll1.transform(transformer, coll2)

• New

  Public Sub New()