Array go out of bounds in VB

Question

В настоящее время я работаю над программой, которая преобразует строку в «комбинированное целое» (а именно: из строки она будет разделена на два символа за раз, а затем каждый символ в каждая группа будет преобразована в номер ASCII, а затем первый символ будет умножен на 256 (сдвиг 8 бит влево) и добавит второй символ. Он не должен исключать/забывать любой символ внутри строки

Здесь, когда Проблема действительно начать: он бросил IndexOutOfRangeException

Dim input As String = TextBox1.Text.PadLeft(1) 
    Dim charArr As Char() = input.ToCharArray 
    Dim intGroup As UShort 
    Dim strout As String = "" 

    For index = 0 To charArr.Length - 2 Step 2 
     Dim i = index 
     Dim a = charArr(i) 
     Dim b = charArr(i + 1) 

     intGroup = CByte(AscW(a)) * 256 + CByte(AscW(b)) 
     strout = strout + CStr(intGroup) + " " 
    Next 

    MsgBox(strout) 

Мое предположение было то, что я изменить index внутри WHI петли ch «запрещено».

Любое возможное решение?

Благодаря

Answer 1

Я хотел бы сделать что-то вроде этого, но я не знаю, как вы хотите иметь дело с нечетными строками длины:

For index = 0 To charArr.Length - 1 Step 2 
    Dim a = charArr(index) 
    Dim b = If(index=charArr.Length - 1, _ 
      <something to use for odd length strings>, _ 
      charArr(index + 1)) 

    intGroup = CByte(AscW(a)) * 256 + CByte(AscW(b)) 
    strout = strout + CStr(intGroup) + " " 
Next 

Я не знаю, что вы хотите использовать, особенно если вы носите в виду, что строки .NET (в отличие, скажем, строки C) вполне могут содержать символ с кодом ascii 0, поэтому просто использование 0 может оставить вас с неоднозначными данными, в зависимости от того, как вы , используя эту строку, реконструкция.

Но в основном, вам не нужно выполнять какую-либо специальную обработку для строк с нечетной длиной, и никакие магические манипуляции с параметрами петли for не позволят это сделать - вы либо имеете дело с ними в цикле (как указано выше), либо используйте короткий цикл (.Length - 2) и выполните проверку длины позже и обработайте конечный символ, который вы пропустили в цикле отдельно.

Answer 2

For index = 0 To input.Length - 2 step 2 

массив его с нуля, так что, если длина = п, последний элемент обр [п-1]. для элемента только для элементов управления, последний элемент - его arr [n-2].