Gleaning a specific part out of a string
-
I am working on trying to get a specific part out of an array element and making a descision based on what number is presented. The number is 10 decimal digits long before conversion to hex. Once it is converted to hex the upper four numbers are the key to what get done next. How do you get the four upper bits out of a string and then determine what they are in a case statement? The following is what I have for the function so far Function manipdata() As Integer 'Look at the 3rd and 4th values from each array and determine what type of data it is and display it 'to the user in some format. Dim i As Integer = 1 Dim a As Boolean Dim b As String Do While i < icount b = Hex(son(i).data) a = b.StartsWith("1708") If a = True Then MessageBox.Show("You found a fwd one") End If 'MessageBox.Show("You found an aft one") 'Case "0812" ' MessageBox.Show("Go home") 'end case i = i + 1 Loop End Function Thanks and any help would be appreciated.
-
I am working on trying to get a specific part out of an array element and making a descision based on what number is presented. The number is 10 decimal digits long before conversion to hex. Once it is converted to hex the upper four numbers are the key to what get done next. How do you get the four upper bits out of a string and then determine what they are in a case statement? The following is what I have for the function so far Function manipdata() As Integer 'Look at the 3rd and 4th values from each array and determine what type of data it is and display it 'to the user in some format. Dim i As Integer = 1 Dim a As Boolean Dim b As String Do While i < icount b = Hex(son(i).data) a = b.StartsWith("1708") If a = True Then MessageBox.Show("You found a fwd one") End If 'MessageBox.Show("You found an aft one") 'Case "0812" ' MessageBox.Show("Go home") 'end case i = i + 1 Loop End Function Thanks and any help would be appreciated.
Your description seems be a little vague and the code sample doesn't make much sense either, but we'll try this. What I think your doing is looking at the first four hex characters, or 3rd and 4th characters only (?) and doing some processing base on what you find. I THINK(!) your looking for something like this: (This example will look at the 3rd and 4th characters only!: ie. 17_08_)
Dim i As Integer = 1 Dim b As String Do While i < icount ' Grab the 3rd and 4th characters of the Hex code. ' This assumes that the Hex code is ALWAYS 4 digits long! b = Hex(son(i).data).ToString().SubString(3, 2) Select b Case "08" MessageBox.Show("You found a fwd one") Case "12" MessageBox.Show("Go Home") Case Else MessageBox.Show("Unknown code found: " & b) End SelectRemember that Hex will NOT return a value padded with 0's on the left. An integer (15) converted to hex will return F, not 000F. So this method will NOT work in all cases. There may be a better method for making this determination, but it depends ENTIRELY on the data that you have in son().data. RageInTheMachine9532