join columns

[Alain Farmer]

Here is the paranoid version :

function insertAsColumn colNumber, dataToInsert, intoThisTable
    --
    if dataToInsert is empty then
        answer "insert empty column ?" with "cancel" or "insert"
        if it is "cancel" then exit to top
    end if
    --
    if intoThisTable is empty then return dataToInsert
    --
    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
    put the number of items of line 1 of intoThisTable into lastCol
    if (colNumber < 1) or (colNumber > lastCol) then
        ask "colNumber must be an integer between 1 and" && lastCol with 1
        if the result is "cancel" then exit to top
        if (it is empty) or (it is not a number)
        then die "colNumber must be an integer between 1 and" && lastCol
    end if
    --
    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
    --
end insertAsColumn

on die dyingMessage
    answer dyingMessage
    exit to top
end die



On Thursday, August 28, 2014 3:31:30 PM, JB <sundown at pacifier.com> wrote:
 


Thank you, Alain!  This example will
help me out.

John Balgenoth


On Aug 28, 2014, at 12:24 PM, Alain Farmer <alain_farmer at yahoo.com> wrote:

> Correction:
> 
> function 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
>     --
> end insertAsColumn
> 
> on die dyingMessage
>     answer dyingMessage
>     exit to top
> end die
> 
> 
> 
> 
> On , Alain Farmer <alain_farmer at yahoo.com> wrote:
> 
> 
> 
> 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
> _______________________________________________
> 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

> 


_______________________________________________
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