Dividir una cadena en pares

Question

¿Cómo podría continuar dividiendo una cadena en pares de letras en VB?

por ejemplo: ABCDEFGH

dividido en: ab cd ef gh

Answer 1

voy a tirar mi sombrero en el anillo:

Dim test As String = "abcdefgh" 
Dim results As New List(Of String) 

For i As Integer = 0 To test.Length - 1 Step 2 
    If i + 1 < test.Length Then 
    results.Add(test.Substring(i, 2)) 
    Else 
    results.Add(test.Substring(i)) 
    End If 
Next 

MessageBox.Show(String.Join(" ", results.ToArray)) 

Answer 2

En C# que lo haría así:

Dictionary<String, String> Split(String input) 
{ 
    if (input.Count % 2 == 0) 
    { 
     Dictionary<string, string> Pairs = new Dictionary(); 

     for (int L = 0, R = 1; L < input.Count && R <= input.Count; ++L, ++R) 
     { 
      Char 
       Left = input[L], 
       Right = input[R]; 

      Pairs.Add(
       Left.ToString(), 
       Right.ToString()); 
     } 
    } 

    else 
    { 
     throw new NotEvenException(); 
    } 

    return Pairs(); 
} 

void Main() 
{ 
    var Pairs = Split("ABCDEFGH"); 

    foreach(string Key in Split("ABCDEFGH")) 
    { 
     Console.Write("{0}{1}\n", Key, Pairs[Key]); 
    } 
} 


/* 
Output: 
AB 
CD 
EF 
GH 

*/ 

Ahora, sé lo que piensa: Esto no es ¡lo que quiero! Pero digo: en realidad, al menos en parte.

Como supongo que está trabajando en VB.net, la estructura básica de lo que desea realizar se describe en el breve fragmento de arriba.

Por ejemplo: El método Count (del objeto String) existe tanto en C# como en VB.

Espero que ayude un poco al menos!

Answer 3

Lo siguiente permite cadenas de longitud impar. Si la cadena es de longitud cero, no estoy seguro de lo que desea hacer, querrá abordar ese caso.

Dim src As String = "abcdef" 
    Dim size As Integer 
    If src.Length > 0 Then 
     If src.Length Mod 2 = 0 Then 
      size = (src.Length/2) - 1 
     Else 
      size = ((src.Length + 1)/2) - 1 
     End If 
     Dim result(size) As String 
     For i = 0 To src.Length - 1 Step 2 
      If i = src.Length - 1 Then 
       result(i/2) = src.Substring(i, 1) 
      Else 
       result(i/2) = src.Substring(i, 2) 
      End If 
     Next 
    End If