Getting a single column of a datagrid

[Peter M. Brigham, MD]

Thanks, Bob. 

BTW, don't know why but as you can see your LC scripts tend to have asterisks bracketing keywords, not to mention extra blank lines. Are you pasting formatted text that's getting mis-translated?

I can clean this up and try it out, thanks again.

-- Peter

Peter M. Brigham
pmbrig at gmail.com
http://home.comcast.net/~pmbrig


On May 10, 2012, at 5:48 PM, Bob Sneidar wrote:

>> *function* PrintArray @pArray, pDimension, pFullData
>> 
>>  *if* pDimension is empty *then* *put* 0 into pDimension
>> 
>> 
>> 
>>  *put* the keys of pArray into theKeys
>> 
>>  *sort* theKeys numeric
>> 
>> 
>> 
>>  *repeat* for each line theKey in theKeys
>> 
>>     *if* pArray[theKey] is an array *then*
>> 
>>        *put* _printCharXTimes(space, pDimension * 5) & theKey & cr
>> aftertheText
>> 
>>        *put* pArray[theKey] into theTempArray
>> 
>>        *put* PrintArray(theTempArray, pDimension + 1, pFullData) aftertheText
>> 
>>     *else*
>> 
>>        *if* pFullData *then*
>> 
>>           *put* _printCharXTimes(space, pDimension * 5) &  theKey & ":" &&
>> pArray[theKey] & cr after theText
>> 
>>        *else*
>> 
>>           *put* _printCharXTimes(space, pDimension * 5) &  theKey & ":" &&
>> line 1 of pArray[theKey] & cr after theText
>> 
>>        *end* *if*
>> 
>>     *end* *if*
>> 
>>  *end* *repeat*
>> 
>> 
>> 
>>  *return* theText
>> 
>> *end* PrintArray
>> 
>> 
>> 
>> *private* *function* _printCharXTimes pChar, pTimes
>> 
>>  *local* theStr
>> 
>> 
>> 
>>  *repeat* with i = 1 to pTimes
>> 
>>     *put* pChar after theStr
>> 
>>  *end* *repeat*
>> 
>>  *return* theStr
>> *end* _printCharXTimes
>