Development‎ > ‎VBScript‎ > ‎

Deserialize

Code:

'*********************************************************************************
'* Function signature:
'* Description:
'*                  
'*
'* Parameters
'*
'*
'*
'* Return Value
'*
'*********************************************************************************
Function array_Deserialize(sSerializedString, byRef aArray)
 
      Dim iRowIndex, iColumnIndex
 
      For each sRecord in split(sSerializedString, "<RS>")
            For each sField in split(sRecord, "<FS>")
                  aArray(iRowIndex, iColumnIndex) = sField
                  iColumnIndex = iColumnIndex + 1
            Next
            iRowIndex = iRowIndex + 1
            iColumnIndex = 0
      Next
 
End Function
Comments