Parent page: Service Functions – Math (QTP, VBScript)

Convert array to set

Public Function Array2Set(ByVal dvArray, ByVal sSetSeparator)
  Dim Iter
  Dim stResult
 
  If Not isArray(dvArray) Then
    Array2Set = ""
    Exit Function
  End If
  If UBound(dvArray) = -1Then
    Array2Set = ""
    Exit Function
  End If
 
  If sSetSeparator = "" Then
    sSetSeparator = chrSetSeparator
  End If
 
  stResult = CStr(dvArray(0))
  For Iter=1 To UBound(dvArray)
    stResult = stResult & sSetSeparator & CStr(dvArray(Iter))
  Next
 
  Array2Set = stResult
End Function

Convert set to array

Public Function Set2Array(ByVal stSet, ByVal sSetSeparator)
  Dim Iter, dvArray
 
  If sSetSeparator = "" Then
    sSetSeparator = chrSetSeparator
  End If

  dvArray = Split(stSet, sSetSeparator)
  For Iter=0 To UBound(dvArray)
    dvArray(Iter) = Trim(dvArray(Iter))
  Next
 
  Set2Array = dvArray
End Function