Returns a new clsD3DynamicArray object that contains a specific attribute, value, or sub-value extracted from a clsD3DynamicArray.
Set oDynArray = object.brExtract( vnAMC, [ vnVMC], [ vnSVMC])
| Parameter | Description |
|---|---|
| oDynArray | An object variable that represents a clsD3DynamicArray object that contains the extracted element. |
| object | An object variable that represents a clsD3DynamicArray object from which an element is extracted. |
| vnAMC | A Variant (Long subtype) specifying the attribute mark count where the extraction will begin. |
| vnVMC | Optional. A Variant (Long subtype) specifying the value mark count where the extraction will begin. |
| vnSVMC | Optional. A Variant (Long subtype) specifying the sub-value mark count where the extraction will begin. |
If vnAMC is zero, then the entire dynamic array is returned.
Sub Main() Dim oEnv As New clsD3Environment Dim oArray_TopSellers As New clsD3DynamicArray Dim oArray2 As clsD3DynamicArray oArray_TopSellers.brCString = "Smith" & D3AMChr & "Jones" & D3AMChr & "Green" Set oArray2 = oArray_TopSellers.brCopy ' Create a comma-delimited list. oArray2.brConvert D3AMChr, "," Debug.Print "The top sellers are " & oArray2.brCString ' Extract the 1st attribute. Debug.Print "The #1 seller is " & oArray_TopSellers.brExtract(1).brCString Set oArray_TopSellers = Nothing Set oEnv = Nothing End Sub
extract