join columns

[Magicgate Software - Skip Kimpel]

Haha. I like the paranoid version :)

SKIP


On Thu, Aug 28, 2014 at 3:53 PM, Alain Farmer <alain_farmer at yahoo.com>
wrote:

> 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
> _______________________________________________
> 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
>