| |
|
|
| |
Array Convertion to String |
|
| |
|
|
an array
its string prepresentation
| |
|
|
| |
Implementation
01 function array_convert( array_object )
02 dim index: index = 0
03 dim count: count = array_length( array_object )
04 dim result: result = "["
05 do while( index < count )
06 if( isarray( array_object( index ) ) ) then
07 result = result + array_convert( array_object( index ) ) + vbcrlf
08 elseif( isobject( array_object( index ) ) ) then
09 result = result + "
10 elseif( isnull( array_object( index ) ) ) then
11 result = result + ", "
12 else
13 result = result + cstr( array_object( index ) ) + ", "
14 end if
15 index = index + 1
16 loop
17 array_convert = left( result, len( result ) - 2 ) + "]"
18 end function
|
|
| |
|
|
|