How do I make text box to a List for sql query

Benson

I am trying to make a text box to allow users to input information for sql query, and users copy this information from excel to text box. my question:

1. This length of Lot is fixed =14, and there are 11 lots in this example. Why the length of text box is 176?

2. How to  make this text into a list as {"18148018-01-00","18148018-01-01","18148018-02-00"......}

Names Default To Here( 1 );
//make a text box for user input
New Window( "Example",
 Outline Box( "Lot List Input",
  H List Box( Text Box( "=>" ), teb = Text Edit Box( "Please input your lots", <<Set Width( 200 ), <<set nLines( 20 ) ) )
 )
);

length(teb<<get text);

 

 

 

LotList.xlsx

txnelson

The issue is, that the paste buffer that you copied into from your Excel table, contains Carriage Returns(hex 0D) and Linefeed(hex 0A) at the end of each cell that was copied.  Below is the Hex representation of the list of lots, taken from the pasted Excel file.  It is actually all one long line of hex characters, but for illustration, I have broken the line of hex characters at the end of each lot

31383134383031382D30312D30300D0A
31383134383031382D30312D30310D0A
31383134383031382D30322D30300D0A
31383135383031312D30312D30300D0A
31383135383031312D30322D30300D0A
31383138383030322D30312D30300D0A
31383138383030322D30312D30320D0A
31383138383030322D30312D30330D0A
31383138383030342D30312D30300D0A
31383439383030372D30312D30300D0A
31383441383030352D30312D30300D0A

 Thus, 

176 = 11 X (14 + 2)

 

Here is a piece of code that will break the string into a list of strings

fullText = teb << get text;
fullTextList = {};
start = 1;
While( Substr( fullText, start, 14 ) != "",
	Insert Into( fullTextList, Substr( fullText, start, 14 ) );
	start = start + 16;
);
show( fullTextList );