Getting a single column of a datagrid

Peter M. Brigham, MD pmbrig at gmail.com
Sat May 12 10:27:26 EDT 2012


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
> 





More information about the Use-livecode mailing list