将字符串拆分成对

Question

如何继续将字符串拆分为VB中的字母对？

例如：ABCDEFGH

分成：AB CD EF GH

Answer 1

我会扔我的帽子环：

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

在C＃中，你会做这样的：

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 

*/ 

现在，我知道你在想什么：这是不是我想要的是！但我说：实际上，至少有一部分。

因为我认为你在VB.net工作，所以你想要执行什么的基本结构在上面的短片段中概述。

例如：方法Count（对象字符串）存在于C＃和VB中。

希望它至少有一点帮助！

Answer 3

以下允许奇数长度的字符串。如果字符串是零长度的，我不确定你想要做什么，你会想要解决这个问题。

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