join columns

[JB]

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