Haha. I like the paranoid version :) SKIP
On Thu, Aug 28, 2014 at 3:53 PM, Alain Farmer <alain_far...@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 <sund...@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_far...@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_far...@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 <sund...@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@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@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@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@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@lists.runrev.com Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-livecode
