Table insertion

[markstaylor]

If I have two tables Table1 and Table2, how can I insert one item of Table2 into Table1 after every 4 items

T1 T2
1 A
2 B
3 C
4 D
... ...
New Table1
1
2
3
4
A
...


Mark

[Worm]

Someone will probably come up with a more stream-lined way of doing this, but for a quick down and dirty, this should work.



--Initiate tables
tblNum={"1","2","3","4"}
tblAlph={"A","B","C","D"}

--Initiate base variables
blnDone = false
nInsertPos = 5
nCtr = 0

--loop until we say we're done
while blnDone == false do
if Table.Count(tblNum) >= (nInsertPos -1) then
nCtr = nCtr + 1
if Table.Count(tblAlph) >= nCtr then
Table.Insert(tblNum, nInsertPos, tblAlph[nCtr])
nInsertPos = nInsertPos + 5
else
blnDone = true
end
else
blnDone = true
end
end

[TJ_Tigger]

This should work as well, not quick enough on the draw (code) to beat work. Need more coffee.


--initialize tables
--table 1
table1 = {};
for x = 1,20 do
Table.Insert(table1, x, x);
end

t1display = ""
for y = 1,Table.Count(table1) do
t1display = t1display .." ".. table1[y]
end

Dialog.Message("Table1", t1display)

--table two this uses the ascii decimal values to for A-E
table2 = {};
for x = 65,69 do
Table.Insert(table2, x - 64, String.Char(x));
end

t2display = "";
for t2i, t2v in table2 do
t2display = t2display .." ".. t2v;
end

Dialog.Message("Table2", t2display);

--Check that the tables exist.
if table1 and table2 then
--create a new table and copy the contents from the table1 to the new table
newtable = {};
for index,value in table1 do
Table.Insert(newtable, index, value);
end

--This is what inserts the contents of table2 into the fourth position in the newtable.
for i,v in table2 do
Table.Insert(newtable, (4*i)+i, v)
end

--display for the new table
tndisplay = "";
for tni, tnv in newtable do
tndisplay = tndisplay .." ".. tnv;
end

Dialog.Message("NewTable", tndisplay);
else
Dialog.Message("Notice", "Your tables are not complete. Click the two table buttons to create those tables first");
end


After posting this looks like a lot of code, the code that inserts your information from table two into the new table is this code:


for i,v in table2 do
Table.Insert(newtable, (4*i)+i, v)
end


I hope that helps.

[markstaylor]

Thats just what I was looking for.

If I create a table from one listbox and a second from another listbox how can I use the example above to fill in the third listbox with the combined data?

[Worm]

after you get the table set to the values you want, then do something like this.



--clear the listbox
ListBox.DeleteItem("Listbox3", LB_ALLITEMS)

--add the elements from the table to the listbox
for n, Table.Count(tblNum) do
ListBox.AddItem("Listbox3", tblNum[n])
end



Thats just what I was looking for.

If I create a table from one listbox and a second from another listbox how can I use the example above to fill in the third listbox with the combined data?

[markstaylor]

When I use that example I get compiling error so I changed it to
for n, v in newtable do
ListBox.AddItem("Listbox1", newtable[n]);
end

But I get a "Argument 2 must be of type String" error

[Worm]

Sorry, I typed that one out. There I go thinking I had the syntax down when I didn't. I didn't have n=1 in the for statement




--clear the listbox
ListBox.DeleteItem("Listbox3", LB_ALLITEMS)

--add the elements from the table to the listbox
for n=1, Table.Count(tblNum) do
ListBox.AddItem("Listbox3", tblNum[n])
end