Bir dizgiyi x karakter sayısına bölme

Question

Kullanıcının bir dize biçiminde sayı listesi girdiği bir programım var. Bu sayı listesi her zaman 8'in katlarıdır. Bu nedenle, liste 8, 16, 32, 40, 48, vb. Sayıları içerebilir.

Bu dizeyi her 8 karaktere bölmem gerekiyor. Örneğin

, kullanıcının girdiği demek "1234123445674567"

I (0) olan bir dize dizisi bölmek can "12341234" ve (1) "45674567"

Not Nasıl:

Dim stringArray(txtInput.Text.Length/8) as String 

Edi: dizinin büyüklüğü bu gibi 8.

bölünmesiyle şeridin uzunluğuna eşit olması gerekir t: Bunu, 8 sayı sayan ve onu bir diziye ayıran bir döngü oluşturarak yapabileceğimi biliyorum, ancak bu uzun ve değişken olabilir ve bunu yapmanın daha etkili bir yolu olduğunu biliyorum. Ben sadece sözdizimini bilmiyorum. (Eğer gerçekten bir ihtiyaç varsa) strings.ToArray() kullanabilirsiniz

Dim strings As New List(Of String) 

For i As Integer = 0 To Me.txtInput.Text.Length - 1 Step 8 
    strings.Add(Me.txtInput.Text.Substring(i, 8)) 
Next 

bir diziye strings listesini dönüştürmek için:

Answer 1

Dim orig = "12344321678900987" 
Dim res = Enumerable.Range(0,orig.Length\8).[Select](Function(i) orig.Substring(i*8,8)) 

Answer 2

Bir For döngü ve Substring kullanabilirsiniz.

---

Ayrıca, bir fantezi tek gömleklerinin düzenli ifadeler ve LINQ kullanabilirsiniz: Bu 8 karakterlik alt dizeleri bir diziye dize ayrılmalıyız

Text.RegularExpressions.Regex.Matches(Me.txtInput.Text, ".{8}").Select(Function(x) x.Value) 

Answer 3

Function slice(ByVal s as String) As String() 
    Return (From c As String in s).ToArray() 
End Function 

Answer 4

Kabul edilen yanıtı genişletmek için, bu, dizenin bölüm tarafından bölünemez olmasa bile bir dizeyi parçalara böler.

Public Function SplitInParts(s As String, partLength As Integer) As IEnumerable(Of String) 
     If String.IsNullOrEmpty(s) Then 
      Throw New ArgumentNullException("String cannot be null or empty.") 
     End If 
     If partLength <= 0 Then 
      Throw New ArgumentException("Split length has to be positive.") 
     End If 
     Return Enumerable.Range(0, Math.Ceiling(s.Length/partLength)).Select(Function(i) s.Substring(i * partLength, If(s.Length - (i * partLength) >= partLength, partLength, Math.Abs(s.Length - (i * partLength))))) 
    End Function