Hello Everyone.
I'm hoping you can help. I'm scanning barcodes into a textbox, and the resulting barcode data is at MINIMUM 33 characters long. Some barcodes produce data which is greater than 33 characters.
The goal is to automatically break down the resulting string into their corresponding text boxes (based on the data found within the barcode string). I have this part working fine for barcodes that produce a data string of 33 characters.
The first 26 characters are always consistent, always a fixed length - the remaining characters represent a serial number, and this can change.
What I cannot figure out is how to handle barcodes that produce variable length data. Ideally, textbox4 would contain this serial number data, and would vary in length based on the remaining length of data in the various barcodes.
Right now my event handler looks like this:
Code:
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
'Receives scanned barcode data into textbox1, then breaks up the string into the other textboxes
If TextBox1.Text.Length >= 33 Then
scan = TextBox1.Text
TextBox2.Text = scan.Substring(8, 5)
TextBox3.Text = scan.Substring(15, 10)
TextBox4.Text = scan.Substring(26, 7)
TextBox1.Text = ""
TextBox1.Focus()
If Not TextBox2.Text = "" Then
Button1.Enabled = True
End If
End If
End Sub
This works great for fixed-length barcodes, but obviously fails when the length varies.
I revised the code to reflect a greater barcode length, as follows:
Code:
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
'Receives scanned barcode data into textbox1, then breaks up the string into the other textboxes
If TextBox1.Text.Length = 40 Then
scan = TextBox1.Text
TextBox2.Text = scan.Substring(8, 5)
TextBox3.Text = scan.Substring(15, 10)
dim i as integer
for i=26 to scan.length -1
textbox4.text = textbox4.text & scan.substring(i,1)
next i
TextBox1.Text = ""
TextBox1.Focus()
If Not TextBox2.Text = "" Then
Button1.Enabled = True
End If
End If
End Sub
Again, this worked fine, and added the characters to textbox4 in a different manner, but this still reflects a barcode of a hardcoded/fixed length (40 in this case).
I have experimented with various logical operator combinations for the if statement, but the value of "33" is my crux. When the character count hits a MINIMUM of 33 I need it to automatically recognize that it needs to start parsing the string..... but I need it to continue reading the input in case there are more characters. Unfortunately there are no "end of line" designators on the character string, no carriage returns, etc. In this case I just can't figure out how to keep reading until there is no more to read.
Can someone help me with this? I've been staring at it too long.
THANK YOU IN ADVANCE!!
