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 <[email protected]> wrote: Thank you, Alain! This example will help me out. John Balgenoth On Aug 28, 2014, at 12:24 PM, Alain Farmer <[email protected]> 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 <[email protected]> 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 <[email protected]> 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 > [email protected] > Please visit this url to subscribe, unsubscribe and manage your subscription > preferences: > http://lists.runrev.com/mailman/listinfo/use-livecode > _______________________________________________ > use-livecode mailing list > [email protected] > Please visit this url to subscribe, unsubscribe and manage your subscription > preferences: > http://lists.runrev.com/mailman/listinfo/use-livecode > _______________________________________________ use-livecode mailing list [email protected] Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-livecode _______________________________________________ use-livecode mailing list [email protected] Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-livecode
