join columns

[Alain Farmer]

on insertAsColumn colNumber, dataToInsert, intoThisTable
    --
    if the number of lines of dataToInsert is not the number of lines of intoThisTable
    then die "Error: Lists have different lengths."
    --
    set the itemdel to tab
    repeat for each line x in dataToInsert
        get line x of dataToInsert
        put it & tab before item colNumber of line x of intoThisTable
    end repeat
    return intoThisTable
    --
insertAsColumn

on die dyingMessage
    answer dyingMessage
    exit to top
end die



On Thursday, August 28, 2014 2:59:04 PM, JB <sundown at pacifier.com> wrote:
 


Richard Gaskin wrote a function to get a column
from a list.

function GetCol pData, pCol --Richard Gaskin
    set the itemdel to tab
    put empty into tReturnList
    repeat for each line tLine in pData
        put item pCol of tLine &cr after tReturnList
    end repeat
    delete last char of tReturnList -- trailing CR
    return tReturnList
end GetCol

Does anyone know how to convert this so you can
join the selected columns back together in any
order you want?

John Balgenorth
_______________________________________________
use-livecode mailing list
use-livecode at lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription preferences:
http://lists.runrev.com/mailman/listinfo/use-livecode