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

Convert set to typed array

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

 stSet = Replace(stSet, "\,", Chr(176))
 stSet = Replace(stSet, "\ ", Chr(187))

  dvArray = Split(stSet, sSetSeparator)
  For Iter=0 To UBound(dvArray)
    Select Case UCase(sFormat)
      Case "NUMBER"
        dvArray(Iter) = DblVal(Replace(Replace(Trim(dvArray(Iter)), Chr(176), ""), Chr(187), ""))
      Case "DATE"
        dvArray(Iter) = DateVal(Replace(Replace(Trim(dvArray(Iter)), Chr(176), ""), Chr(187), ""))
      Case "STRING"
        dvArray(Iter) = CStr(Replace(Replace(Trim(dvArray(Iter)), Chr(176), ","), Chr(187), " "))
      Case Else
        dvArray(Iter) = Replace(Replace(Trim(dvArray(Iter)), Chr(176), ","), Chr(187), " ")
    End Select
  Next
 
  Set2TypedArray = dvArray
End Function

Unit Tests

  dvArray = Set2TypedArray("1.0,-2, 3 5", ",", "Number")
  If dvArray(0) <> 1 Then
    Log.Error("Set2TypedArray failed")
  End If
  If dvArray(2) <> 0 Then
    Log.Error("Set2TypedArray failed")
  End If
  dvArray = Set2TypedArray("1.0,-2, 3 5", ",", "String")
  If dvArray(0) <> "1.0" Then
    Log.Error("Set2TypedArray failed")
  End If
  If dvArray(2) <> "3 5" Then
    Log.Error("Set2TypedArray failed")
  End If
  dvArray = Set2TypedArray("1.0,-2\,, \ 3 5", ",", "String")
  If dvArray(0) <> "1.0" Then
    Log.Error("Set2TypedArray failed")
  End If
  If dvArray(2) <> " 3 5" Then
    Log.Error("Set2TypedArray failed")
  End If
  dvArray = Set2TypedArray("1.0,-2\,, \ 3 5", ",", "Number")
  If dvArray(0) <> 1 Then
    Log.Error("Set2TypedArray failed")
  End If
  If dvArray(1) <> -2 Then
    Log.Error("Set2TypedArray failed")
  End If
  dvArray = Set2TypedArray("1.0,-2\,a, \ 3 5 , abc, 12/10/2001", ",", "")
  If dvArray(1) <> "-2,a" Then
    Log.Error("Set2TypedArray failed")
  End If