Bir String'i çiftlere bölme

Question

VB'de çiftleri bir dizeye ayırmaya nasıl giderim? örneğin

:

bölünmüş içine abcdefgh: Eğer böyle yapacağını C#

Answer 1

Ben ringde şapkamı atacağım

:

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

gh ab cd ef: Artık

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 

*/ 

, ne düşündüğünü biliyorum: Bu değil istediğim! Ama diyorum ki: Aslında en azından kısmen.

VB.net'te çalıştığınızı kabul ettiğimden, gerçekleştirdiğiniz şeyin temel yapısı yukarıdaki kısa snippet'te özetlenmiştir.

Örneğin: Hem C# hem de VB'de Count (nesne dizesinin) yöntemi vardır.

En azından biraz yardımcı olur umarım!

Answer 3

Aşağıdakiler, tek uzunluklu dizeler için izin verir. Dize sıfır uzunlukta ise, ne yapmak istediğinizden emin değilim, bu durumu ele almak isteyeceksiniz.

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