將字符串拆分成對

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