Getting a cascaded For Next loop to execute they way I need it to

I am trying to extract a series of data from a variable.  The variable is 102 characters long.  Each piece of data is 2 digits long.  Instead of writing 51 midstring statements, how can I create a for next loop to do the job.  Here is what I am thinking but I know I do not have the right syntax.  Help....Thanks


Kenny

            Dim X As Int16
            Dim Y As Int16
            For x = 1 To 51 and Y = 1 to 51
                Dim readingElaobj(X) As Int16
                readingElaobj(X) = Mid(readingElaObjNumbers, Y, 2)
                Y = Y + 1
            Next
kwh3856Asked:
Who is Participating?
 
ptakjaConnect With a Mentor Commented:
Try this:
Dim idx As Integer = 0
Dim readingElaobj(51) As Int16
For X = 0 To 101 Step 2
   readingElaobj(idx) = Mid(readingElaObjNumbers, X, 2)
    idx += 1
Next



 
0
 
kwh3856Author Commented:
Thanks for the quick response.

Kenny
0
All Courses

From novice to tech pro — start learning today.